<% @language="vbscript" %> <% Dim LPage:LPage=True %> [an error occurred while processing this directive] <% 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() & " #OF USERS "&Application("CurrentNumberOfUsers")&" pregister.asp TotalNumberOfUsers="& Application("TotalNumberOfUsers") & " Session.Timeout:"& Session.Timeout &" Name:"& Session("cname") & " "&Request.ServerVariables("http_user_agent") & chr(10) RS.Close Set RS=Nothing Set FS=Nothing %> <% IF Request.Form("Submit")="Create New User" then '******************************************************************************* '**************** ADD TO DATABASE ******************************************** '******************************************************************************* UID=Request("UID") PWD=Request("PWD") USERTYPE=Request("USERTYPE") CEMAIL=Request("CEMAIL") CFNAME=Request("CFNAME") CLNAME=Request("CLNAME") CADDRESS=Request("CADDRESS") CCITY=Request("CCITY") CSTATE=Request("CSTATE") ZIP1=request("ZIP1") ZIP2=request("ZIP2") HPAREA=request("HPAREA") HPER=request("HPER") HNUM=request("HNUM") CAREA=request("CAREA") CPER=request("CPER") CNUM=request("CNUM") CARRIER=request("Carrier") ' This function checks for a username/password combination for new user. Dim strSQL, objCN, objRS strSQL = "SELECT * FROM tblUsers WHERE (UID='" & uid & "' AND PWD='" & pwd & "');" Set objCN = Server.CreateObject("ADODB.Connection") objCN.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath(MDB_URL), dbUserName, dbPassword Set objRS = objCN.Execute(strSQL) If Not objRS.EOF then NewUser = False uidpwd="That user name and password is used." else NewUser = True end if strSQL = "SELECT CEMAIL FROM tblUsers WHERE (CEMAIL='" & cemail & "');" Set objRS = objCN.Execute(strSQL) If Not objRS.EOF then NewUser = False txtMassage=txtMassage & "
That EMAIL ADDRESS "&cemail&" is in use.
Recover your User Name and Password from Email Address." else NewUser = True end if on error resume next 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") if NewUser = True then sql="INSERT INTO TBLUSERS (UID,PWD,CEMAIL,CFNAME,CLNAME,CADDRESS,CCITY,CSTATE,ZIP1,HPAREA,HPER,HNUM,CAREA,CPER,CNUM,USERTYPE,CARRIER,TXTID,VEMAIL) VALUES ('"&UID&"','"&PWD&"','"&CEMAIL&"','"&CFNAME&"','"&CLNAME&"','"& CADDRESS&"','"&CCITY&"','"&CSTATE&"','"&ZIP1&"','"&HPAREA&"','"&HPER&"','"&HNUM&"','"&CAREA&"','"&CPER&"','"&CNUM&"','"&USERTYPE&"','"&CARRIER&"','"&CAREA&CPER&CNUM&CARRIER&"',False)" conn.Execute sql If Err = 0 then response.write "Success!
" Else response.write "" & Rcpt & "Error occurred: " + err.Description + "
" end if response.write sql&"

" sql = "SELECT * FROM tblUsers WHERE (UID='" & uid & "' AND PWD='" & pwd & "');" rs.open sql, conn If Err = 0 then response.write "Success!
" Else response.write "" & Rcpt & "Error occurred: " + err.Description + "
" end if response.write sql&"

