<%@ Language=VBScript%>
<%
dim strpagecode
strpagecode= "FAIRG40"
session("usertype")="NUS"
%>
<%
'Page name:4.1_asstmemregadd.asp
'purpose:enter the data into the database
'date:19/06/01
'Author:Himanshu Nigam
dim objConnReg,STR_MESSAGE
sQSIResponseCode = Request("QSIResponseCode")
sAcqResponseCode = Request("AcqResponseCode")
set objConnReg=server.CreateObject("adodb.connection")
objConnReg.ConnectionString=objConn.connectionString
objConnReg.Open
'objConnReg.Open "Driver=SQL Server; Server=itposrv;UID=itpo; PWD=itpo;Database=itpo"
%>
Registration Confirmation - <%=Application("Title")%>
<%
'Response.Write "Response code is " & sQSIResponseCode
DisplayResponse
if Session("AssociateMemNo")="" then
if sQSIResponseCode="0" then
InsertMaster
else
DeleteMaster
end if
end if
if sQSIResponseCode="0" then GENERATE_MSG_ONLINE
%>
Registration
Confirmation
<%if sQSIResponseCode="0" then Response.Write "Congratulations " &session("name") & " !"%>
<%=STR_MESSAGE%>
<%if sQSIResponseCode="0" then%>
<%'If you wish to add your exporter and/or manufacturer profile, click on the appropriate link.%>
You can now get listed on our Indian suppliers
and Manufacturers Directory thus providing your business a global presence.
<%end if%>
<%
SUB GENERATE_MSG_ONLINE()
STR_MESSAGE= STR_MESSAGE & " " & " You are welcome to avail various services available for the Associate Members at this portal. "&_
"
Your Membership Number/Login Id is : "& Session("AssociateMemNo") &".
"& _
" We wish you enjoy the Benefits and Priviliges of being a Associate Member of ITPO."
END SUB
sub InsertMaster()
'temp= Request.QueryString("SessionID")
'Response.Write temp
dim rspg,sqlpg
set rspg=server.CreateObject("adodb.recordset")
sqlpg="select productgroupcode from TempAssociateOnPmtProdGrpDet where sessionid='" & Request("SessionID") & "'"
'Response.Write sqlpg
rspg.Open sqlpg,objConn
if not (rspg.eof and rspg.bof) then
dim pg,prodgpno
prodgpno=0
while not rspg.EOF
prodgpno=prodgpno+1
pg=trim(rspg("productgroupcode"))
rspg.movenext
wend
'Response.Write prodgpno
if prodgpno>1 then
pg="99"
else
pg=pg
end if
'Response.Write "pg"&pg&" "
rspg.Close
set rsgroup=server.CreateObject("ADODB.Recordset")
'rsgroup.ActiveConnection=objConnReg
'rsgroup.CursorType=1
rsgroup.Open "select max(substring(associateMembershipNo,4,6)),substring(associateMembershipNo,11,2)from associatemembermaster group by substring(associateMembershipNo,11,2) having substring(associateMembershipNo,11,2)='" & pg & "'",objConnReg
if rsgroup.EOF and rsgroup.BOF then
'associateMembershipNo="AM-020000/" & pg
'companyno="AM-020000-" & insproductgroupcode
associateMembershipNo="AM-000001/" & pg
companyno="AM-000001-" & insproductgroupcode
else
maxvalue1=rsgroup.Fields(0)
incvalue=cint(maxvalue1) + 1
constr=cstr(incvalue)
lent=len(constr)
if lent=6 then
finalvalue= constr
elseif lent=5 then
finalvalue="0" & constr
elseif lent=4 then
finalvalue="00" & constr
elseif lent=3 then
finalvalue="000" & constr
elseif lent=2 then
finalvalue="0000" & constr
elseif lent=1 then
finalvalue="00000" & constr
end if
associateMembershipNo="AM-" & finalvalue &"/" & pg
companyno="AM-" & finalvalue &"-" & pg
end if
'Response.Write associateMembershipNo
rsgroup.Close
on error resume next
objConnReg.BeginTrans
sqlact1="Insert into associatemembermaster(associateMembershipNo,createuserid,MembershipDate," &_
"CompanyName,ApplicantName,namtitle1,ContactExecutive1,Designation1,nametitle2,ContactExecutive2,Designation2," &_
"Address1,Address2,city,pincode,state,country_code,Email,Phone1,Phone2,Fax1,Fax2," &_
"Website,BankReference,YearEstablishment,RBICode,businesstype,MfrStatus,OwnershipType," &_
"Exports1,Exports2,Exports3,Year1,Year2,Year3,exportitem,importitem,validtodate,renewbeforedate,createdate,modifyuserid,modifydate,applicantnametitle) " &_
"select '"&associateMembershipNo&"','"&associateMembershipNo&"',getDate()," &_
"CompanyName,ApplicantName,namtitle1,ContactExecutive1,Designation1,nametitle2,ContactExecutive2,Designation2, " &_
"Address1,Address2,city,pincode,state,country_code,Email,Phone1,Phone2,Fax1,Fax2, " &_
"Website,BankReference,YearEstablishment,RBICode,businesstype,MfrStatus,OwnershipType, " &_
"Exports1,Exports2,Exports3,Year1,Year2,Year3,exportitem,importitem,validtodate,renewbeforedate,createdate,modifyuserid,modifydate,applicantnametitle " &_
"from TempAssociateOnPmtMaster "&_
"where ltrim(rtrim(SessionID))='"&trim(Request("SessionID"))&"'"
'Response.Write sqlact1
'Response.End
objConnReg.execute sqlact1
if err <> 0 then
'Response.Write "am error is" & err.description
'Response.end
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "am error is" & err.description
end if
'STRSQLPAYMENT="UPDATE ASSOCIATEMEMBEROFFLiNEPAYMENTS SET associatemembershipno='"& associateMembershipNo &"',"&_
' "realizedflag='Y' where associatemembershipno='"& trim(Request.QueryString("memno")) &"'"
STRSQLPAYMENT="insert into AssociateMemberPayments(associateMembershipNo,PaymentDate," &_
"PaymentType, ReceiptNumber,TransactionNumber,Amount) values ('" & associateMembershipNo & "',getdate(),'New Payments','" & Request("ReceiptNo") & "','" & Request("TransactionNo") & "'," & cdbl(Request("PurchaseAmount"))/100 & ")"
'Response.Write strinsertpayment
'Response.Write STRSQLPAYMENT&" "
objConnReg.Execute strsqlpayment
if err <> 0 then
'Response.Write "pm error is" & err.description
'Response.end
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "pm error is" & err.description
end if
sqlact2="insert into associatememberproductgroupdetails "&_
"(associateMembershipNo,productgroupcode)"&_
"select '"&associateMembershipNo&"',productgroupcode from TempAssociateOnPmtProdGrpDet "&_
"where ltrim(rtrim(sessionID))='"&trim(Request("sessionID"))&"'"
objConnReg.execute sqlact2
if err <> 0 then
'Response.Write "pg error is" & err.description
'Response.end
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "pg error is" & err.description
end if
sqlact3="insert into associatememberexportcountriesdetails "&_
"(associateMembershipNo,country_code)"&_
"select '"&associateMembershipNo&"',country_code from TempAssociateOnPmtExpCountriesDet "&_
"where ltrim(rtrim(sessionID))='"&trim(Request("sessionID"))&"'"
objConnReg.execute sqlact3
if err <> 0 then
'Response.Write "pg error is" & err.description
'Response.end
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "pg error is" & err.description
end if
set r=server.CreateObject ("adodb.recordset")
r.Open "select companyname,applicantname,email,userpassword from TempAssociateOnPmtMaster where sessionID='"&trim(Request("sessionID"))&"'",objConn
dim emailaddress,compname,userpwd
emailaddress=trim(r("email"))
if trim(r("companyname")) <>"" then
compname=replace(trim(r("companyname")),"'","''")
else
compname=replace(trim(r("applicantname")),"'","''")
end if
userpwd=trim(r("userpassword"))
r.Close
sql7="insert into usermaster(loginid, FirstName,userpassword,usertype,lastlogindate,activateflag,email,createuserid,createdate) "&_
"values('"&associateMembershipNo&"','"& compname &"','"& userpwd &"','AUS','"&date()&"','Y','"& emailaddress &"','"&associateMembershipNo&"','"&date()&"')"
objConnReg.execute sql7
if err <> 0 then
'Response.Write "um error is" & err.description
'Response.end
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "um error is" & err.description
end if
'Response.Write emailaddress
'code added by rahul on 8/7 for insertion in company master and content defn master
arrno=split(associateMembershipNo,"/")
newassociateMembershipNo=arrno(0)&"-"&arrno(1)
dim sql8
sql8="insert into companymaster(companycode,mainlevel,terminatinglevel,companyname) " &_
"values('" & newassociateMembershipNo & "',2,0,'" & compname & "')"
'Response.Write sql8
objConnReg.Execute sql8
'Response.End
if err <> 0 then
'Response.Write "error is" & err.description
'Response.end
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "error is" & err.description
end if
dim sql9
sql9="insert into contentdefinitionmaster(companycode,definitioncode,name,levelapplied) " &_
"values('" & newassociateMembershipNo & "','D001','Product',1)"
'Response.Write sql9
objConnReg.Execute sql9
if err <> 0 then
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "error is" & err.description
end if
dim sql10
sql10="insert into contentdefinitionmaster(companycode,definitioncode,name,levelapplied) " &_
"values('" & newassociateMembershipNo & "','D002','Product',2)"
'Response.Write sql10
objConnReg.Execute sql10
if err <> 0 then
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "error is" & err.description
end if
'code by rahul ends
sql4="delete TempAssociateOnPmtMaster "&_
"where ltrim(rtrim(sessionID))='"&trim(Request("sessionID"))&"'"
'response.Write sql4
objConnReg.execute sql4
if err <> 0 then
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "error is" & err.description
end if
sql5="delete TempAssociateOnPmtExpCountriesDet "&_
"where ltrim(rtrim(sessionID))='"&trim(Request("sessionID"))&"'"
'Response.Write sql5
objConnReg.execute sql5
if err <> 0 then
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "error is" & err.description
end if
sql6="delete TempAssociateOnPmtProdGrpDet "&_
"where ltrim(rtrim(sessionID))='"&trim(Request("sessionID"))&"'"
'Response.Write sql6
objConnReg.execute sql6
if err <> 0 then
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
'Response.Write "error is" & err.description
end if
on error goto 0
objConnReg.committrans
Session("AssociateMemNo")=associateMembershipNo
dim strquery
strquery="select isnull(applicantname,companyname) appname from associatemembermaster where associatemembershipno='"&session("AssociateMemNo")&"'"
'Response.Write strquery
set rst=objconn.execute(strquery)
if not(rst.eof or rst.bof) then
'Response.Write "inside"
session("usertype")="AUS"
session("userid")=Session("AssociateMemNo")
session("name")=rst("appname")
'Response.Write "userid " & session("userid") & session("name")
end if
rst.close
set rst=nothing
'GENERATE_MSG_ONLINE
end if
end sub
sub DeleteMaster()
dim sql44
dim sql55
dim sql66
on error resume next
objconnreg.BeginTrans
sql44="delete TempAssociateOnPmtMaster "&_
"where ltrim(rtrim(sessionID))='"&session("assmemberno")&"'"
objConnReg.execute sql44
if err <> 0 then
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
end if
sql55="delete TempAssociateOnPmtExpCountriesDet "&_
"where ltrim(rtrim(sessionID))='"&session("assmemberno")&"'"
objConnReg.execute sql55
if err <> 0 then
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
end if
sql66="delete TempAssociateOnPmtProdGrpDet "&_
"where ltrim(rtrim(sessionID))='"&session("assmemberno")&"'"
objConnReg.execute sql66
if err <> 0 then
objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("Associate Member Registration")
end if
on error goto 0
objConnReg.committrans
'session("assmemberno")=""
'Response.Redirect "/"
end sub
%>
<%objConnReg.Close
set objconnreg=nothing
%>
<%
Sub DisplayResponse()
Select Case sQSIResponseCode
Case "0" STR_MESSAGE="Your membership is active now." & "
" & "For your reference, " & " " & "Transaction No. : " & request("transactionno") & " " & "Receipt No. : " & request("receiptno") & " " & "Transaction Amount : Rs. " & cdbl(request("purchaseamount"))/100 & " "
Case "1" STR_MESSAGE= "Unknown Error"
Case "2" STR_MESSAGE= "Bank Declined Transaction"
Case "3" STR_MESSAGE= "No Reply from Bank"
Case "4" STR_MESSAGE= "Expired Card"
Case "5" STR_MESSAGE= "Insufficient funds"
Case "6" STR_MESSAGE= "Error Communicating with Bank"
Case "7" STR_MESSAGE= "Payment Server System Error"
Case "8" STR_MESSAGE= "Transaction Type Not Supported"
Case Else STR_MESSAGE="Unable to be determined"
End Select
End Sub
%>