[an error occurred while processing this directive] <% ' *********************** Search Tournaments // search.asp \\ ****************** 'on error resume next Dim lk state=Request("State") AGE=Request("AGE") GRAD=request("GRAD") PLAYER=request("PNAME") CITY=request("CITY") %> <% IF Session("USERTYPE")="COLLEGE" OR Session("USERTYPE")="ADMIN" OR Session("USERTYPE")="STATE" THEN sqlWHERE="TBLUSERS.USERID=TBLPLAYER.USERID" ELSE sqlWHERE="TBLUSERS.USERID=TBLPLAYER.USERID AND TBLPLAYER.INFO ='PUBLIC' ORDER BY GRAD ASC" END IF %> <% ' ******** sqlWHERE ******** if request("state")="" then sqlWHERE=sqlWHERE else sqlWHERE=sqlWHERE & " AND TBLUSERS.CSTATE='"&request("state")&"'" end if if AGE="" then sqlWHERE=sqlWHERE else sqlWHERE=sqlWHERE & " AND AGE LIKE '%"&AGE& "%'" end if 'Response.Write sqlWHERE %> <% if request("GRAD")="" then sqlWHERE=sqlWHERE else sqlWHERE=sqlWHERE & " AND GRAD like '"&request("GRAD")&"%'" end if %> <% if request("STARTDATE")="" then sqlWHERE=sqlWHERE else sqlWHERE=sqlWHERE & " AND STARTDATE like '%"&request("STARTDATE")&"%'" end if %> <% if request("DIRECTOR")="" then sqlWHERE=sqlWHERE else sqlWHERE=sqlWHERE & " AND TBLUSERS.CFNAME & ' ' & TBLUSERS.CLNAME LIKE '%"&request("DIRECTOR")&"%'" end if %> <% if request("TRNYCITY")="" then sqlWHERE=sqlWHERE else sqlWHERE=sqlWHERE & " AND TRNYCITY='"&request("TRNYCITY")&"'" end if %>
Search All Fastpitch America PLAYER PROFILES
<% set conn=Server.CreateObject("ADODB.Connection") conn.provider="sqloledb" conn.Open ("Data Source=fastnew.db.7383756.14d.hostedresource.net ;UID=fastnew;PWD=Th101658#;Database=fastnew") set rs=Server.CreateObject("ADODB.recordset") sql="SELECT DISTINCT tblPLAYER.AGE FROM tblPLAYER" rs.Open sql, conn %> <% sql="SELECT DISTINCT tblPLAYER.GRAD FROM tblPLAYER" rs.Open sql, conn %> <%sql="SELECT DISTINCT CFNAME,CLNAME FROM TBLUSERS WHERE USERTYPE='PLAYER' ORDER BY CLNAME" rs.Open sql, conn %> <%sql="SELECT DISTINCT CCITY FROM TBLUSERS WHERE USERTYPE='PLAYER' ORDER BY CCITY" rs.Open sql, conn %> <%sql="SELECT DISTINCT CSTATE FROM TBLUSERS WHERE USERTYPE='PLAYER' ORDER BY CSTATE" rs.Open sql, conn %>
Search by 
Player Age: GRAD YEAR: PLAYER Player City: State:

CLICK ON PLAYERS NAME TO SEE HER COMPLETE PROFILE   
<% set conn=Server.CreateObject("ADODB.Connection") conn.provider="sqloledb" conn.Open ("Data Source=fastnew.db.7383756.14d.hostedresource.net ;UID=fastnew;PWD=Th101658#;Database=fastnew") set rs=Server.CreateObject("ADODB.recordset") sql="SELECT TBLPLAYER.PLAYID,TBLPLAYER.PFNAME & ' ' & TBLPLAYER.PLNAME AS [PLAYER],TBLPLAYER.COMMITTED AS [COMMITTED],TBLPLAYER.COLNAME AS [COMMITTED TO],TBLPLAYER.DIVISION AS [DIVISION],TBLPLAYER.SIGNED AS [COMMITTMENT TYPE],TBLPLAYER.AGE AS [AGE], TBLUSERS.CCITY AS [CITY],TBLUSERS.CSTATE AS [STATE],TBLPLAYER.GRAD AS [GRAD YEAR],TBLPLAYER.ACT AS [ACT],Info as [PUBLIC OR PRIVATE] FROM TBLPLAYER,TBLUSERS WHERE "&sqlWHERE&"" 'response.write sql rs.Open sql, conn Response.Write("
") for each x in rs.Fields if x.name<> "USERID" and x.name<> "PLAYID" then response.write ("") end if next RESPONSE.WRITE "" if rs.EOF then response.write ("") else rowcolor="row1" do until rs.EOF if rowcolor="row1" then rowcolor="row2" else rowcolor="row1" end if 'response.write("") for each x in rs.Fields if x.name = "PLAYID" then lk="" Response.Write lk elseif x.name="PLAYER" then elseif x.name="EMAIL1" then response.write("") Response.Write lk else response.write("") end if next rs.MoveNext response.write("") loop rs.close conn.close response.write("") end if %>
" & Ucase(x.name) & "
No PLAYERS Listed for this State
" & rs.fields("PLAYER") & ""&x.value&"" & x.value & "