<% strID = request.querystring("id") if strID <> "" then lngID = sbDecrypt(strID) else lngID = "" end if if lngID <> "" then SQL = "SELECT * FROM Register WHERE ID=" & lngID set rs = createobject("ADODB.Recordset") rs.Open SQL, myDSN name = rs("name") email = rs("email") paypal_email = rs("paypal_email") if paypal_email = "" then paypal_email = "[Not provided yet]" end if set rs = nothing end if %>

Share spamBat with your friends and colleagues and earn $5 a time!

<%=name%>, so far spamBat's popularity has grown almost entirely by recommendation and word of mouth.  Our advertising budget estimates a cost of each sale to be approximately $5.  So here's an idea, if you introduce someone to spamBat, as we haven't had to advertise, doesn't it make sense we pay YOU $5 for the lead?

Use the following URL to introduce people to spamBat and if they decide to buy, we pay you the $5 directly into your PayPal account!

Your Referral URL http://spambat.com?r=<%=lngID%>
Your Referral Letter http://spambat.com/letter.asp?r=<%=lngID%>
Your PayPal Email <%=paypal_email%> ">change

 

 

 

 

 

<%w=1%>