<%@ Language=VBScript%>
<%
'Response.end
dim strPageCode
strPageCode = "32Pro01"
'dim strpagecode
'strpagecode= "FAIRG40"
session("usertype")="NUS"
%>
<%
'Page name:4.1_asstmemregadd.asp
'purpose:enter the data into the database
'date:19/06/03
'Author:
'response.end
dim objConnReg,STR_MESSAGE
sQSIResponseCode = Request("QSIResponseCode")
sAcqResponseCode = Request("AcqResponseCode")
On error resume next
set objConnReg=server.CreateObject("adodb.connection")
objConnReg.ConnectionString=objConn.connectionString
objConnReg.Open
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
end if
on error goto 0
'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 trim(Session("appid")) = "" then
if sQSIResponseCode="0" then
InsertMaster
else
DeleteMaster
end if
'end if
'if sQSIResponseCode="0" then GENERATE_MSG_ONLINE
%>
Advance Payment
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.%>
<%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()
'ObjConn.BeginTrans
Insert_Into_Original_Tables
Delete_From_Temp_Tables
end sub
function Insert_Into_Original_Tables()
'Inserting into the HallBooking Transaction table.
on error resume next
'response.Write strinsert
strinsert = " Insert into HallBooking select * from HallBookingTemp where appid = " & session("appid")
ObjConn.Execute strinsert
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
end if
on error goto 0
on error resume next
strinsert = " Insert into HallPreferancedetails select * from HallPreferancedetailsTemp where appid = " & session("appid")
ObjConn.Execute strinsert
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
end if
on error goto 0
strinsert = " Insert into HallBookOutdoorSpacedetails select * from HallBookOutdoorSpacedetailsTemp where appid = " & session("appid")
on error resume next
ObjConn.Execute strinsert
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
end if
on error goto 0
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
else
'objconn.CommitTrans
'SendUnformattedMail
'Response.redirect "/inc/admin/confirm.asp?message=1§ion=" & Server.URLEncode("Hall Registration")& "&path=/fairregistration/admin"
end if
end function
function Delete_From_Temp_Tables()
on error resume next
'response.Write strinsert
strinsert = " Delete from HallBookingTemp where appid = " & session("appid")
ObjConn.Execute strinsert
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
end if
on error goto 0
on error resume next
strinsert = " Delete from HallPreferancedetailsTemp where appid = " & session("appid")
ObjConn.Execute strinsert
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
end if
on error goto 0
strinsert = " Delete from HallBookOutdoorSpacedetailsTemp where appid = " & session("appid")
on error resume next
ObjConn.Execute strinsert
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
end if
on error goto 0
if err <> 0 then
'objconn.RollbackTrans
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
else
'objconn.CommitTrans
SendUnformattedMail
'Response.redirect "/inc/admin/confirm.asp?message=1§ion=" & Server.URLEncode("Hall Registration")& "&path=/fairregistration/admin"
end if
end function
sub DeleteMaster()
dim sql4
dim sql5
dim sql6
on error resume next
'objconnreg.BeginTrans
sql4="delete HallBookingTemp "&_
"where appid="&session("appid")
objConnReg.execute sql4
if err <> 0 then
'objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("IITF Fair Halls Registration")
end if
sql5="delete HallPreferancedetailsTemp "&_
"where appid="&session("appid")
objConnReg.execute sql5
if err <> 0 then
'objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("IITF Fair Halls Registration")
end if
sql6="delete HallBookOutdoorSpacedetailsTemp "&_
" where appid="&session("appid")
objConnReg.execute sql6
if err <> 0 then
'objConnReg.rollbacktrans
response.Redirect "/inc/commoninc/error.asp?errorno="&err&"§ion="&server.URLEncode ("IITF Fair Halls Registration")
end if
on error goto 0
'objConnReg.committrans
session("appid")=""
session("name")=""
'Response.Redirect "/fairregistration/default.asp"
'session("assmemberno")=""
'Response.Redirect "/"
end sub
%>
<%objConnReg.Close
set objconnreg=nothing
%>
<%
Sub DisplayResponse()
Select Case sQSIResponseCode
Case "0" STR_MESSAGE="Your transaction is completed now." & "
" & "For your reference, " & " " & "Transaction No. : " & request("transactionno") & " " & "Receipt No. : " & request("receiptno") & " " & "Transaction Amount : Rs. " & (Cdbl(request("purchaseamount"))*0.01) & " "
Case "1" STR_MESSAGE= "Rejected by the Switch" & " " & request ("strMessage")
Case "2" STR_MESSAGE= "Rejected by the payment Gateway"& " " & request ("strMessage")
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
%>