<%
if Request.Form("S1")= "SUBMIT INFORMATION" then
tt = Request.Form("title")
fm = Request.Form("fname")
mm = Request.Form("mname")
lm = Request.Form("lname")
adr = Request.Form("address")
cty = Request.Form("street")
sta = Request.Form("state")
cnt = Request.Form("country")
teo = Request.Form("tel_o")
tem = Request.Form("tel_m")
eml = Request.Form("email")
txt = Request.Form("service")
msg = ""
msg = msg + tt + " " + fm + " " + mm +" " + lm + "
"
msg = msg + adr +"
"
if cty <> "" or isNull(cty) = False then
msg = msg + cty +", "
end if
if sta <> "" or isNull(sta) = False then
msg = msg + sta + "
"
end if
if cnt <> "" or isNull(cnt) = False then
msg = msg + cnt +"
"
end if
if teo <> "" or isNull(teo) = False then
msg = msg + "Phone :: " + teo + ", "
end if
if tem <> "" or isNull(tem) = False then
msg = msg + tem + "(M)
"
else
if teo <> "" or isNull(teo) = False then
msg = msg & "
"
end if
end if
if eml <> "" or isNull(eml) = False then
msg = msg + "E-mail :: " + "" & eml & "
"
end if
msg = msg & "
"
msg = msg & "Has written the following feedback below:
"
msg = msg & "
"
msg = msg & txt & "
"
msg = msg & "
"
'msg = msg + "Title = " & tt
'msg = msg + "
First Name = " & fm
'msg = msg + "
Middle Name = " & mm
'msg = msg + "
Last Name = " & lm
'msg = msg + "
Address = " & adr
'msg = msg + "
City = " & str
'msg = msg + "
State = " & sta
'msg = msg + "
Country = " & cnt
'msg = msg + "
Telephone(O/R) = " & teo
'msg = msg + "
Mobile = " & tem
'msg = msg + "
Email = " & eml
'msg = msg + "
Comments/Suggestions = " & 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.Item(sch & "smtpserver") = "mail.neryc.in"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
'cdoMessage.From = "webmaster@neryc.in"
cdoMessage.From = Request.Form("email")
cdoMessage.To = "director@neryc.in"
cdoMessage.Subject = "Ask for Feedback"
cdoMessage.HTMLBody = msg
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Response.Redirect("message.asp")
Response.Write("
We have recieved your information.")
Response.Write("
We would try to contact you as soon as possible. | | ")
else
%>
|
|
| |
