%@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 vPackage
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")
vPackage=request.form("fPackage")
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 Sponsorship: " & 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 & _
"Package: " & vPackage & 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 Sponsorship"
myMail2.From=vOfficialEmailAdd
myMail2.To=vEmailAddress
myMail2.BCC = "gianne.beltran@rwsolutions.com"
myMail2.TextBody= "Dear "& vName & "," & vbCrLf & vbCrLf & "Thank you for your interest to be a sponsor of the 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 & "Best regards, " & vbCrLf & vbCrLf & "CLN Manila Meeting 2011" & vbCrLf & "http://www.combinedlogisticsnetworks.com/manilameeting"
myMail2.Send
set myMail2=nothing
Session("MessageText")="
Thank you for your interest to be a Sponsor of the CLN Manila Meeting 2011. Our Customer Service team will get in touch with you shortly. "
response.redirect "sponsorship.asp"
else
TestCaptcha = false
end if
end if
end if
end function
%>
CLN Manila Meeting - May 24-28, 2011
Sponsorship
Put your company in the spotlight of this event! Be a sponsor of the CLN Manila 2011 Conference. You may choose from the packages below.