|
|
|
<%
if Request.Form("S1")= "Submit" then
nm = Request.Form("na")
adr = Request.Form("ad")
cit = Request.Form("ci")
sta = Request.Form("st")
ema = Request.Form("em")
pho = Request.Form("ph")
txt = Request.Form("msgtxt")
subj = Request.Form("subje")
msg = ""
msg = msg + "Name = " & nm
msg = msg + "
Address = " & adr
msg = msg + "
City = " & cit
msg = msg + "
Domain = " & sta
msg = msg + "
E-mail = " & ema
msg = msg + "
Phone = " & pho
msg = msg + "
Comments from User : "
msg = msg + "
" & txt
msg = msg + ""
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "postmaster@smandsons.com"
cdoMessage.To = "contact@smandsons.com"
cdoMessage.Bcc = "kuwarraj@hotmail.com"
cdoMessage.Subject = "Contact Mail from Website"
cdoMessage.HTMLBody = msg
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Response.Write("We have recieved your information.")
Response.Write("
We would try to contact you within next 24 Hours.")
else
%>
Please complete this form and we shall try to respond as soon as possible.
To know the Contact Information, Please Click Here.
|
IMPORTANT NOTICE! We respect your privacy and will NEVER sell or
distribute your personal information to anyone, for any reason. |
|
<% end if %>
.
|
