<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% r_count=0 sql= "SELECT id,surname,name,clientemail,phone,location,graduationyear,website,address1,address2,healer_status FROM healers WHERE " & _ " (healer_status LIKE '%" & request("Healer_Status") & "%')" & _ " and (location Like '%" & request("Healer_Region") & "%') " & _ " ORDER BY healer_status DESC,surname ASC" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = objconn rs.CursorType = 0 rs.CursorLocation =3 rs.LockType = 1 rs.Source = (sql) rs.Open() if not rs.eof then r_count = rs.recordcount num_cols = 2 recs_per_col = cint(r_count/ num_cols) end if icount=0 while not rs.eof and r_count > 0 str_td="" if cint(icount) = cint(recs_per_col) then str_td = "" icount=icount+1 if rs("graduationyear") <>"" then str_pg ="Graduated " & rs("graduationyear") &"
" else str_pg = rs("healer_status")&"
" if rs("address1") <>"" then str_add = replace(rs("address1"),chr(10),"
") & "
" if rs("address2") <>"" then str_add = str_add & replace(rs("address2"),chr(10),"
") & "
" if rs("website")<>"" then str_website = "http://" & rs("website") & "
" if trim(rs("clientemail"))<>"" then str_email = trim(rs("clientemail")) & "
" str_list=str_list & "" & _ "" & trim(rs("Name")) &" "&rs("surname")&"  " & rs("location")& "
" & _ str_pg & str_add & replace(rs("phone"),";","
") &"
" & _ str_email & str_website &"

" & _ str_td rs.movenext wend rs.close set rs = nothing str_list= "

" & str_list & "

" %>

Previous Page Listing of Healers

<%= str_list %>