<%@ Language=VBScript %> <%Response.Buffer=True%> <% Updated = Request.QueryString("Updated") %> <% PageTitle = "SiteManager - Inquiry Archive" %> <%PageID=1302%> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <%InquiryArchive%> <%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% Footer %> <% Sub InquiryArchive OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") If Request.QueryString("RID")<>"" then Sel="SELECT * FROM Requests WHERE RequestID=" & Request.QueryString("RID") rs.Open Sel,DB,1,3 If Not rs.EOF then rs.Delete rs.Close End If%>

<%= FormatDateTime(Date,1) %>

<% Sel="SELECT * FROM Requests WHERE booArchive='YES' ORDER BY datSubDate" rs.Open Sel,DB,1,3 If rs.EOF then%> <%Else While Not rs.EOF%> <%rs.MoveNext Wend End If%> There are currently no Inquiries in the archive. " title="Click the name to view details of the request" style="{text-decoration:none; color:<%=SiteColors(1)%>}"><%=rs("txtName")%> <%=FormatDateTime(rs("datSubDate"),1)%>

<%End Sub %>