<%@ Language=VBScript %>
  <%
    Option Explicit
    %>
    <%
    ' -----------------------------------------------------
    ' CDONTS Email send script
    ' © http://www.designplace.org/
    ' Comments must remain intact for re-use of this code
    ' -----------------------------------------------------
    ' -- declare our variables --
    dim strFirstName, strLastName, strEmail, strAddress, strCity, strState, strZip, strCountry, strMessage, strFullName, strSubject
    '  -- attach our variables to the form elements held within the forms collection --
    strFirstName = Request.Form("FIRSTNAME") ' holds inputted name
    strLastName = Request.Form("LASTNAME") ' holds inputted name
	strFullName = strFirstName & " " & strLastName
    strEmail = Request.Form("EMAIL") ' holds inputted email address
	strAddress = Request.Form("ADDRESS") ' holds inputted address
	strCity = Request.Form("CITY") 'holds inputted city
	strState = Request.Form("STATE") 'holds inputted state
	strZip = Request.Form("ZIP") 'holds inputted zip
	strCountry = Request.Form("COUNTRY") 'holds inputted Country
    strMessage = Request.Form("MAINTEXT") ' holds inputted message
	strSubject = Request.Form("subject") 'holds the subject line
	dim strHost, msgtxt, Mail
		strHost = "mail.frymulti.com"
		Set Mail = Server.CreateObject("Persits.MailSender")
		' enter valid SMTP host
		Mail.Host = strHost
		Mail.From = Trim(strEmail) ' From address
		Mail.FromName = Trim(strFullName) ' optional
		Mail.AddAddress "siecus@siecus.org"
   msgtxt = Trim(strFirstName) & " " & Trim(strLastName) & vbCrLf _
    & Trim(strAddress) & vbCrLf & Trim(strCity) & ", " & Trim(strState) & "  " & Trim(strZip) & vbCrLf _
    & "E-Mail Address: " & Trim(strEmail) & vbCrLf _
    & Trim(strMessage) _
	&  vbCrLf & Trim(strFirstName) & " " & Trim(strLastName)
   		Mail.Subject = Trim(strSubject)
		' message body
		Mail.Body = msgtxt
		'strErr = ""
		'bSuccess = False
		'On Error Resume Next ' catch errors
		Mail.Send	' send message
		'If Err <> 0 Then ' error occurred
		'	strErr = Err.Description
		'else
		'	bSuccess = True
		'End If
		  ' -- execute confirmation page
   Response.Redirect "HHSthanks.htm"
   %>