<%
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")
str = 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 + "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") = "webmail.majesticmonsoonshillong.com"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
'cdoMessage.From = "webmaster@majesticmonsoonshillong.com"
cdoMessage.From = Request.Form("email")
cdoMessage.To = "info@majesticmonsoonshillong.com"
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
%>
|
|
| |
&
Web.com
(Indai) Pvt. Ltd.