<%@ Language = "VBScript" %> <% Select Case Request.Querystring("Action") Case "Send" on error resume next 'Set variables Dim BackURL Dim strName Dim strEmail Dim strSubject Dim strMessage Dim strUserIP Dim strAddress Dim strPhone Dim strToEmail Dim daCdoMail 'Replace this email with your real email id strToEmail = "ideasmythsignup@gmail.com" BackURL = Request.ServerVariables("HTTP_REFERER") strName = Request.form("Name") strEmail = Request.form("Email") strSubject = Request.form("Subject") strMessage = Request.form("Message") strAddress = Request.form("Address") strPhone = Request.form("Phone") strMailingList = Request.Form("MailingList") strUserIP = Request.ServerVariables("REMOTE_ADDR") 'Create Mail Object Set daCdoMail = CreateObject("CDONTS.NewMail") daCdoMail.To = strToEmail daCdoMail.From = strEmail daCdoMail.Subject = strSubject daCdoMail.Body = "This message was sent by " & strName & " at " & Now() & ".

" & strMessage & "

Address: " & strAddress & "

Phone: " & strPhone & "

Mailing List: " & strMailingList 'You can change the mail body format setting below '0 = HTML, 1 = TEXT daCdoMail.BodyFormat = 0 'You can change the mail format setting below '0 = HTML, 1 = TEXT daCdoMail.MailFormat = 0 'Set Server Side Validation to make sure we got both sender and recipient email Id to send email If strToEmail = "" OR strEmail = "" Then Session("msg") = "Sender Email or Recipient Email is blank. This message can not be sent. Please try again" Response.redirect (BackURL) Else 'Now send email to the address you specified at line no. 16 daCdoMail.Send End If 'Destroy mail object Set daCdoMail = Nothing 'Create result text in a Session Session("MsgSent") = "Your email with subject [" & strSubject & "] has been sent. Thank you for writing to us." 'Redirect and show the result Response.redirect (BackURL) End Select %> Writing Workshops, Editing and Mentoring by IdeaSmyth - Victoria C. Rowan

<%If Session("msgSent") = "" Then%>

Contact
<%If Session("msg") <> "" Then%> <%End If%>
Creatrix-in-Chief: Victoria C. Rowan
Desk: 212-842-5956
Cell: 917-716-7587
VCRowan@IDEASMYTH.com
Thanks so much for dropping by--let IDEASMYTH know how we can keep in touch - you can sign up for our mailing list or just send us a note below:
<%=Session("msg")%> 
 
Your Name: ">
Your Email: ">
Add me to your mailing list:
Your Phone: ">
Your Street Address: ">
Subject:
Your Message:
 
 
<%Else%>
Thank you!

You will hear from me shortly!

<%End If 'Destroy session variables Session("MsgSent") = "" Session("msg") = "" %>