% dim mode mode=request.form("mode") if mode="2" then ReadFormVariables sql="insert into signup (firstname,lastname,email,company,zip,interest,createdate) values('" & firstname & "','" & lastname & "','" & email & "','" & company & "'," & zip & ",'" & interest & "','" & date() & "')" conn.execute(sql) signupemail message="Your Signup Has Been Submitted" end if sub signupemail() contactbody = "Thank you for signing up with ProPlayerFoundation.com, we will advise you via email of Foundation events and happenings." & vbCrlf contactbody = contactbody & "Should you have any questions please feel free to email Mary Betnardz at marybconsulting@adelphia.net."& vbCrLf & vbCrLf contactbody = contactbody & "Thank you for your support!"& vbCrLf & vbCrLf contactbody = contactbody & "John Carney & Darren Bennett" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Proplayers Foundation" Mailer.FromAddress = "info@chasetheweb.net" Mailer.Remotehost = "mail.chasetheweb.net" Mailer.AddRecipient firstname,email 'Mailer.AddRecipient "Elliot Springer","info@chasetheweb.net" Mailer.Subject = "Proplayers Foundation Sign Up" Mailer.Bodytext = contactbody Mailer.SendMail Set Mailer = Nothing end sub Sub ReadFormVariables() For Each Field In Request.Form TheString = Field & " = Request.Form(""" & Field & """)" Execute(TheString) Next End Sub %>
|
||||||||||||||||||||||||||||||||||||||||||||||||