<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim dbPath
Dim dbConn
Dim Conn
Dim SQL, RS
dbPath = Server.MapPath("dbm/mercado.mdb")
dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";Persist Security Info=False"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dbConn
%>
Mercado Advanced Realty
<%
Conn.Close
Set Conn = Nothing
%>