<%@ Language=VBScript %>
<%Response.Buffer=True%>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - List Customers" %>
<% PageID=601 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% CustomerList %>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub CustomerList %>
<%= FormatDateTime(Date,1) %>
<%
OpenConnection1
Set rs = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("DC")<>"" then
CustomerID=Request.QueryString("DC")
Sel="SELECT * FROM Customers WHERE CustomerID=" & CustomerID
rs.Open Sel,DB,1,3
If rs.EOF then Response.Redirect("Customer_List.asp")
rs.Delete
rs.Close
End If
Sel = "SELECT CustomerID, txtFname, txtLname, txtCompany FROM Customers ORDER BY txtLname"
rs.Open Sel, DB, 1, 3
If Not rs.EOF then%>
Customer accounts:
|
<%While Not rs.EOF%>
" title="Click here to view\edit the details of this customer"> |
<%=rs("txtLname")&", "&rs("txtFname")%> <%=rs("txtCompany")%> |
<%rs.MoveNext
Wend
Else%>
There are currently no Customers in the database.
|
<%End If%>
<%End Sub %>