<!-- #include file="_private/include/adovbs.inc" -->
<!-- #include file="_private/include/common.inc" -->
<!-- #include file="_private/include/datafunc.inc" -->
<!-- #include file="_private/include/urlenc.inc" -->
<!-- #include file="_private/include/create_account.inc" -->


<%
reg = request("reg")
email = request("email")
name = request("name")
paypal = request("paypal")

if reg = "" then
  SQL = "SELECT ID FROM Register WHERE email = '" & email & "'"
  reg = getfirstfield(SQL)
  if reg = "" then
    reg = createaccount(name,email,paypal,ref)
  end if
end if

strLogin = "http://spambat.com/share.asp?id=" & server.urlencode(sbEncrypt(reg)) 
           
admin_email = "admin@spambat.com"

if name <> "" then
  admin_subject = name & ", welcome to spamBat!"
  admin_text = name & "," & vbcrlf & vbcrlf 
else
  admin_subject = "Welcome to spamBat!"
end if  
  
  
admin_text = admin_text & _  
             "Thank you for joining the free spamBat affiliate program." & vbcrlf & vbcrlf & _
             "After you have made three sales (and earned $15) we will GIVE you a copy of " & _
             "spamBat FREE OF CHARGE!!!" & vbcrlf & vbcrlf
             
admin_text = admin_text & "This special offer is available until the end of " & _
             monthname(month(dateadd("m",2,now))) & " " & year(now) & " so we have prepared a few tools " & _
             "to help you with your marketing: " & vbcrlf & vbcrlf
             
admin_text = admin_text & "If you are a member of HitSnapper then send an email with the subject " & _
             "'GIMME MY FREE CREDITS NOW!' - if you are not a member yet then it's a good time to " & _
             "join!" & vbcrlf & vbcrlf & _
             "See http://hitsnapper.com/?spambat for more information.  Send your email to " & _
             "admin@hitsnapper.com along with the URL where you are advertising spamBat and they " & _
             "will reward you with 200 free credits on their exchange!" & vbcrlf & vbcrlf
             
admin_text = admin_text & "More tools and your referral URL can be found at " & _
             strLogin & vbcrlf & vbcrlf & "Thank you for choosing spamBat!" & vbcrlf & _
             "Regards," & vbcrlf & "The spamBat Team"

	Set objMail = server.CreateObject("CDONTS.Newmail")
	objMail.Send admin_email, email, admin_subject, admin_text
	Set objMail = Nothing


response.redirect "share_normal.asp?id=" & server.urlencode(sbEncrypt(reg))

%>