<% Dim sUser,sPass,abspage,pagecnt,page,limit sUser = "admin" sPass = "brand" Session.Timeout = 45 If Request.Form("username") <> "" And Request.Form("password") <> "" Then If Request.Form("username") = sUser And Request.Form("password") = sPass Then Session("ASC_ADMIN_LOGGED_IN") = True Response.Redirect("excel.asp") End If End If If Not Session("ASC_ADMIN_LOGGED_IN") Then %>

Admin options

Essential products for your practice entries

You must be logged in to view this page

<% Else Call dbConnect("prod") Set rsASC = Server.CreateObject("ADODB.Recordset") Sql_String = "SELECT * FROM Forms_ASC ORDER BY DateStamp DESC;" rsASC.Open Sql_String, adoCon If Not rsASC.EOF Then i = 0 ' Set pointer at first record rsASC.MoveFirst %> <% While Not rsASC.EOF%> "> <% i = i + 1 rsASC.MoveNext Wend %>

Confirmation #	Name	Email	Facility	Address	City	State	Zip	Phone	Entry Date
<%=Trim(rsASC("Confirmation"))%>	<%=Trim(rsASC("Name"))%>	<%=Trim(rsASC("Email"))%>	<%=Trim(rsASC("Facility"))%>	<%If rsASC("Address") <> "NULL" Then Response.Write(Trim(rsASC("Address")))%>	<%=Trim(rsASC("City"))%>	<%=Trim(rsASC("State"))%>	<%=Trim(rsASC("Zip"))%>	<%=Trim(rsASC("Phone"))%>	<%=Trim(rsASC("DateStamp"))%>

<% End If rsASC.Close Set rsASC = Nothing Call dbDisconnect End If %>