|
|
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.
|
|
|
|
<%
'common variables
Dim uid, selected
uid = Session("uid")
'connection
Dim con, cmd, rs, strSQL
Set con = Server.CreateObject("ADODB.Connection")
'con.Open "reggaedb"
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")
Dim FirstName, LastName, Address, Phone, City, Country, State, PostalCode, Email, password
Dim txtDOB1, txtDOB2, txtDOB3, birthDate, height, weight, sex, nationality, position, level, teamCategory, teamName, playedList, spclAchv, collegeName, gpa, hsName, video, stats, coachName, agentName
if Request.Form("txtSubmit") = "" then
if uid <> "" then
cmd.CommandText = "SELECT TOP 1 firstName, lastName, address1, phone, city, country, state, zipcode, email, [password] FROM member WHERE id=" & uid
Set rs = cmd.Execute()
if not rs.EOF then
FirstName = decodeString(rs(0))
LastName = decodeString(rs(1))
Address = decodeString(rs(2))
Phone = decodeString(rs(3))
City = decodeString(rs(4))
Country = decodeString(rs(5))
State = decodeString(rs(6))
PostalCode = decodeString(rs(7))
Email = decodeString(rs(8))
password = decodeString(rs(9))
rs.close()
end if
cmd.CommandText = "SELECT TOP 1 birthDate, height, weight, sex, nationality, [position], [level], teamCategory, teamName, playedList, spclAchv, collegeName, gpa, hsName, video, stats, coachName, agentName FROM player WHERE id=" & uid
Set rs = cmd.Execute()
if not rs.EOF then
birthDate = decodeString(rs(0))
height = decodeString(rs(1))
weight = decodeString(rs(2))
sex = decodeString(rs(3))
nationality = decodeString(rs(4))
position = decodeString(rs(5))
level = decodeString(rs(6))
teamCategory = decodeString(rs(7))
teamName = decodeString(rs(8))
playedList = decodeString(rs(9))
spclAchv = decodeString(rs(10))
collegeName = decodeString(rs(11))
gpa = decodeString(rs(12))
hsName = decodeString(rs(13))
video = decodeString(rs(14))
stats = decodeString(rs(15))
coachName = decodeString(rs(16))
agentName = decodeString(rs(17))
rs.close
if isDate(birthDate) then
txtDOB1 = fixLength(datePart("m",birthDate),2)
txtDOB2 = fixLength(datePart("d",birthDate),2)
txtDOB3 = fixLength(datePart("yyyy",birthDate),4)
end if
end if
end if
else
'update database
firstName = encodeString(Request.Form("txtfName"))
lastName = encodeString(Request.Form("txtlName"))
address1 = encodeString(Request.Form("txtaddress1"))
state = encodeString(Request.Form("txtState"))
zipcode = encodeString(Request.Form("txtZip"))
country = encodeString(Request.Form("txtCountry"))
phone = encodeString(Request.Form("txtphone"))
email = encodeString(Request.Form("txtEmail2"))
city = encodeString(Request.Form("txtCity"))
password = encodeString(Request.Form("txtpasswd"))
birthdate = encodeString(Request("txtDOB1")) & "/" & encodeString(Request("txtDOB2")) & "/" & encodeString(Request("txtDOB3"))
if isDate(birthdate) then
txtDOB1 = fixLength(datePart("m",birthDate),2)
txtDOB2 = fixLength(datePart("d",birthDate),2)
txtDOB3 = fixLength(datePart("yyyy",birthDate),4)
birthdate = "#" & birthdate & "#"
else
birthdate = "Null"
end if
height = encodeString(Request("txtheight"))
weight = encodeString(Request("txtweight"))
if not isNumeric(weight) then weight = "Null"
sex = encodeString(Request("sex"))
if not isNumeric(sex) then sex = "Null"
nationality = encodeString(Request("txtPlayerNat"))
position = encodeString(Request("PlayerPOS"))
if not isNumeric(position) then position = "Null"
level = encodeString(Request("PlayerLevel"))
if not isNumeric(level) then level = "Null"
teamCategory = encodeString(Request("PlayerTeam"))
if not isNumeric(teamCategory) then teamCategory = "Null"
teamName = encodeString(Request("txtPlayerTeamName"))
playedList = encodeString(Request("PlayerPlayedList"))
spclAchv = encodeString(Request("PlayerSpclAchv"))
collegeName = encodeString(Request("PlayerCollegeName"))
gpa = encodeString(Request("PlayerGPA"))
if not isNumeric(gpa) then gpa = "Null"
hsName = encodeString(Request("PlayerHSName"))
video = encodeString(Request("PlayerVideo"))
if not isNumeric(video) then video = "Null"
stats = encodeString(Request("PlayerStats"))
if not isNumeric(stats) then stats = "Null"
coachName = encodeString(Request("PlayerCoachName"))
agentName = encodeString(Request("PlayerAgentName"))
if uid <> "" then
cmd.CommandText = "SELECT COUNT(*) FROM member WHERE id=" & uid
Set rs = cmd.Execute()
if rs(0) = 0 then
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 & "', '" & password & "', 1)"
cmd.Execute()
else
cmd.CommandText = "UPDATE member SET firstName='" & FirstName & "', lastName='" & LastName & "', address1='" & Address & "', state='" & State & "', zipcode='" & PostalCode & "', country='" & Country & "', phone='" & Phone & "', email='" & Email & "', city='" & City & "', [password]='" & password & "' WHERE id=" & uid
cmd.Execute()
end if
rs.close
cmd.CommandText = "SELECT COUNT(*) FROM player WHERE id=" & uid
Set rs = cmd.Execute()
if rs(0) = 0 then
cmd.CommandText = "INSERT INTO player (id, birthDate, height, weight, sex, nationality, [position], [level], teamCategory, teamName, playedList, spclAchv, collegeName, gpa, hsName, video, stats, coachName, agentName) VALUES (" & uid & ", " & birthdate & ", '" & height & "', " & weight & ", " & sex & ", '" & nationality & "', " & position & ", " & level & ", " & teamCategory & ", '" & teamName & "', '" & playedList & "', '" & spclAchv & "', '" & collegeName & "', " & gpa & ", '" & hsName & "', " & video & ", " & stats & ", '" & coachName & "', '" & agentName & "')"
cmd.Execute()
else
cmd.CommandText = "UPDATE player SET birthdate=" & birthdate & ", height='" & height & "', weight=" & weight & ", sex=" & sex & ", nationality='" & nationality & "', [position]=" & position & ", [level]=" & level & ", teamCategory=" & teamCategory & ", teamName='" & teamName & "', playedList='" & playedList & "', spclAchv='" & spclAchv & "', collegeName='" & collegeName & "', gpa=" & gpa & ", hsName='" & hsName & "', video=" & video & ", stats=" & stats & ", coachName='" & coachName & "', agentName ='" & agentName & "' WHERE id=" & uid
cmd.Execute
end if
rs.close
else
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 & "', '" & password & "', 1)"
cmd.Execute()
cmd.CommandText = "SELECT TOP 1 id FROM member WHERE firstName='" & FirstName & "' AND lastName='" & LastName & "' AND email='" & Email & "' AND memberType=1 ORDER BY id DESC"
Set rs = cmd.Execute()
Session("uid") = rs(0)
uid = rs(0)
cmd.CommandText = "INSERT INTO player (id, birthDate, height, weight, sex, nationality, [position], [level], teamCategory, teamName, playedList, spclAchv, collegeName, gpa, hsName, video, stats, coachName, agentName) VALUES (" & uid & ", " & birthDate & ", '" & height & "', " & weight & ", " & sex & ", '" & nationality & "', " & position & ", " & level & ", " & teamCategory & ", '" & teamName & "', '" & playedList & "', '" & spclAchv & "', '" & collegeName & "', " & gpa & ", '" & hsName & "', " & video & ", " & stats & ", '" & coachName & "', '" & agentName & "')"
cmd.Execute()
rs.close
end if
Response.Redirect("registerComplete.asp")
end if
%>
CREATE PLAYER PROFILE
If you are a professional, amateur, college or talented player, you can create your own online resume by submitting the form below. Your information will appear immediately in the database giving you exposure to coaches, teams and agents.
Some fields are optional. We recommend that you fill in as much information as possible. The more complete your resume, the better chance a coach or agent will have to qualify you as a player they are seeking
|
|
|
|
|
Resume Tips
|
|
College Requirements
|
|
Club Requirements
|
|
Find College
|
|
|
|
|
|
|
|
|
|
|