%
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]