<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Const RECORDSPERPAGE = 40 Dim adoCon Dim bLocal bLocal = False ' Change this to TRUE for Local, FALSE for Production '---------------------------------------------------------------------------[ RetrieveData() Function RetrieveProspects(adoCon, cSortFields, cSortOrder) Dim rsProspects Dim cSQL cSQL = "SELECT * FROM Prospects WHERE MemberID = " & Request.Cookies("MemberID") & " ORDER BY " & cSortFields & " " & cSortOrder Set rsProspects = Server.CreateObject("ADODB.Recordset") rsProspects.CursorLocation = adUseClient rsProspects.Open cSQL, adoCon, adOpenStatic, adLockReadOnly, adCmdText Set RetrieveProspects = rsProspects End Function '----------------------------------------------------------------------------[ DisplayData() Sub DisplayData(adoCon, rsMember, rsProspects, nPageNum, cSortFields, cSortOrder) Dim nCnt 'As Integer Dim dTour nCnt = 0 %> Reviewing Prospects For: <% = rsMember("Name") %>
Members Back Office Tools

<% 'DisplayPageLinks rsProspects, nPageNum, cSortFields, cSortOrder 'DisplayNavigation rsProspects, nPageNum, cSortFields, cSortOrder %>
<% rsProspects.AbsolutePage = nPageNum For nCnt = 1 to rsProspects.PageSize dTour = rsProspects("TourDate") %> <% rsProspects.MoveNext if rsProspects.Eof then Exit for Next ' nCnt %>
<%=rsMember("Name") %>
Total Leads: <%=CInt(rsMember("ClickCount")) + CInt(rsMember("ClickCap")) %>
<% Response.Write( CreateHeading(nPageNum, "Cmd", "1", cSortFields, cSortOrder)) %> <% Response.Write( CreateHeading(nPageNum, "Name", "2", cSortFields, cSortOrder)) %> <% Response.Write( CreateHeading(nPageNum, "Email", "3", cSortFields, cSortOrder)) %> <% Response.Write( CreateHeading(nPageNum, "Phone", "4", cSortFields, cSortOrder)) %> <% Response.Write( CreateHeading(nPageNum, "TourDate", "5", cSortFields, cSortOrder)) %> <% Response.Write( CreateHeading(nPageNum, "Doorway", "6", cSortFields, cSortOrder)) %>
<% Response.Write("Edit  Delete ") %> <% = rsProspects("Name") %> <% = rsProspects("Email") %> <% = rsProspects("Phone") %> <% = FormatDateTime(rsProspects("TourDate"),2) %> <% = rsProspects("Doorway") %>

 

<% DisplayNavigation rsProspects, nPageNum, cSortFields, cSortOrder %>

 

Copyright © 2007 | Team Infinity | All Rights Reserved | Contact
<% End Sub '-----------------------------------------------[ end DisplayData '--------------------------------------------------------------[ CreateHeading() Function CreateHeading( nPageNum, cTitle, cNewSort, cOldSort, cOldOrder) Dim cNewOrder 'As String IF cNewSort = cOldSort then IF cOldOrder = "ASC" then cNewOrder = "DESC" ELSE cNewOrder = "ASC" END IF ELSE cNewOrder = "ASC" END IF CreateHeading = "" & cTitle & "" End Function '--------------------------------------------------------------[ DisplayPageLinks() Sub DisplayPageLinks(rsProspects, nPageNum, cSortFields, cSortOrder) Dim i 'As Integer Response.Write("

Jump To: ") FOR i = 1 to rsProspects.PageCount IF i = nPageNum then Response.Write(i & " ") ELSE Response.Write("" & i & " ") END IF NEXT ' i Response.Write("

") End sub '--------------------------------------------------------------[ DisplayNavigation() Sub DisplayNavigation(rsProspects, nPageNum, cSortFields, cSortOrder) Response.Write("

") IF nPageNum > 1 then Response.Write("[ Previous Page ] ") END IF IF nPageNum < rsProspects.PageCount then Response.Write("[ Next Page ] ") END IF Response.Write("

") End Sub '---------------------------------------------------------[ Main() Sub Main() Dim rsMember 'As ADODB.RecordSet Dim memCode 'As String Dim rsProspects Dim nPageNum Dim cSortFields Dim cSortOrder Dim cmdQuery 'As ADODB Command If Request.Cookies("MemberID") = "" then Response.Redirect("default.asp") End if If Request.QueryString("so") <> "" then cSortFields = Request.QueryString("so") Else cSortFIelds = "1" End if If Request.QueryString("sd") <> "" then cSortOrder = Request.QueryString("sd") Else cSortOrder = "ASC" End if If Request.QueryString("pn") <> "" then nPageNum = CInt(Request.QueryString("pn")) Else nPageNum = 1 End if Set adoCon = OpenDB(bLocal) Set rsProspects = RetrieveProspects(adoCon, cSortFields, cSortOrder) rsProspects.PageSize = RECORDSPERPAGE Set cmdQuery = Server.CreateObject("ADODB.Command") Set cmdQuery.ActiveConnection = adoCon cmdQuery.CommandText = "SELECT * FROM Members WHERE MemberID = " & Request.Cookies("MemberID") Set rsMember = cmdQuery.Execute() '[ Get Member info DisplayData adoCon, rsMember, rsProspects, nPageNum, cSortFields, cSortOrder rsProspects.Close adoCon.Close End Sub ' ' This calls the Main subroutine to get the page started '-----------------------------------------------------------------------------[ Now launch Main Call Main %>