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

<%= FormatDateTime(Date,1) %>

<% Sel="SELECT * FROM Requests WHERE booArchive='NO' 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 no current Inquiries in the database. " 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 %>