%@LANGUAGE="VBSCRIPT"%> <% ' *** Send Feedback From A Web Page - CDOMail_103 Dim usxCDO Set usxCDO = Server.CreateObject("CDONTS.NewMail") usxCDO.From = cStr(Request("textFrom")) usxCDO.To = "nancy@webwish.com" usxCDO.Subject = "Quick Contact Form" usxCDO.Body = Chr(13) & Chr(10) & "Name: " & cStr(Request("textName")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Feedback: " & cStr(Request("textBody")) If (CStr(Request("Submit")) <> "") Then usxCDO.Send Set usxCDO = Nothing Response.Redirect("home.asp") End If %>
![]() ![]() ![]() |
|||||||||
| Contact Solutions Forward | |||||||||
|
Contact Us Solutions Forward On the web
|
Home | About Us | Seminars | Contact Us . |