The Credit Counseling Foundation Educational Center
The Credit Counseling Foundation Educational Center
 
The Credit Counseling Foundation
  Member Login
Email Address:

Password:

Not A Member Yet?
Forgot your password?
   
  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.

Search Database Submit Players Submit Coaches Submit Agents Become a Member Contact Home
The Credit Counseling Foundation Educational Center
TCCF Educational website
<% '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
 
COACHES PROFILE
First Name*
Last Name*
Address
City*
State/Province*
Zip/Postal Code
Country*
Phone*
Contact Email*
Date Of Birth
MM/DD/YY
- -
Sex*
Nationality*
Level Of Coaching*

Current Team is

Current Team Name

List previous Teams*
and year coached

Special Achievements

Type of Coach License*

License No

Where obtained
(Country)

Create Password*
 
       

   
  Resume Tips
  College Requirements
  Club Requirements
  Find College
   
   
   
   

 

Search Database Submit Players Submit Coaches Submit Agents Become a Member Contact Home

© Copyright 2002 RBF, inc. and thereggaeboyz.com. All rights reserved.
<% if not rs is Nothing then Set rs = Nothing Set cmd = Nothing con.Close Set con = Nothing Private Function encodeString(str) encodeString = Replace(str,"'","''") End Function Private Function decodeString(str) if isNull(str) then str = "" decodeString = Server.HTMLEncode(Replace(Replace(str,"''","'"),"Null","")) End Function Private Function fixLength(strNum,num) while len(strNum) < num strNum = "0" & strNum wend fixLength = strNum End Function %>