<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%if(request("email") <> "") then
LBody=LBody&"
"
LBody=LBody&"
"
LBody=LBody&"
Email:
"
LBody=LBody&"
"&Request("email")&"
"
LBody=LBody&"
"
LBody=LBody&"
"
LBody=LBody&"
Name:
"
LBody=LBody&"
"&Request("name")&"
"
LBody=LBody&"
"
LBody=LBody&"
"
LBody=LBody&"
Subject:
"
LBody=LBody&"
"&Request("subject")&"
"
LBody=LBody&"
"
LBody=LBody&"
"
LBody=LBody&"
Comment:
"
LBody=LBody&"
"&Request("commnets")&"
"
LBody=LBody&"
"
LBody=LBody&"
"
sch = "http://schemas.microsoft.com/cdo/configuration/"
on error resume next
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "127.0.0.1"
.update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = request("email")
.To = "tony@swagatham.in"
.Subject = "Legacy Clubs Enquiry"
.HTMLBody =LBody
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
If Err.number <> 0 Then
msg= "Error in sending mail.Try again " & err.description
else
msg = "Your details posted sucessfully."
end if
Response.Write(msg)
end if%>
Contact Us