<%
option explicit
Response.Buffer = true
if session("administrator_id") <> "" then
dim conn
dim ssql
dim rs
%>
<%
ssql = "select * from tbl_administrator"
set rs = server.CreateObject("adodb.recordset")
rs.Open ssql,conn,3,3
%>
<%
rs.Close
conn.Close
set rs = nothing
set conn = nothing
else
Response.Redirect "../../index.asp"
end if
%>