New Hope Ministries

<% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connSubscription_STRING Recordset1.Source = "SELECT * FROM tblAdminPrefernces " Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 sitename = Recordset1.Fields.Item("SiteName").Value strRecipients = Recordset1.Fields.Item("PayPalEMail").Value strMailMode = Recordset1.Fields.Item("strMailMode").Value strMailServer = Recordset1.Fields.Item("strMailServer").Value Dim varREFERINGPAGE varREFERINGPAGE = Request.ServerVariables("HTTP_REFERER") IF (CStr(Request("Submit")) <> "") THEN Response.Cookies("FromEmail").Expires = Date() + 365 Response.Cookies("ToEmail").Expires = Date() + 365 Response.Cookies("FromEmail") = Request.Form("FromEmail") Response.Cookies("ToEmail") = Request.Form("ToEmail") strRecipients = Request("ToEmail") strRecipients = strRecipients & "; " & strFrom strSender = Request.Form("FromEmail") strFromName = Request.Form("FromEmail") Response.Cookies("visitor") = strSender Response.Cookies("visitor").Expires = Date() + 365 strMessage = Request.Form("message") strMessage = strMessage & vbCrLf strSubject = "a message from " & strSender %> <% End If %> <% IF (CStr(Request("Submit")) <>"") THEN %>

Your Email has been sent.Your email has been sent to <%= Request.Form("ToEmail") %>. Here is a copy of what was sent:

From: <%= Request.Form("FromEmail") %>
To: <%= Request.Form("ToEmail") %>
Subject: <%= strSubject %>

Body: <%= strMessage %>

Back to where you came from. "><%= Request.Form("URL") %> <% set strMessage= nothing set strSubject= nothing set strSubject= varREFERINGPAGE %>

<% Else %>

Hello, thanks for telling a friend about this web site. don't worry I don't collect this data, we just pass along your message to your friend and send you a copy of the message.

You're about to send a link to this page. <%= varREFERINGPAGE %>

Your Email:	" size="45">
Your friend's Email address?	" size="45">
Your Message:	visit this web page: www.newhopemin.org!

<% End If %> <% Recordset1.Close() Set Recordset1= Nothing %>