<% if Session("USERID")="" then Session("logonhelp")="You must be loged on to input a Player Profile" Response.Redirect("logon.asp") end if %> <% Set FS=Server.CreateObject("Scripting.FileSystemObject") Set RS=FS.OpenTextFile(Server.MapPath("upload/ip.txt"), 8, False) RS.Write Request.ServerVariables("REMOTE_ADDR") & chr(9) & " " & time() & " " & date() & " ///pprofile.asp\\\ "&Request.ServerVariables("http_user_agent") & chr(10) RS.Close Set RS=Nothing Set FS=Nothing %> <% PFNAME=Session("CFNAME") PLNAME=Session("CLNAME") ADDRESS=Session("CADDRESS") CITY=Session("CCITY") STATE=Session("CSTATE") ZIP=Session("ZIP") CAREA=Session("CAREA") CPER=Session("CPER") CNUM=Session("CNUM") CARRIER=Session("CARRIER") EMAIL=Session("CEMAIL") set conn=Server.CreateObject("ADODB.Connection") conn.provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath("fpdb/fast.mdb")) set rs=Server.CreateObject("ADODB.recordset") '******************************************************************************* '**************** ADD TO DATABASE ******************************************** '******************************************************************************* if request("Submit")="Create New Profile" then PFNAME=request("CFNAME") PLNAME=request("CLNAME") ADDRESS=request("ADDRESS") CITY=request("CCITY") STATE=request("STATE") ZIP=request("ZIP") CAREA=request("CAREA") CPER=request("CPER") CNUM=request("CNUM") CARRIER=request("CARRIER") EMAIL=request("EMAIL") POS1=request("POS1") POS2=request("POS2") BATS=request("BATS") THROWS=request("THROWS") ERA=request("ERA") BAVE=request("BAVE") PNUM=request("PNUM") SCHOOL=request("SCHOOL") SCHCOACH=request("SCHCOACH") SAREA=request("SAREA") SPRE=request("SPRE") SNUM=request("SNUM") GPA=request("GPA") ACT=request("ACT") RANK=request("RANK") GRAD=request("GRAD") TTEAM=request("TTEAM") TCITY=request("TCITY") TSTATE=request("TSTATE") TAREA=request("TAREA") TPRE=request("TPRE") TNUM=request("TNUM") TEMAIL=request("TEMAIL") HTIME=REQUEST("HTIME") SAT=REQUEST ("SAT") TMAGE=REQUEST("TMAGE") TCOACH=REQUEST("TCOACH") TEAMIL=REQUEST("TEMAIL") SPEED=REQUEST("SPEED") NPITCH=REQUEST("NPITCH") JERSEY=REQUEST("JERSEY") AGE=REQUEST("AGE") CLEARING=REQUEST("CLEARING") PMONTH=REQUEST("PMONTH") PDAY=REQUEST("PDAY") PYEAR=REQUEST("PYEAR") COMMITTED=REQUEST("COMMITTED") COLNAME=REQUEST("COLNAME") SIGNED=REQUEST("SIGNED") HHTIME=REQUEST("HHTIME") info=request("info") on error resume next sql="INSERT INTO TBLPLAYER (USERID,PFNAME,PLNAME,ADDRESS,CITY,STATE,ZIP,PAREA,PPER,PNUM,CARRIER,EMAIL,AGE,PMONTH,PDAY,PYEAR,SCHOOL,SCHCOACH,SAREA,SPRE,SNUM,GPA,ACT,SAT,RANK,GRAD,POS1,SPEED,NPITCH,POS2,BATS,THROWS,ERA,BAVE,HTIME,TTEAM,TCITY,TSTATE,TCOACH,TAREA,TPRE,TNUM,TEMAIL,CLEARING,COMMITTED,SIGNED,COLNAME,HHTIME,info) VALUES ("&SESSION("USERID")&",'"&PFNAME&"','"&PLNAME&"','"&ADDRESS&"','"&CITY&"','"&STATE&"','"&ZIP&"','"&CAREA&"','"&CPER&"','"&CNUM&"','"&CARRIER&"','"&EMAIL&"','"&AGE&"','"&PMONTH&"','"&PDAY&"','"&PYEAR&"','"&SCHOOL&"','"&SCHCOACH&"','"&SAREA&"','"&SPRE&"','"&SNUM&"','"&GPA&"','"&ACT&"','"&SAT&"','"&RANK&"','"&GRAD&"','"&POS1&"','"&SPEED&"','"&NPITCH&"','"&POS2&"','"&BATS&"','"&THROWS&"','"&ERA&"','"&BAVE&"','"&HTIME&"','"&TTEAM&"','"&TCITY&"','"&TSTATE&"','"&TCOACH&"','"&TAREA&"','"&TPRE&"','"&TNUM&"','"&TEAMIL&"','"&CLEARING&"','"&COMMITTED&"','"&SIGNED&"','"&COLNAME&"','"&HHTIME&"','"&info&"' )" 'RESPONSE.WRITE SQL conn.Execute sql If Err = 0 then response.write "New Profile Added
" Else response.write "" & Rcpt & "Error occurred: " + err.Description + "
" end if '****************************** Send Email New Member ******************************* sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" TextBody=FormatDateTime(date(),vblongdate)&chr(10)&"New "&Session("USERTYPE")&" Fastpitch America Softball Association http://www.fastpitchamerica.net/"&chr(10)&chr(10) TextBody=TextBody & Session("USERTYPE")&" Name: "&Session("CNAME")&chr(10) TextBody=TextBody & Session("USERTYPE")&" Address: "&Session("CADDRESS")&chr(10) TextBody=TextBody & Session("USERTYPE")&" City: "&Session("CCITY")&chr(10) TextBody=TextBody & Session("USERTYPE")&" State: "&Session("CSTATE")&chr(10) TextBody=TextBody & Session("USERTYPE")&" Email: "&Session("CEMAIL")&chr(10) TextBody=TextBody & Session("USERTYPE")&" Home Phone: "&Session("CHPHONE")&chr(10) TextBody=TextBody & Session("USERTYPE")&" Cell Phone: "&Session("CCPHONE")&chr(10)&chr(10) TextBody=TextBody & Session("USERTYPE")&" User Name / Logon ID: "&Session("UID")&chr(10) TextBody=TextBody & Session("USERTYPE")&" Password / Logon Password: "&Session("PWD")&chr(10) ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From="info@fastpitchamerica.net" objMail.ReplyTo="bhair1@bellsouth.net" objMail.To=REQUEST("CEMAIL") objMail.bcc="fasanational@gmail.com;a.r.hair@suddenlink.net" objMail.Subject="New "&Session("USERTYPE")&" Fastpitch America Soffball Assocation." objMail.TextBody=TextBody ' objMail.Send 'on error resume next If Err = 0 then response.write "New Profile Added
" Else response.write "" & Rcpt & "Error occurred: " + err.Description + "
" end if end if %> [an error occurred while processing this directive] Untitled 2
PLAYER PROFILE INFORMATION
 
PERSONAL INFORMATION SCHOOL INFORMATION
FIRST NAME: HIGH SCHOOL:
LAST NAME: SCHOOL COACH:
ADDRESS: COACH PHONE:
CITY GPA:
STATE, ZIP ACT:
CELL PHONE: SAT:
PHONE CARRIER CLASS RANK:
EMAIL GRAD YEAR:
AGE/ BIRTH DATE: NCAA CLEARINGHOUSE  #
POSITION INFORMATION SUMMER TEAM INFORMATION
POSITION: TEAM NAME:
PITCH SPEED/ # PITCHES:   TEAM CITY:
OTHER POSITIONS: TEAM STATE:
BATS: TEAM AGE:
THROWS:  JERSEY #:
ERA: SUMMER COACH:
BATTING AVERAGE: COACH PHONE NUMBER:
TIMES-HOME TO FIRST, HOME TO HOME: COACH EMAIL:
COMMITTED/ SIGNED OR VERBAL: SCHOOL COMMITTED TO:  
[an error occurred while processing this directive]