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 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

First name* (Required)
Last name* (Required)
Address
City* (Required)
State/Province* (Required)
Zip/Postal Code 
Country* (Required)
Player Phone
Contact email* (Required)
Player Date Of Birth
MM/DD/YY
- -
Player Height '-''
Player Weight lbs
Player Sex
Nationality *

Player Position*

Level Of Play*
   

Current Team is

Current Team Name

List previous Teams/year played

Special Achievements, stats, etc.

Name of College


GPA

High School

Video Available
Stats Available

Player Coach

Player Agent

Create Password* (Required)
 
       

 

   
  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 %>