[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 %>
" & Ucase(x.name) & " | ") end if next RESPONSE.WRITE "|||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
No PLAYERS Listed for this State | |||||||||||
" & rs.fields("PLAYER") & " | " Response.Write lk elseif x.name="PLAYER" then elseif x.name="EMAIL1" then response.write(""&x.value&" | ") Response.Write lk else response.write("" & x.value & " | ") end if next rs.MoveNext response.write("