<% dim process process = request.querystring("PROCESS") if process = "YES" then dim paymentRS dim firstName, lastName, sex, email, phone, address, workphone, divisionyouplay, comments firstName = request.form("firstName") lastName = request.form("lastName") sex = request.form("sex") email = request.form("email") phone = request.form("phone") address = request.form("address") workphone = request.form("workPhone") division_you_play = request.form("division") comments = request.form("comments") dim str, strPlayer, strAdmin str = firstName & " " & lastName & "
" & vbCrLf _ & sex & "
" & vbCrLf _ & email & "
" & vbCrLf _ & phone & "
" & vbCrLf _ & address & "
" & vbCrLf _ & workphone & "
" & vbCrLf _ & divisionyouplay & "
" & vbCrLf _ & comments & "" & vbCrLf _ & " New ACRA Membership" & vbCrLf _ & " " & vbCrLf _ & "" & "
Make your own free website on Tripod.com
" & vbCrLf _ & "

New ACRA Membership

" & str & "" & vbCrLf _ & " " & vbCrLf strPlayer = "" & vbCrLf _ & "" & vbCrLf _ & " ACRA membership confirmation" & vbCrLf _ & " " & vbCrLf _ & "" & "" & vbCrLf _ & "

ACRA membership confirmation

" & str & vbCrLf _ & " http://www.fredericksburgtradedays.com" & vbCrLf _ & " " & vbCrLf dim adminMail Set adminMail = Server.CreateObject("CDONTS.NewMail") adminMail.From = "fredericksburgtradedays.com" adminMail.To = "gbustos@cmssa.com" adminMail.Subject = "Someone is added to the Vendor Waiting List" adminMail.Body = strAdmin adminMail.BodyFormat = 0 '0:Text,1:HTML adminMail.MailFormat = 0 '0:Text,1:HTML adminMail.Send Set adminMail = Server.CreateObject("CDONTS.NewMail") adminMail.From = "fredericksburgtradedays.com" adminMail.To = "gbustos@cmssa.com" adminMail.Subject = "Someone is added to the Vendor Waiting List" adminMail.Body = strAdmin adminMail.BodyFormat = 0 '0:Text,1:HTML adminMail.MailFormat = 0 '0:Text,1:HTML adminMail.Send dim playerMail Set playerMail = Server.CreateObject("CDONTS.NewMail") playerMail.From = "fredericksburgtradedays.com" playerMail.To = email playerMail.Subject = "Someone is added to the Vendor Waiting List" playerMail.Body = strPlayer playerMail.BodyFormat = 0 '0:Text,1:HTML playerMail.MailFormat = 0 '0:Text,1:HTML playerMail.Send end if %> ACRA Membership Form

<% if request.querystring("PROCESS") = "YES" then %> Thank You
Your information has been received.
We will contact you soon!

<% else %>

FredericksburgTrade Days Waiting List
* Required Fields
*First Name
*Last Name
Sex
Male Female
*Email
*Phone
Address
*Work Phone
Division You Play and Comments:

Submit Entry

<% end if %>