<% dim dsn dim Conn dsn="DBQ=" & Server.Mappath("../../../access_db/guestbook.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open dsn %> Emefa Guestbook management
<% If Request("SecondTry") = "True" Then If Request("WrongPW") = "True" Then Response.Write "
Invalid Password. Please try again.
" Else Response.Write "
User ID not found. Please try again.
" End If End If %>
Guestbook Admin
Admin ID:
Admin Password:
 
© Copyright 2005 Emefa's Educational Site ( Emefa Guestbook V 2.0)
<% Conn.close set Conn = nothing %>