<%
If Request.TotalBytes > 0 Then
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
sMailConfirm = "Your mail has been sent.
" & sHtmlMessage
sch = "http://schemas.microsoft.com/cdo/configuration/" '*****Please don't edit this line.*****
dim strtxt1,strtxt2,strtxt3,strtxt4,strtxt5,strtxt6,strtxt7
strtxt1=Request.Form("firstname")
strtxt2=Request.Form("lastname")
strtxt3=Request.Form("companyname")
strtxt4=Request.Form("email")
strtxt5=Request.Form("address")
strtxt6=Request.Form("street")
strtxt7=Request.Form("city")
strtxt8=Request.Form("zipcode")
strtxt9=Request.Form("state")
strtxt10=Request.Form("country")
strtxt11=Request.Form("phone")
strtxt12=Request.Form("remarks")
Set cdoMessage= Server.CreateObject("CDO.Message")
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.hukamrestaurant.com"
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUsername) = "mailer@hukamrestaurant.com"
.Item(cdoSendPassword) = "ganesh"
.Update
End With
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From ="mailer@hukamrestaurant.com"
cdoMessage.To ="info@hotelbroadwayudaipur.com,response@hukamrestaurant.com,burman1@datainfosays.net"
cdoMessage.Bcc=Trim(strtxt4)
cdoMessage.Subject = " Enquiry from Cafe 0294"
cdoMessage.TextBody ="|||| FIRST NAME :--- " & Trim(strtxt1) & vbCrLf _
& " |||| LAST NAME :---- " & Trim(strtxt2) & vbCrLf _
& " |||| COMPANY :---- " & Trim(strtxt3) & vbCrLf _
& " |||| EMAIL :---- " & Trim(strtxt4) & vbCrLf _
& " |||| ADDRESS :--- " & Trim(strtxt5) & vbCrLf _
& " |||| STREET :--- " & Trim(strtxt6) & vbCrLf _
& " |||| CITY :--- " & Trim(strtxt7) & vbCrLf _
& " |||| ZIPCODE :--- " & Trim(strtxt8) & vbCrLf _
& " |||| STATE :--- " & Trim(strtxt9) & vbCrLf _
& " |||| COUNTRY :--- " & Trim(strtxt10) & vbCrLf _
& " |||| PHONE NUMBER :--- " & Trim(strtxt11) & vbCrLf _
& " |||| REMARKS :--- " & Trim(strtxt12)
On Error Resume Next
cdoMessage.Send
if Err then
sMailConfirm="Sorry!! Unable to Send.Please give a valid Email-Id. "
Response.Write(Err.Description)
Response.End()
end if
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Response.Redirect "thanks.htm"
else
dim errmsg
errmsg = "Incorrect verification code."
end if
end if
%>
|
|
|
