|
|
Member Login
|
|
|
|
Search Database |
|
Submit Player Info
|
|
Submit Coach Info
|
|
Submit Agent Info
|
|
|
|
Search Database
|
|
|
|
Become Member
|
|
© Copyright 2002 RBF, inc. and thereggaeboyz.com. All rights reserved.
|
|
|
|
<%
'connection
Dim con, cmd, rs
Set con = Server.CreateObject("ADODB.Connection")
con.Provider="Microsoft.Jet.OLEDB.4.0"
con.Open Server.Mappath("/database/rbf.mdb")
'command
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandType = 1
'recordset
Set rs = Server.CreateObject("ADODB.Recordset")
if Request.Form("txtSubmit") <> "" then
Dim strRd
strRd = checkString(Request("radiobutton"))
'get data from request
Dim FirstName, LastName, Address, Phone, City, Country, State, PostalCode, Email, Pwd
FirstName = checkString(Request.Form("txtfName"))
LastName = checkString(Request.Form("txtlName"))
Address = checkString(Request.Form("txtStreet"))
Phone = checkString(Request.Form("txtPhone"))
City = checkString(Request.Form("txtCity"))
Country = checkString(Request.Form("txtCountry"))
State = checkString(Request.Form("txtState"))
PostalCode = checkString(Request.Form("txtZip"))
Email = checkString(Request.Form("txtEmail"))
Pwd = checkString(Request.Form("txtPwd"))
Dim memberType, forwardPage
memberType = 0
forwardPage = "/"
select case strRd
case "player"
memberType = 1
forwardPage = "playerinput.asp"
case "coach"
memberType = 2
forwardPage = "coachesinput.asp"
case "agent"
memberType = 3
forwardPage = "agentinput.asp"
case "other"
memberType = 4
forwardPage = "register.asp"
End Select
cmd.CommandText = "INSERT INTO member (firstName, lastName, address1, phone, city, country, state, zipcode, email, [password], memberType) VALUES ('" & FirstName & "', '" & LastName & "', '" & Address & "', '" & Phone & "', '" & City & "', '" & Country & "', '" & State & "', '" & PostalCode & "', '" & Email & "', '" & Pwd & "', " & memberType & ")"
cmd.Execute()
cmd.CommandText = "SELECT TOP 1 id FROM member WHERE firstName='" & FirstName & "' AND lastName='" & LastName & "' AND email='" & Email & "' AND memberType=" & memberType & " ORDER BY id DESC"
Set rs = cmd.Execute()
Session("uid") = rs(0)
if rs.state = 1 then rs.close()
Response.Redirect(forwardPage)
end if
%>
Sign Up Now to become a Member. Only members will be able to view details of the resumes.
If you sign up as a Player, Coach or Agent, you will be prompted to complete your resume when you submit.
|
|
|
© Copyright 2002 RBF, inc. and thereggaeboyz.com. All rights reserved.
|
|
|
|
|
Resume Tips
|
|
College Requirements
|
|
Club Requirements
|
|
Find College
|
|
|
|
|
|
|
|
|
|
|