|
|
 |
ASP Feedback Form ScriptDownload the codeBelow is a basic feedback form script 'feedback.asp'. You can add your own validation. Once the visitor has filled in all the form textfields an email will be sent with the feedback details including the date and time and the visitor's IP address to the email specified in the script.
<html>
<head> <title>Feedback Form</title> </head> <body> <% 'If the form has not been submitted execute the following code If Request.Form="" Then %> <form method="post" action="feedback.asp" name="form1"> <div align="center">Send us your Feedback.<br> <br> </div> <div align="center"> <table width="75%" border="0"> <tr> <td>name</td> <td> <input type="text" name="txtName"> </td> </tr> <tr> <td>email</td> <td> <input type="text" name="txtEmail"> </td> </tr> <tr> <td>comment</td> <td> <textarea name="txtFeedback" cols="40" rows="7"></textarea> </td> </tr> <tr> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> <input type="submit" name="Submit" value="Submit"> <input type="reset" name="Reset" value="Reset"> </td> </tr> </table> </div> </form> <br> <% 'If the form has been submitted execute the following code Else 'receive the form values Dim sName, sEmail, sFeedback sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sFeedback=Request.Form("txtFeedback") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "<html>" sEmailText = sEmailText & "<head>" sEmailText = sEmailText & "<title>HTML Email</title>" sEmailText = sEmailText & "</head>" sEmailText = sEmailText & "<body>" sEmailText = sEmailText & "Feedback message from: " & sName & "<br>" sEmailText = sEmailText & "Message:" & sFeedback & "<br>" sEmailText = sEmailText & "Date & Time:" & Now() & "<br>" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "</body>" sEmailText = sEmailText & "</html>" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "michael@codefixer.com" 'change to your address NewMailObj.Subject = "Feedback" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "<div align='center'>Thank you for sending your feedback.<br>" Response.write "We will get back to you if necessary.</div>" End If %> </body> </html> If you have any code snippets to share with full credit given then send an email to Codesnippets - You'll receive full credit and a link back to your site. Site developed by Michael Wall - Web Design Belfast N.Ireland. |
|
