 |
|
|
| CONTACT US |
|
<%
if Request.Form.count > 0 then
Dim objNewMail
Dim szText
szText = "Name: " & Request.Form("Name") & "" & Chr(13) & Chr(10)
szText = szText & "Address: " & Request.Form("address") & "" & Chr(13) & Chr(10)
szText = szText & "Telephone: " & Request.Form("Tel") & "" & Chr(13) & Chr(10)
szText = szText & "Comments: " & Request.Form("comments") & "" & Chr(13) & Chr(10)
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = Request.Form("email")
objNewMail.To = "ustrendzindia@yahoo.com"
objNewMail.Subject = "Requirement: U.S.TRENDZ " & Now
objNewMail.Body = szText
objNewMail.Send
Set objNewMail = Nothing
%>
|
Your message has
been sucessfully sent.
|
<%
End if
%>
<% if Request.Form.count = 0 then %>
Thank you
for visiting our Web site. Please fill out the following
form to request information about our products and
services or to provide feedback about our site.
<% End if %> |
|
|
|
 |
|
|
|
|
 |
 |
|
|
|
