| |
 |
 |
 |
 |
 |
|
 |
 |
|
 |
|
 |
 |
 |
|
 |
|
 |
|
 |
 |
|
 |
|
 |
|
 |
|
 |
 |
|
<%
dim objParam
if Request.form("name") <> "" then
Response.write("Hi ! "&request.form("name")&",
Thank You For Your Interest.")
Response.write("
We will get back to you as soon as your status is reviewed.
")
Dim objMsg, strFrom, strTo, strSubject, strBody
strFrom = request.form("email")
strTo = "varun@alliedwires.com"
strSubject = "Enquiry Through Website"
strBody = "Sir/Madam my " & "Name is " & request.form("name") _
& "
" & "Address : " & request.form("address") _
& "
" & "Country : " & request.form("country") _
& "
" & "Phone : " & request.form("phone") _
& "
" & "Fax : " & request.form("fax") _
& "
" & "Email : " & request.form("email") _
& "
" & "Comments : " & request.form("comments") _
& ""
Set objMsg = Server.CreateObject("CDONTS.NewMail")
objMsg.From = strFrom
objMsg.To = strTo
objMsg.Subject = strSubject
objMsg.BodyFormat = 0
objMsg.MailFormat = 0
objMsg.Body = strBody
objMsg.Send
Set objMsg = Nothing
''''' End of Mail Generation
end if
%>
|
|
|
|
 |
|
 |
|
| |
|
|
|
|
|
|
|
|
|
