<% LANGUAGE="VBSCRIPT" dbaction = Request.Form("dbaction")%> "> <% if OpenDB() = true then set rs = Server.CreateObject("ADODB.Recordset") end if if dbaction = "clear" then QRY = "UPDATE tracking SET Ask = 0, Appt = 0, Prnt = 0, VasArticle = 0, RevArticle = 0, Doctor = 0" str = ExecQRY(QRY) end if qrytxt = Request.Form("qry") QRY = "SELECT DoctorInfo.DoctorID, DoctorInfo.pAreaCode, DoctorInfo.firstname, DoctorInfo.Lastname, DoctorInfo.planID, DoctorInfo.customerid" QRY = QRY & ", Tracking.ask, Tracking.appt, Tracking.prnt, Tracking.vasarticle, Tracking.revarticle, Tracking.doctor FROM DoctorInfo INNER JOIN tracking ON DoctorInfo.DoctorID = tracking.DoctorID" if qrytxt = "" then QRY = QRY & " ORDER BY planID" else QRY = QRY & " ORDER BY " & qrytxt if qrytxt = "ask" or qrytxt = "appt" or qrytxt = "prnt" or qrytxt = "vasarticle" or qrytxt = "revarticle" or qrytxt = "doctor" then QRY = QRY & " DESC" end if end if if pAreaCode <> "" then QRY = QRY & " WHERE pAreaCode=" & pAreaCode end if 'Response.Write(qry) rs.CursorLocation = 3 rs.CursorType = 3 rs.Open QRY, application("vasectomy") rs.PageSize = 20 rs.CacheSize = 20 if Request.Form("page") = "" then pageNumber = 1 else pageNumber = cint(Request.Form("page")) end if recordcnt = rs.RecordCount pagecnt = rs.PageCount if CInt( pageNumber ) > CInt( pageCnt ) then pageNumber = PageCnt end if if cint(pageNumber) > cint(pageCnt) then pageNumber = pageCnt end if if pageNumber <= 0 then pageNumber = 1 end if if recordCnt > 0 then ' Set Starting Page Rs.AbsolutePage = pageNumber Start = Rs.AbsolutePosition ' Check If We Are On The Last Page if CInt( pageNumber ) = CInt( pageCnt ) then Finish = recordCnt else Finish = Start + ( Rs.PageSize - 1 ) end if end if %> <% FOR record = 1 to rs.PageSize%> <% rs.movenext if rs.EOF then exit for end if next %>

SORT BY Area Code PLAN ID DOCTOR ID CUSTOMER ID LAST NAME QUESTIONS REQ APPT PRINT VASARTICLE REVARTICLE DOCTOR BIO	Page <%=pageNumber%> of <%=pageCnt%>. <%=recordCnt%> total records in this search.
1 then%>onclick="javascript:FirstPage()"<%else%>DISABLED<%end if%>> 1 then%>onclick="JavaScript:OnPreviousPage()"<%else%>DISABLED<%end if%> tabindex=44> onclick="JavaScript:OnNextPage()"<%else%>DISABLED<%end if%>> tabindex=46 onclick="javascript:LastPage()"<%else%>DISABLED<%end if%>>
AREA	ID					APPT			ARTICLE
CODE	DOC	CUST	PLAN	DOCTOR NAME	QUESTION	REQ	PRINT	VASECTOMY	REVERSAL	BIO/PROFILE
<%=rs.fields("pAreaCode")%>	<%=rs.fields("doctorid")%>	<%=rs.fields("customerid")%>	<%=rs.fields("planid")%>	<%=rs.fields("firstname")%> <%=rs.fields("lastname")%>	<%=rs.fields("ask")%>	<%=rs.fields("appt")%>	<%=rs.fields("prnt")%>	<%=rs.fields("vasarticle")%>	<%=rs.fields("revarticle")%>	<%=rs.fields("doctor")%>