<%@ LANGUAGE="VBScript" %> <%'----- ASP Buffer Ouput, the server does not send a response to the client until all of the server scripts on the current page have been processed%> <% Response.Buffer = True %> Download Information <% 'response.write "Here" 'response.end %> <% SQLStr = "SELECT Count(DemoDownloadID) AS TotalCountOfDownloads FROM tblDemoDownload WHERE LastName <> 'Schinner'" 'response.write SQLStr 'response.end Set rs = Conn.Execute(SQLStr) TotalCountOfDownloads = rs("TotalCountOfDownloads") 'If Len(Session("LimitNumber")) = 0 Then ' LimitNumber = 10 'Else ' LimitNumber = Session("LimitNumber") 'End If 'LimitDate = Date() - LimitNumber 'SQLStr = "SELECT Count(VisitorID) AS CountOfVisitors FROM tVisitor WHERE VisitDateTime > = '"& LimitDate &"'" 'response.write SQLStr 'response.end 'Set rs = Conn.Execute(SQLStr) 'CountOfVisitors = rs("CountOfVisitors") SortBanner = "" Sort = request.querystring 'response.write "Sort = " & Sort 'response.end If Len(Sort) = 0 Then SQLStr = "SELECT tblDemoDownload.* FROM tblDemoDownload WHERE LastName <> 'Schinner' ORDER BY DemoDownloadID DESC" ' SortBanner = "Sorted By Date/Time (Assending)" 'ElseIf Sort = "webpage" Then ' SQLStr = "SELECT tVisitor.* FROM tVisitor WHERE VisitDateTime > = '"& LimitDate &"' ORDER BY Page, VisitorID" ' SortBanner = "Sorted By Web Page" 'ElseIf Sort = "ipaddress" Then ' SQLStr = "SELECT tVisitor.* FROM tVisitor WHERE VisitDateTime > = '"& LimitDate &"' ORDER BY IPAddress, VisitorID" ' SortBanner = "Sorted By IP Address" 'ElseIf Sort = "dtassending" Then ' SQLStr = "SELECT tVisitor.* FROM tVisitor WHERE VisitDateTime > = '"& LimitDate &"' ORDER BY VisitorID" ' SortBanner = "Sorted By Date/Time (Assending)" 'ElseIf Sort = "dtdessending" Then ' SQLStr = "SELECT tVisitor.* FROM tVisitor WHERE VisitDateTime > = '"& LimitDate &"' ORDER BY VisitorID DESC" ' SortBanner = "Sorted By Date/Time (Dessending)" End If 'response.write SQLStr 'response.end Set rs = Conn.Execute(SQLStr) %>
<% TotalCountOfVisitors = CountOfVisitors If TotalCountOfVisitors <> CountOfVisitors Then %> <%End If%>
Download Information - <%=TotalCountOfDownloads%> Total Downloads
Visitor Information For the Past <%=LimitNumber%> Days - <%=CountOfVisitors%> Visitors
<% Do while not rs.EOF 'Name = rs("LastName") & ", " & rs("FirstName") Name = rs("FirstName") & " " & rs("LastName") If len(rs("Email")) > 0 Then Email = rs("Email") Else Email = " -- " End If If len(rs("Phone")) > 0 Then Phone = rs("Phone") Else Phone = " -- " End If If len(rs("Company")) > 0 Then Company = rs("Company") Else Company = " -- " End If If len(rs("Industry")) > 0 Then Industry = rs("Industry") Else Industry = " -- " End If If len(rs("IPAddress")) > 0 Then IPAddress = rs("IPAddress") Else IPAddress = " -- " End If If len(rs("VisitorNumber")) > 0 Then VisitorNumber = rs("VisitorNumber") Else VisitorNumber = " -- " End If %> <% rs.MoveNext Loop %>
Name Email Phone Company Industry IP Address Visitor Date
<%=Name%> <%=Email%> <%=Phone%> <%=Company%> <%=Industry%> <%=IPAddress%> <%=VisitorNumber%> <%=rs("CreatedAt")%>