<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if Request.Form("btnSubmit") = "Submit" then rsFName = Request.Form("fname") rsLName = Request.Form("lname") rsEmail = ReplaceString(Request.Form("email"), " ", "") if Request.Form("email") = "" then err = 1 end if rsAddress = Request.Form("address") rsCity = Request.Form("city") rsState = Request.Form("state") rsZip = Request.Form("zip") rsCountry = Request.Form("country") rsPixels = Request.Form("nopixels") rsAmount = Request.Form("amount") rsMessage = Request.Form("message") longname = rsFName & " " & rsLName mSubject = longname & " wants to buy some pixels!" body = "Name: " & rsFName & " " & rsLName & "." & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Email: " & rsEmail & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Address: " & rsAddress & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "City: " & rsCity & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "State: " & rsState & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Zip: " & rsZip & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Country: " & rsCountry & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Pixels: " & rsPixels & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Amount: $" & rsAmount & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ rsMessage & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ Chr(13) & Chr(10) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.worthwhile.com" Mailer.FromName = longname Mailer.FromAddress = rsEmail Mailer.AddRecipient "Jonathan Pait", "jonathan@pait.org" Mailer.Subject = mSubject Mailer.BodyText = body Mailer.Sendmail if not err = 1 then action = "complete" end if end if %> Buy your pixels for my Vespa!
Thank you for helping me buy my Vespa a new 200cc engine!
Fill out the form below and I'll be right back at you with an email about what you need to send me in the way of your ad as well as a link to your payment options.
I've got to know who you are and how to contact you just in case you win the $100 drawing at the conclusion of the promotion. I'll be sending the check to the address below, so make sure it is correct!

<% if err = 1 then %> <% end if %>
You must enter an email address.
First Name: ">
Last Name: ">
bgcolor="#993300"><% else %> ><% end if %>Email: ">
Address: ">
City: ">
State: "> Example: SC
Zip: ">
Country: ">
Leave blank if United States

Okay, now we need to get how many pixels you want to cover. Remember, you must purchase at least 1000 pixels. It will only set you back $10.

No. of pixels: "> Do not include a comma
To get your total dollar amount, multiple pixels by $.01.
Total $ Amnt: "> All charges will be US dollars.
Message:
Note: By clicking submit you are confirming that all the above information is correct and that you agree to pay the amount you have entered.

  

Vespatude.com: Home | Pixel Page
<% If action = "complete" then Response.Redirect "index.asp" end if %>