<% Response.ExpiresAbsolute=#May 31,2001 13:30:15# if request.form("pwd") = sitepwd then dim cn, rs, cmd set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") set cmd = server.CreateObject("ADODB.Command") cn.ConnectionString = connectstring cn.Open dim message if cn.State = 1 then cmd.activeconnection = cn cmd.commandtext = _ "select book_order_id, magic, convert(varchar, order_date, 101) dt, " & _ "firstname, lastname, affiliation, email, quantity, paymenttype " & _ "from book_order_2004 order by order_date desc" set rs.source = cmd rs.open %> <% if not (rs.eof and rs.bof) then while not rs.eof %> <% rs.movenext wend else %> <% end if %>
ID Date First Name Last Name Affiliation Email Quantity Payment
&magic=<%=rs("magic")%>><%=rs("book_order_id")%> <%=rs("dt")%> <%=rs("firstname")%> <%=rs("lastname")%> <%=rs("affiliation")%> <%=rs("email")%> <%=rs("quantity")%> <%=rs("paymenttype")%>
No orders found
<% else response.write "There was an error connecting to the database server." end if else %>
Password:
<% end if %>