<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Listado de estudios_freshforward <% dim Id_Estudio dim Nombre dim strconn strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("SGC/fresh.mdb") & ";Persist Security Info=false" set obRS = server.CreateObject("ADODB.RecordSet") obRS.Open "SELECT * FROM Estudio", strconn do while not obRS.EOF Id_Estudio = obRS("Id_Estudio") ID= Id_Estudio Direccion = obRS("Direccion") if len(ID)=1 then ID="0" & ID nombre = obRS("Nombre") obRS.MoveNext Resultado = Resultado & "" & nombre & "" & direccion & "" Loop obRS.Close %>



<%=Resultado%>

INTRO BLOG BUSCADOR FRESHMADRID_06 creditos