% @LANGUAGE = VBScript %>
<%
option Explicit
response.Expires =0 'minutes
session.Timeout =1200 'minutes
%>
<%
dim i,ErrMsg,EmailBody,RecordWasSavedInDb
dim transaction_id
dim seminarid,contactid(5),RegNo(5),strdate,totalfees,nopersons
dim title(5),attention(5),email(5)
'on error resume next
ErrMsg=""
RecordWasSavedInDb=false
'Structure of transaction_id
'len(transaction_id)=78
' seminarid=cint(trim(mid(transaction_id,1,3)))
' contactid(1)=cint(trim(mid(transaction_id,5,5)))
' contactid(2)=cint(trim(mid(transaction_id,11,5)))
' contactid(3)=cint(trim(mid(transaction_id,17,5)))
' contactid(4)=cint(trim(mid(transaction_id,23,5)))
' contactid(5)=cint(trim(mid(transaction_id,29,5)))
' Regno(1)=cint(trim(mid(transaction_id,35,4)))
' Regno(2)=cint(trim(mid(transaction_id,40,4)))
' Regno(3)=cint(trim(mid(transaction_id,45,4)))
' Regno(4)=cint(trim(mid(transaction_id,50,4)))
' Regno(5)=cint(trim(mid(transaction_id,55,4)))
' strdate=mid(transaction_id,60,10)
' totalfees=cint(trim(mid(transaction_id,71,5)))
' nopersons=cint(trim(mid(transaction_id,77,2)))
transaction_id=Trim(cstr(Request.QueryString("transaction_id")))
'transaction_id="069.00034.00000.00000.00000.00000.0083.0000.0000.0000.0000.12.05.2015.00400.01"
for i=1 to 5
title(i)=0
attention(i)=""
email(i)=""
next
nopersons=0: totalfees=0
for i=1 to 5
contactid(i)=0
Regno(i)=0
next
'
seminarid=cint(trim(mid(transaction_id,1,3)))
nopersons=1 'cint(trim(mid(transaction_id,77,2)))
for i=1 to nopersons
contactid(i)=cint(trim(mid(transaction_id,5 + (i-1)*6,5)))
Regno(i)=cint(trim(mid(transaction_id,35 + (i-1)*5,4)))
next
strdate=mid(transaction_id,60,10)
totalfees="" 'cint(trim(mid(transaction_id,71,5)))
if nopersons=0 or contactid(1)=0 then ErrMsg="Error Reading Transaction ID Data!"
' response.Write "seminarid= " & seminarid & " "
' response.Write "contactid(1)= " & contactid(1) & " "
' response.Write "Regno(1)= " & Regno(1) & " "
' response.Write "strdate= " & strdate & " "
' response.Write "totalfees= " & totalfees & " "
' response.Write "nopersons= " & nopersons & " "
'
' response.End()
if ErrMsg="" then
UpdateRecordInDb
sendemail
else
response.Write(ErrMsg)
Response.End()
end if
ShowFormResult
'-------------------- Start Here ---------------------------------------
Sub ShowFormResult
%>
Safety Design in Buildings
Safety Design in Buildings
In Collaboration with Kuwait Fire Protection Association
March 05, 2019, Jumeirah Messilah Beach Hotel & Spa, Kuwait
00
days
00
hours
00
minutes
00
seconds
Payment Confirmation
<%if ErrMsg <> "" then
Response.Write ErrMsg
else
Response.Write EmailBody
end if
%>
<%end sub
Sub Replace2Quotesbyone(MyStr)
MyStr = Replace(MyStr, "''", "'")
End Sub
Function UpdateRecordInDb()
dim objConn,StrConn,objRSc,objRSs,strQ
'on error resume next
RecordWasSavedInDb=false
UpdateRecordInDb=false
Set objConn = Server.CreateObject("ADODB.Connection")
StrConn="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & server.MapPath("data/maillist.mdb") & ";"
StrConn=StrConn & "Jet OLEDB:Database Password=123"
objConn.Open StrConn
Set objRSc=Server.CreateObject("ADODB.Recordset")
objRSc.CursorLocation =aduseclient
objRSc.CursorType =adopenstatic
objRSc.LockType =adLockreadonly
Set objRSs=Server.CreateObject("ADODB.Recordset")
objRSs.CursorLocation =aduseserver
objRSs.CursorType =adopenkeyset
objRSs.LockType =adlockoptimistic
'Check if Email Already in our contacts table
'use .filter to read records from contacts
strQ="select id,title,email,attention from contacts"
objRSc.Open strQ,objConn,,,adCmdText
for i=1 to nopersons
objRSc.Filter=0 'adFilterNone
objRSc.Filter="id=" & ContactId(i)
if not objRSc.EOF then
if not isnull(objRSc("title")) then title(i)=trim(objRSc("title"))
if not isnull(objRSc("email")) then email(i)=trim(server.HTMLEncode(objRSc("email")))
if not isnull(objRSc("attention")) then attention(i)=trim(server.HTMLEncode(objRSc("attention")))
end if
next
objRSc.close
Set objRSc =nothing
'
'seminars_attend
strQ="select contactid,seminarid,payment,totalfees,days,workshop from seminars_attend"
strQ=strQ & " where seminarid=" & seminarid
objRSs.Open strQ,objConn,,,adCmdText
for i=1 to nopersons
objRSs.Filter=adFilterNone '0
objRSs.Filter="contactid=" & ContactId(i)
if not objRSs.EOF then
objRSs("payment")="Yes"
'objRSs("totalfees")=totalfees
objRSs("days")="010"
objRSs("workshop")="Credit Card"
objRSs.Update
end if
next
objRSs.close
set objRSs =nothing
objConn.Close
set objConn = nothing
'if err.number <>0 then response.Write err.number & " " & err.Description
if err.number <>0 then
ErrMsg="We are sorry, some errors occur during proccessing your request, please try again later."
exit function
end if
RecordWasSavedInDb=false
UpdateRecordInDb=true
PrepareEmailBody
'response.Write(EmailBody)
'response.End
end Function
Function SendEmail()
dim objNewMail,StrEmailSubject,strBody
'on error resume next
SendEmail=false
' StrEmailSubject= seminartext
strBody = "" & EmailBody & ""
' Set objNewMail = Server.CreateObject("CDONTS.NewMail")
Set objNewMail = CreateObject("CDO.Message")
objNewMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objNewMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.palm.arvixe.com"
objNewMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objNewMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objNewMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objNewMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objNewMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@safetydesigninbuildings.com"
objNewMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Infosu1234"
objNewMail.Configuration.Fields.Update
objNewMail.From = "info@safetydesigninbuildings.com"
objNewMail.To = email(1) '"mohamed.m.demahom@gmail.com"marleen@sesam-uae.com
objNewMail.cc= "marleen@sesam-uae.com,anil@sesam-uae.com,philipp@sesam-uae.com"
objNewMail.Subject = "Payment successful for Safety Design in Buildings Kuwait Conference on March 5, 2019"
' objNewMail.Bodyformat =0
' objNewMail.mailformat=0
objNewMail.HTMLBody = strBody
objNewMail.Send
Set objNewMail = Nothing
if err.number <>0 then
response.Write err.number & " " & err.Description
response.End()
end if
'if err.number <>0 then
' ErrMsg="Sorry, Some error occur in sending Email process, please try again later."
' exit function
'end if
SendEmail=true
End Function
sub PrepareEmailBody()
EmailBody="Dear " & title(1) & " " & attention(1) & ",
"
EmailBody=EmailBody & "Thank you for your registration for the Safety Design in Buildings Kuwait Conference March 5, 2019.
"
EmailBody=EmailBody & "Your payment was successful.
"
EmailBody=EmailBody & "Your registration number is " & right("0000" & Regno(1),4) & "
"
if nopersons>1 then
for i=1 to noPersons
if contactid(i)<>0 and Regno(i)<>0 then EmailBody=EmailBody & "Registration number of Person " & i & " is " & right("0000" & Regno(i),4) & "
"
next
end if
EmailBody=EmailBody & "Please retrieve your name badge at the conference registration in the morning of the event between 8:00am and 9:00am.