<%@Language ="VBScript"%>
<%Response.Buffer = True%>
<%
'Conexión a Base de datos
fp_conn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("svpv.mdb")
Set fp_db = Server.CreateObject("ADODB.Connection")
fp_db.open fp_conn
%>
SE VENDE previa cita Anuncia tu casa
<%
SQL_Consulta_foto = "SELECT * FROM fotos"
Set Consulta_foto = fp_db.Execute(SQL_Consulta_foto)
do while not Consulta_foto.eof
fotooriginal = Consulta_foto.Fields.Item("foto")
identificador = Consulta_foto.Fields.Item("identificador")
if fotooriginal<>"" then
foto = "img/"&fotooriginal
else
foto ="img/imgnd.jpg"
end if
%>
