Here is the front-end HTML form ,
<form method="POST" action="contact.asp"> Fields marked (*) are required <p>Email From:* <br> <input type="text" name="EmailFrom"> <p>Name:<br> <input type="text" name="Name"> <p>TelephoneNumber:* <br> <input type="text" name="TelephoneNumber"> <p>Street1:<br> <input type="text" name="Street1"> <p>Street2:<br> <input type="text" name="Street2"> <p>City:<br> <input type="text" name="City"> <p>County:<br> <input type="text" name="County"> <p>YourMessage:<br> <textarea name="YourMessage"></textarea> <p><input type="submit" name="submit" value="Submit"> </form> <p>
and here is the back-end form supposed to send the email .. I dont get any email when I check my email box to test it,
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Untitled Document</title> </head> <body> <% ' Website Contact Form Generator ' http://www.tele-pro.co.uk/scripts/contact_form/ ' This script is free to use as long as you ' retain the credit link ' declare variables Dim EmailFrom Dim EmailTo Dim Subject Dim Name Dim TelephoneNumber Dim Street1 Dim Street2 Dim City Dim County Dim YourMessage ' get posted data into variables EmailFrom = Trim(Request.Form("EmailFrom")) EmailTo = "[email protected]" Subject = "Contact" Name = Trim(Request.Form("Name")) TelephoneNumber = Trim(Request.Form("TelephoneNumber")) Street1 = Trim(Request.Form("Street1")) Street2 = Trim(Request.Form("Street2")) City = Trim(Request.Form("City")) County = Trim(Request.Form("County")) YourMessage = Trim(Request.Form("YourMessage")) ' validation Dim validationOK validationOK=true If (Trim(EmailFrom)="") Then validationOK=false If (Trim(TelephoneNumber)="") Then validationOK=false If Not (IsNumeric(TelephoneNumber)) Then validationOK=false If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom) ' prepare email body text Dim Body Body = Body & "Name: " & Name & VbCrLf Body = Body & "TelephoneNumber: " & TelephoneNumber & VbCrLf Body = Body & "Street1: " & Street1 & VbCrLf Body = Body & "Street2: " & Street2 & VbCrLf Body = Body & "City: " & City & VbCrLf Body = Body & "County: " & County & VbCrLf Body = Body & "YourMessage: " & YourMessage & VbCrLf ' send email Dim mail Set mail = Server.CreateObject("CDO.Message") mail.To = EmailTo mail.From = EmailFrom mail.Subject = Subject mail.TextBody = Body mail.Send if validationOK = true then response.redirect "error.html" 'your redirect page goes here' end if %>