<%@Language=VBScript%>
<%
response.buffer = true
dim vCaptchaCode
dim vOfficialEmailAdd
dim vCompany
dim vCountry
dim vName
dim vPosition
dim vEmailAddress
dim vTelephone
dim vFax
dim vMobile
dim vWebsite
dim vAddress1
dim vAddress2
dim vDinner
dim vTour
dim vMessage
vCompany=request.form("fCompany")
vCountry=request.form("fCountry")
vName=request.form("fName")
vPosition=request.form("fPosition")
vEmailAddress=request.form("fEmailAddress")
vTelephone=request.form("fTelephone")
vFax=request.form("fFax")
vMobile=request.form("fMobile")
vWebsite=request.form("fWebsite")
vAddress1=request.form("fAddress1")
vAddress2=request.form("fAddress2")
vDinner=request.form("fDinner")
vTour=request.form("fTour")
vMessage=request.form("fMessage")
vCaptchaCode=request.form("captchacode")
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
vOfficialEmailAdd="manilameeting@combinedlogisticsnetworks.com"
vSubject = "CLN Manila Meeting 2011 Registration: " & vCompany
vMessage = "Company: " & vCompany & vbCrLf & _
"Country: " & vCountry & vbCrLf & _
"Contact Person: " & vName & vbCrLf & _
"Positon: " & vPosition & vbCrLf & _
"Email Address: " & vEmailAddress & vbCrLf & _
"Telephone: " & vTelephone & vbCrLf & _
"Fax: " & vFax & vbCrLf & _
"Mobile: " & vMobile & vbCrLf & _
"Website: " & vWebsite & vbCrLf & _
"Address Line1: " & vAddress1 & vbCrLf & _
"Address Line2: " & vAddress2 & vbCrLf & _
"Dinner Out: " & vDinner & vbCrLf & _
"City Tour: " & vTour& vbCrLf & _
"Message: " & vMessage
dim myMail, myMail2, objConfig
dim sendUrl, smtpUrl
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"
' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="smtp.1and1.com"
objConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
objConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1
objConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gianne.beltran@combinedlogisticsnetworks.com"
objConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="9918244"
objConfig.Fields.Update
' Create and send the mail
Set myMail=CreateObject("CDO.Message")
Set myMail.Configuration=objConfig
myMail.Subject=vSubject
myMail.From=vEmailAddress
myMail.To=vOfficialEmailAdd
myMail.BCC = "gianne.beltran@rwsolutions.com"
myMail.TextBody=vMessage
myMail.Send
set myMail=nothing
Set myMail2=CreateObject("CDO.Message")
Set myMail2.Configuration=objConfig
myMail2.Subject="CLN Manila Meeting 2011 Registration"
myMail2.From=vOfficialEmailAdd
myMail2.To=vEmailAddress
myMail2.BCC = "gianne.beltran@rwsolutions.com"
myMail2.TextBody= "Dear "& vName & "," & vbCrLf & vbCrLf & "Thank you for registering to CLN Manila Meeting 2011, which will be held on May 24-28, 2011. Our Customer Service team will get in touch with you shortly." & vbCrLf & vbCrLf & vbCrLf & "See you in Manila, " & vbCrLf & vbCrLf & "Combined Logistics Networks" & vbCrLf & "http://www.combinedlogisticsnetworks.com/manilameeting"
myMail2.Send
set myMail2=nothing
Session("MessageText")="
Thank you for registering to the CLN Manila Meeting 2011. Our Customer Service Team will contact you shortly. See you in Manila! "
response.redirect "registration.asp"
else
TestCaptcha = false
end if
end if
end if
end function
%>
CLN Manila Meeting - May 24-28, 2011
