% @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")&" cregister.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
%>
<%
on error resume next
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")
COLLEGE=Request("COLLEGE")
DIVISION=Request("DIVISION")
' 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
if Mid(cemail,Len(cemail)-2,4)<>"edu" then
txtmassage=txtmassage & "
You must have a School Email Address."
NewUser = False
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,DIVISION,COLLEGE) VALUES ('"&UID&"','"&PWD&"','"&CEMAIL&"','"&CFNAME&"','"&CLNAME&"','"& CADDRESS&"','"&CCITY&"','"&CSTATE&"','"&ZIP1&"','"&HPAREA&"','"&HPER&"','"&HNUM&"','"&CAREA&"','"&CPER&"','"&CNUM&"','"&USERTYPE&"','"&CARRIER&"','"&CAREA&CPER&CNUM&CARRIER&"','"&DIVISION&"','"&COLLEGE&"')"
conn.Execute sql
sql = "SELECT * FROM tblUsers WHERE (UID='" & uid & "' AND PWD='" & pwd & "');"
rs.open sql, conn
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")
Session("COLLEGE") = rs.Fields("COLLEGE")
Session("SCHOOL")=rs.fields("SCHOOL")
Set objRS = Nothing
Set objCN = Nothing
sql="UPDATE TBLUSERS SET lastlogon='" & now() & "',IPADDRESS='" & Request.ServerVariables("REMOTE_ADDR") & "' WHERE USERID=" & Session("USERID")
conn.Execute 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
sql="UPDATE tblUSERS SET tblUSERS.USFAID ='FAST' & tblUSERS!SEASON & TBLUSERS!CSTATE & tblUSERS!HPAREA & tblUSERS!USERID WHERE USERID=" & Session("USERID")
conn.Execute 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 NewUser = True then
Response.Redirect("default.asp")
end if
END IF
%>
[an error occurred while processing this directive]