<%
esp=request.Form("esp")
Dim rs2
Set rs2 = Server.CreateObject("ADODB.RecordSet")
strs2QL = "SELECT * FROM ext WHERE esp ='"&esp&"'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/hdv_data.mdb")
rs2.Open strs2QL, strDSN, 1
if rs2.eof = true then
else
end if
%>
:: Hospital del Valle ::
