Cassandra Software Feedback

<% @ Language=VBScript %> <%'This part actually sends the form if Request.Form("onlineForm") = " Submit " then 'Load Form Values MailHost = "mail.cassandrasoftware.com" Target = "sales@cassandrasoftware.com" Subject = "salesmail" ThankyouNote = "" 'Set Jmail component settings Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.Priority = 3 ' normal priority if Request.Form("email") <> "" then JMail.sender = Request.Form("email") else JMail.sender = "Online Form from GCI-net: salesmail.asp" end if JMail.ServerAddress = MailHost JMail.AddRecipient trim(Target) JMail.Subject = Subject 'This is what the email will look like: JMail.AppendText "" & vbCrLf ' JMail.AppendText vbCrLf & "" & vbCrLf JMail.AppendText vbCrLf & "" & now & "" & vbCrLf ' Contact JMail.AppendText "" & vbCrLf JMail.AppendText "" & trim(Request.form("name")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("occupation")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("company")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("email")) & "" & vbCrLf JMail.AppendText "

" & vbCrLf JMail.AppendText "" & trim(Request.form("address")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("city")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("state")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("zipcode")) & "" & vbCrLf JMail.AppendText "

" & vbCrLf JMail.AppendText "" & vbCrLf JMail.AppendText "" & trim(Request.form("phone_areacode")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("phone_exchange")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("phone_lastfour")) & "" & vbCrLf JMail.AppendText "" & trim(Request.form("phone_extension")) & "" & vbCrLf JMail.AppendText "" & vbCrLf JMail.AppendText "" & vbCrLf ' Product JMail.AppendText vbCrLf & "" & trim(Request.form("product")) & "" & vbCrLf ' Comments JMail.AppendText vbCrLf & "" & vbCrLf JMail.AppendText Request.form("comments") & vbCrLf JMail.AppendText vbCrLf & "" & vbCrLf ' JMail.AppendText vbCrLf & "" & vbCrLf JMail.Execute Jmail.close 'Response.redirect "/thanks.html" ThankyouNote = "Thank you, " & trim(Request.form("name")) & ".

" ThankyouNote = ThankyouNote & "Your message has been sent to sales@CassandraSoftware.com.

" ThankyouNote = ThankyouNote & "

Home Page

" Response.Write ThankyouNote else%> Cassandra Software Feedback

<%' This section sets up who the form will be sent to and how it wil get there %>

Please fill out the following information and we will contact you shortly.

Name:

Occupation / Specialty:

Company:

Address:

City, State, Zip:

Phone: () - ext.

Email:

Product:

Comments:

Home Page

<%end if%>

Name:
Occupation / Specialty:
Company:
Address:
City, State, Zip:
Phone:	() - ext.
Email:
Product:
Comments: