|
|
| |
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 birthDate, sex, nationality, level, teamLevel, teamName, teamList, spcAchv, licenseType, licenseNumber, licenseCountry
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, sex, nationality, [level], teamLevel, teamName, teamList, spcAchv, licenseType, licenseNumber, licenseCountry FROM coach WHERE id=" & uid
Set rs = cmd.Execute()
if not rs.EOF then
birthDate = decodeString(rs(0))
sex = decodeString(rs(1))
nationality = decodeString(rs(2))
level = decodeString(rs(3))
teamLevel = decodeString(rs(4))
teamName = decodeString(rs(5))
teamList = decodeString(rs(6))
spcAchv = decodeString(rs(7))
licenseType = decodeString(rs(8))
licenseNumber = decodeString(rs(9))
licenseCountry = decodeString(rs(10))
rs.close
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("txtEmail"))
city = encodeString(Request.Form("txtCity"))
password = encodeString(Request.Form("txtPassword"))
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
sex = encodeString(Request.Form("txtSex"))
if not isNumeric(sex) then sex = "Null"
nationality = encodeString(Request.Form("txtNationality"))
level = encodeString(Request.Form("txtLevel"))
if not isNumeric(level) then level = "Null"
teamLevel = encodeString(Request.Form("txtTeamLevel"))
if not isNumeric(teamLevel) then teamLevel = "Null"
teamName = encodeString(Request.Form("txtTeamName"))
teamList = encodeString(Request.Form("txtTeamList"))
spcAchv = encodeString(Request.Form("txtSpcAchv"))
licenseType = encodeString(Request.Form("txtLicenseType"))
licenseNumber = encodeString(Request.Form("txtLicenseNumber"))
licenseCountry = encodeString(Request.Form("txtLicenseCountry"))
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 & "', '" & Address1 & "', '" & Phone & "', '" & City & "', '" & Country & "', '" & State & "', '" & zipcode & "', '" & Email & "', '" & password & "', 2)"
cmd.Execute()
else
cmd.CommandText = "UPDATE member SET firstName='" & FirstName & "', lastName='" & LastName & "', address1='" & Address1 & "', state='" & State & "', zipcode='" & zipcode & "', country='" & Country & "', phone='" & Phone & "', email='" & Email & "', city='" & City & "', [password]='" & password & "' WHERE id=" & uid
cmd.Execute()
end if
rs.close
cmd.CommandText = "SELECT COUNT(*) FROM coach WHERE id=" & uid
Set rs = cmd.Execute()
if rs(0) = 0 then
cmd.CommandText = "INSERT INTO coach (id, birthDate, sex, nationality, [level], teamLevel, teamName, teamList, spcAchv, licenseType, licenseNumber, licenseCountry) VALUES (" & uid & ", " & birthDate & ", " & sex & ", '" & nationality & "', " & level & ", " & teamLevel & ", '" & teamName & "', '" & teamList & "', '" & spcAchv & "', '" & licenseType & "', '" & licenseNumber & "', '" & licenseCountry & "')"
cmd.Execute()
else
cmd.CommandText = "UPDATE coach SET birthDate=" & birthDate & ", sex=" & sex & ", nationality='" & nationality & "', [level]=" & level & ", teamLevel=" & teamLevel & ", teamName='" & teamName & "', teamList='" & teamList & "', spcAchv='" & spcAchv & "', licenseType='" & licenseType & "', licenseNumber='" & licenseNumber & "', licenseCountry='" & licenseCountry & "' 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 & "', '" & Address1 & "', '" & Phone & "', '" & City & "', '" & Country & "', '" & State & "', '" & zipcode & "', '" & Email & "', '" & password & "', 2)"
cmd.Execute()
cmd.CommandText = "SELECT TOP 1 id FROM member WHERE firstName='" & FirstName & "' AND lastName='" & LastName & "' AND email='" & Email & "' AND memberType=2 ORDER BY id DESC"
Set rs = cmd.Execute()
Session("uid") = rs(0)
uid = rs(0)
cmd.CommandText = "INSERT INTO coach (id, birthDate, sex, nationality, [level], teamLevel, teamName, teamList, spcAchv, licenseType, licenseNumber, licenseCountry) VALUES (" & uid & ", " & birthDate & ", " & sex & ", '" & nationality & "', " & level & ", " & teamLevel & ", '" & teamName & "', '" & teamList & "', '" & spcAchv & "', '" & licenseType & "', '" & licenseNumber & "', '" & licenseCountry & "')"
cmd.Execute()
rs.close
end if
Response.Redirect("registerComplete.asp")
end if
%>
|
 COACHES
If
you are a soccer coach with or without a
professional soccer license, you can create
your own resume by filling out and submitting
our online form. Your resume will appear
immediately in the database which will give
you exposure to players, clubs and colleges.Ê
You can also search our database for contacts
to players, clubs, teams, and colleges around
the world.
(*)
Required Fields
|
|
| |
|
| |
Resume Tips
|
| |
College Requirements
|
| |
Club Requirements
|
| |
Find College
|
| |
|
| |
|
| |
|
| |
|
|
|
