Make your own free website on Tripod.com
Your Name:
Email:

Submission/Question/Comment:

(HTML is allowed)

<% 'Thanks to http://kbamert.tripod.com/test_online_forum.html 2 3 ' email values to Set in form 4 ' -------------------------------- 5 ' SendersName 6 ' SendersEmail 7 ' EmailSubject 8 ' EmailRecipient 9 ' message 10 ' thanksPage 11 12 13 14 15 ' Set up email values 16 sendersName=request("SendersName") 17 sendersEmail=request("SendersEmail") 18 if sendersName="" then sendersName=sendersEmail 19 20 EmailSubject=request("EmailSubject") 21 if emailSubject="" then emailSubject="No Subject" 22 23 ' I hardcode the email recipient but you might want this flexibility 24 EmailRecipient=request("EmailRecipient") ' required 25 26 27 if emailRecipient="" then 28 response.Write("Sorry, recipient required!") 29 response.End 30 end if 31 32 message=request("message") 33 if message="" then message="No message" 34 35 36 37 ' create email 38 Set objNewMail = Server.CreateObject("CDONTS.NewMail") 39 40 objNewMail.From = sendersName & "<" & sendersEmail & ">" 41 objNewMail.Subject = request("EmailSubject") 42 objNewMail.To = EmailRecipient 43 objNewMail.Body = message & vbcrlf & vbcrlf & "Host:" & request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Referer:" & request.ServerVariables("HTTP_REFERER") 44 45 46 ' send email 47 objNewMail.Send 48 Set objNewMail = Nothing 49 50 51 ' show thankyou page 52 if not request("thanksPage")="" then 53 response.Redirect(request("thanksPage")) 54 else 55 response.write("Thank you for your feedback.") 56 end if 57 response.End 58 59 %>