Find a Club

<% dim sconn, oconn, ors, oclubs, searchPC,clubtype 'Set oconn = Server.CreateObject("ADODB.Connection") 'oconn.CursorLocation=3 sConn="PROVIDER=MSDASQL;DRIVER={SQL Server};" sConn=sConn & "SERVER=DS11080\SQLEXPRESS;DATABASE=franchisees;" sConn=sConn & "UID=mycn;PWD=(1)2$6Jk;" 'oconn.Open(sConn) 'sConn = "DSN=lcf2" clubtype = request.form("Clubtype") if request.Form("form_action")="pc" and len(request.Form("postcode")) > 0 then 'postcode search %>

Results for postcode: <%=Request.Form("postcode")%>

<% dim tmp tmp = request.form("postcode") 'weird stuff to remove 2/3rd characters if postocde is B1 or B17 or similar dim i for i = 1 to len(tmp) if not isnumeric(mid(tmp,i,1)) then searchPC = searchPC & mid(tmp,i,1) next if IsNumeric(Trim(request.form("postcode"))) = true then sSQL = "select * from franchisees where postcode='111'" else 'sSQL = "select distinct county,county2,county3, forenames,surname,telephone_day,county_email,county_email2,county_email3,email1,status, clubname, postcode, POSTCODE_AREAS,isnull(funclubname,'') fclubname from franchisees where (postcode like '" & SqFilter(searchPC) & "%' or postcode_areas + ',' like '%" & SqFilter(searchPC) & ",%') and status not like '%SSS%' and status not like '%XXX%' " sSQL = "select distinct county,county2,county3, forenames,surname,telephone_day,county_email,county_email2,county_email3,email1,status, clubname, postcode, POSTCODE_AREAS,isnull(funclubname,'') fclubname from franchisees where (postcode like '" & SqFilter(searchPC) & "%' or '" & SqFilter(searchPC) & "' in( (SELECT Item FROM dbo.SplitString(postcode_areas, ',')))) and status not like '%SSS%' and status not like '%XXX%' and ('" & SqFilter(clubtype) & "' in (SELECT Item FROM dbo.SplitString(Club_info, ',')) or '" & SqFilter(clubtype) & "' in (SELECT Item FROM dbo.SplitString(Club_info, '/')))" end if 'postcode like 'g%' or 'g' in( (SELECT Item FROM dbo.SplitString(postcode_areas, ','))) ' Response.Write(sSQL) ' Response.End getResults("county_email") if count = 0 then %> <% end if elseif Request.QueryString("id") <> "" or Request.querystring("county")<>"" then 'Get Counties in this region sSQL = "select distinct county from counties where region = '" & Request.QueryString("id") & "' order by county asc" set sConn="" sConn="PROVIDER=MSDASQL;DRIVER={SQL Server};" sConn=sConn & "SERVER=DS11080\SQLEXPRESS;DATABASE=franchisees;" sConn=sConn & "UID=mycn;PWD=(1)2$6Jk;" set oConn = server.createobject("ADODB.Connection") oConn.open sConn set oRS = server.createobject("ADODB.Recordset") oRS.open sSQL, oConn, 1, 3, 1 dim county %>

">  Now select your area
<% county = Request.QueryString("county") while not oRS.EOF %> " <% if county = ors("county") then %> selected <% end if %>> <%=oRS("county")%> <% oRS.MoveNext wend oRS.Close oConn.Close set oRS = nothing set oConn = nothing %>

<% end if %> <% dim sSQL if len(county) <> 0 then %>

Results for: <%=Request.QueryString("county")%>

<% 'Searches by county sSQL = "select distinct county,county2,county3, forenames,surname,telephone_day,county_email,county_email2,county_email3,email1,status, clubname,postcode, POSTCODE_AREAS,isnull(funclubname,'') fclubname from franchisees where county = '" & county & "' " getResults("county_email") sSQL = "select distinct county,county2,county3, forenames,surname,telephone_day,county_email,county_email2,county_email3,email1,status, clubname,postcode, POSTCODE_AREAS,isnull(funclubname,'') fclubname from franchisees where county2 = '" & county & "' " getResults("county_email2") sSQL = "select distinct county,county2,county3, forenames,surname,telephone_day,county_email,county_email2,county_email3,email1,status, clubname,postcode, POSTCODE_AREAS,isnull(funclubname,'') fclubname from franchisees where county3 = '" & county & "' " getResults("county_email3") if count = 0 then %> <% end if end if if Request.QueryString("id") <> "" or Request.querystring("county")<>"" then %>