<%
'Response.Write("cookies=["& Request.Cookies &"]
")
if not Request.Cookies("lvlserver")("sysadminid") > 0 then
'they ain't welcomed, get them out of here
Response.Redirect("login.asp")
else
'they must have logged in fine let them have the world
%>
 |
| server name |
ip # |
comments |
status |
<%
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "select id, server_name, ip, "
query = query & "comments, shown "
query = query & "from server_info where "
query = query & "sysadmin_id = " & Request.Cookies("lvlserver")("sysadminid")
query = query & "order by datestamp desc"
'Response.Write("Query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
if (tigRS.EOF) then
%>
It appears that there are no servers listed under your account at the moment.
If you think there should be, because you definitely entered one, plz email
tigger@ebom.org so he can look into the problem.
<%
end if
dim id
do while not tigRS.EOF
id = tigRS("id")
%>
| <%=tigRS("server_name")%> |
<%=tigRS("ip")%> |
<%=tigRS("comments")%> |
<% if tigRS("shown") then %>
shown |
<% else %>
not shown |
<% end if %>
<%
tigRS.MoveNext
loop
tigRS.close
tigCON.close
%>
<%
end if
%>
|