" If Not rs.EOF then Session("USERID") = rs.Fields("USERID") Session("UID") = rs.Fields("UID") Session("PWD") = rs.Fields("PWD") Session("CEMAIL") = rs.Fields("CEMAIL") Session("USERTYPE") = rs.Fields("USERTYPE") Session("ADMIN") = rs.Fields("ADMIN") Session("ENABLED") = rs.Fields("ENABLED") Session("LASTLOGON") = rs.Fields("LASTLOGON") Session("TIMESTAMP") = rs.Fields("TIMESTAMP") Session("CFNAME") = rs.Fields("CFNAME") Session("CLNAME") = rs.Fields("CLNAME") Session("CADDRESS") = rs.Fields("CADDRESS") Session("CEMAIL") = rs.Fields("CEMAIL") Session("CSTATE") = rs.Fields("CSTATE") Session("ZIP1") = rs.Fields("ZIP1") Session("ZIP2") = rs.Fields("ZIP2") Session("CCITY") = rs.Fields("CCITY") Session("CHPHONE") = "("&rs.Fields("HPAREA")&") "&rs.Fields("HPER")&"-"&rs.Fields("HNUM") Session("CCPHONE") = "("&rs.Fields("CAREA")&") "&rs.Fields("CPER")&"-"&rs.Fields("CNUM") Session("CNAME") = rs.Fields("CFNAME") & " " & rs.Fields("CLNAME") Session("CADDRESS") = rs.Fields("CADDRESS") Session("DSTATE") = rs.Fields("DSTATE") Session("DSTATE1") = rs.Fields("DSTATE1") Session("DAREA") = rs.Fields("DAREA") Session("DAREA1") = rs.Fields("DAREA1") Session("DREGION") = rs.Fields("DREGION") Session("HPAREA") = rs.Fields("HPAREA") Session("HPER") = rs.Fields("HPER") Session("HNUM") = rs.Fields("HNUM") Session("CAREA") = rs.Fields("CAREA") Session("CPER") = rs.Fields("CPER") Session("CNUM") = rs.Fields("CNUM") Session("CARRIER") = rs.Fields("CARRIER") Set objRS = Nothing Set objCN = Nothing sql="INSERT INTO tblplayer (USERID,EMAIL,PFNAME,PLNAME,ADDRESS,CITY,STATE,ZIP,PHONE,TXTID) VALUES ("&Session("USERID")&",'"&Session("CEMAIL")&"','"&Session("CFNAME")&"','"&Session("CLNAME")&"','"& Session("CADDRESS")&"','"&Session("CCITY")&"','"&Session("CSTATE")&"','"&Session("ZIP1")&"','("&Session("HPAREA")&") "&Session("HPER")&" "&Session("HNUM")&"','"&Session("CAREA")&Session("CPER")&Session("CNUM")&Session("CARRIER")&"')" conn.Execute sql If Err = 0 then response.write "Success!
" Else response.write "" & Rcpt & "Error occurred: " + err.Description + "
" end if response.write sql&"

" sql="UPDATE TBLUSERS SET lastlogon='" & now() & "',IPADDRESS='" & Request.ServerVariables("REMOTE_ADDR") & "' WHERE USERID=" & Session("USERID") conn.Execute sql If Err = 0 then response.write "Success!
" Else response.write "" & Rcpt & "Error occurred: " + err.Description + "
" end if response.write sql&"

" sql="UPDATE tblusers,TBLAREA SET tblusers.DAREA=TBLAREA.CODE,tblusers!DSTATE=TBLAREA.STATE,tblusers.DSECTION=TBLAREA.SECTION,tblusers!DREGION=TBLAREA.REGION WHERE tblusers.HPAREA LIKE TBLAREA.AREA AND USERID=" & Session("USERID") conn.Execute sql If Err = 0 then response.write "Success!
" Else response.write "" & Rcpt & "Error occurred: " + err.Description + "
" end if response.write sql&"

" sql="UPDATE tblUSERS SET tblUSERS.USFAID ='FAST' & tblUSERS!SEASON & TBLUSERS!CSTATE & tblUSERS!HPAREA & tblUSERS!USERID WHERE USERID=" & Session("USERID") conn.Execute sql If Err = 0 then response.write "Success!
" Else response.write "" & Rcpt & "Error occurred: " + err.Description + "
" end if response.write sql&"

" ' Set Cookie for next logon Response.Cookies("jsfpl")("1") = Request("uid") Response.Cookies("jsfpl")("2") = Request("pwd") Response.Cookies("jsfpl").Expires = Now+30 ' Cookie keep time in days: here is 30 days from present sql="DELETE * FROM tblUSERS WHERE ZIP1=123456" conn.Execute sql '****************************** 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=Session("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 end if conn.close set conn=nothing else end if if usertype="PLAYER" THEN Response.Redirect("pedit.asp") END IF END IF %> [an error occurred while processing this directive] <% response.write ""%> Player Registration at Fastpitch America Softball Association
<%=uidpwd&txtMassage%>

<%=msg_new%>
New Player Contact Information
First Name:
Last Name:
Address:
City:
State:
Zip Code: -
Home Phone: --
Cell Phone: --
Cell Phone Carrier
Email Address:
 
User Name:
Password:
<% if request("type")="umpire" then chk="checked" end if %> Select User Type Player
  
[an error occurred while processing this directive]