<% StartDate = Request("StartDate")
EndDate = Request("EndDate") %>
<% IF (StartDate <> "") AND (EndDate <> "") THEN
Server.ScriptTimeout = 600
Session.Timeout = 90
IF IsObject(Session("EmeraldDSN_conn")) THEN
Set conn = Session("EmeraldDSN_conn")
ELSE
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=EmeraldDSN; UID=Anonymous_WWW; PWD=anonweb4220"
Set Session("EmeraldDSN_conn") = conn
END IF
sql = "SELECT sa.Login, sa.AccountType, ma.CustomerID, ma.FirstName,
ma.LastName, ma.Region, ma.ReferredBy, ma.StartDate"
sql = sql & " FROM MasterAccounts ma, SubAccounts sa WHERE "
sql = sql & "(StartDate >= CONVERT(datetime, '" & StartDate & "')) AND "
sql = sql & "(StartDate <= CONVERT(datetime, '" & EndDate & "')) AND "
sql = sql & "(ma.Region = 'SEV') AND "
sql = sql & "(sa.AccountType = 'SEV-Residential')"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
On Error Resume Next
END IF %>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<% IF(StartDate = "") OR (EndDate = "") THEN %>
<% ELSE %>
UserReport For Period ( <% = StartDate%> through <% = EndDate%>)
Newusers will have NEW in the Referred by column
Allothers are existing SEV users.
FirstName | LastName | Region | ReferredBy | SignupDate/Time | LoginID |
<% = rs.Fields("FirstName").Value%> | <% = rs.Fields("LastName").Value %> | <% = rs.Fields("Region").Value%> | <% = rs.Fields("ReferredBy").Value%> | <% = rs.Fields("StartDate").Value%> | <% = rs.Fields("Login").Value%> |
<% END IF %>