<%@ Language=VBScript %>
<%
'Good coding practices to declare all your local variables
Dim conn
Dim rs
Dim strconn
Dim i
strconn ="DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/lessorDB/postofficeads.mdb")
'strconn = Session("DataConn_ConnectionString")
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open strconn
%>
Members
<%
if session("heIdOfUspo") = "" then
' LOGIN VALIDO, mostrar las cosas de aceptado response.write "WELCOME...."
%>
<%
'Its good practice to close all your objects and set to nothing
'This helps clear unused objects out of the Server's Memory
' rs.close
conn.close
set rs = nothing
set conn = nothing
%>