<% @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

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.

" EmailBody=EmailBody & "To review the conference program, please visit: http://safetydesigninbuildings.com/Kuwait/default.asp#program.

" EmailBody=EmailBody & "To learn more about the conference campaign visit www.safetydesigninbuildings.com.

" end sub %>