<%@LANGUAGE=VBSCRIPT%><% OPTION EXPLICIT %> RBF, INC. SPORTS MARKETING
 
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
<% '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.

MEMBER SIGN UP

Sign up as
(please select one)


Player

Coach

Agent

Other
   
First Name* (Required)

Last Name*

(Required)

Street Address

City*

(Required)

State/Province*

(Required)

Zip/Postal code

Country*

(Required)

Phone

Contact Email* (Required)
Create Password* (Required)
 

 


© Copyright 2002 RBF, inc. and thereggaeboyz.com. All rights reserved.

 

   
  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 checkString(str) checkString = Server.HTMLEncode(Replace(str,"'","''")) End Function %>