<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% DIM objConn DIM objRS DIM strSQL Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../users/btlsa.mdb") strSQL = "SELECT bmsWebPages.bmsPageText FROM bmsWebPages WHERE bmsWebPages.id_bmsPage = 1;" Set objRS = Server.CreateObject("ADODB.RecordSet") objRS.Open strSQL,objConn %> <%' IF Session("userID") = "" THEN %> <%ELSE%> <%END IF%> <% IF Session("userID") = "" THEN %>

<% DO WHILE NOT objRS.EOF %> <%=objRS("bmsPageText")%> <% objRS.MoveNext LOOP %>

Visitor logon and password. Username:   Password:

<%ELSE%> <%END IF%> <% objRS.Close Set objRS = Nothing Set objConn = Nothing %>