<% strFunc = CStr(Request("strFunc")) If strFunc = "send" Then strName = CStr(Request("dName")) strEmail = CStr(Request("dEmail")) strPhone = CStr(Request("dPhone")) strAddress = CStr(Request("dAddress")) strHow = CStr(Request("dHow")) strWhat = CStr(Request("dWhat")) strCheck1 = CStr(Request("dEmailme")) strCheck2 = CStr(Request("dCallme")) Set objMail = Server.CreateObject("JMail.SMTPMail") objMail.ServerAddress = localhost objMail.Sender = "lemmycat@ureach.com" objMail.AddRecipient "lemmycat@ureach.com" objMail.Subject = "Kitchen Prescriptions Mailing List" objMail.Body = "Name: " & strName & vbCrLf & vbCrLf & "E-Mail: " & strEmail & vbCrLf & vbCrLf & "Phone: " & strPhone & vbCrLf & vbCrLf & "Address: " & strAddress & vbCrLf & vbCrLf & "How did you hear about KitchenRX: " & strHow & vbCrLf & vbCrLf & "What is your interest: " & strWhat & vbCrLf & vbCrLf & "E-mail please: " & strCheck1 & vbCrLf & vbCrLf & "Call please: " & strCheck2 & vbCrLf & vbCrLf objMail.Priority = 1 objMail.ContentType = "text/plain" objMail.Charset = "US-ASCII" objMail.ContentTransferEncoding = "8bit" If strEmail <> "" Then If objMail.Execute Then Response.Write "You have joined the Kitchen RX mailing list, look forward to tips and updates in your mail box." Else Response.Write "    There was a problem sending your mail.
    Please go back and try again.

" End If End If Else %>

Join the Kitchen Prescriptions mailing list for tips and updates.

Name:

E-mail:

Phone Number:

Mailing Address:

How did you hear about Kitchen RX?:

What is your interest in Kitchen RX?
(Special diet, too busy to cook, etc.)

Preferred Communication:
E-mail
Telephone
  

<% End If %>