Thanks for referring EvilGerald.com

 

<% @language="vbscript" %> <% Sub Thanks() %>

Thanks for the plug. Click here to return return to the front page.


<% End Sub %> <% Sub IntroPage() %> Tell someone about evilgerald.com

Know someone with too much time on their hands? Tell them about evilgerald.com!



Friends Email Address:
e.g. username@domain.com
Your Email Address:
Subject:

Comments:

 




<% End Sub %> <% Sub DoRecords() %> <% 'dim strconn 'dim conn 'dim rs 'set conn = server.createobject("adodb.connection") 'conn.open strconn 'set rs = server.createobject("adodb.recordset") 'rs.open "PutYourTableNameHere", conn, 3, 3 'rs.addnew 'rs("name") = request("name") 'rs("emailaddress") = request("emailaddress") 'rs("phonenumber") = request("phonenumber") 'rs("comments") = request("comments") 'rs("DateSubmitted") = date() 'rs.update 'rs.close 'set rs = nothing 'conn.close 'set conn = nothing strBody = "Someone has recommended you check out www.evilgerald.com: " & request("YourEmailaddress") & chr(10) & chr(10) strBody = strBody & " Comments: " & chr(10) & request("comments") & chr(10) & chr(10) & chr(10) strBody = strBody & "" strBody = strBody & "" 'Mails a copy of this request to the oncall person set objNewMail = server.CreateObject("CDONTS.NewMail") objNewMail.From = request("YourEmailAddress") objNewMail.To = request("FriendsEmailAddress") objNewMail.CC = request("YourEmailAddress") objNewMail.BCC = "" objNewMail.Subject = request("Subject") objNewMail.Body = strBody objNewMail.Send set objNewMail = Nothing response.redirect "tellfriend2.asp?strMessage=Thanks" End Sub %> <% If request("btnSubmit") = "" and request("strMessage") = "" Then call IntroPage() End If If request("btnSubmit") = "Send the Info!" Then call DoRecords() End If if request("strMessage") <> "" Then call Thanks() End If %>