Ahora tengo esto:
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<title>Lectura de la base de datos</title>
</HEAD>
<body>
<H4><B>Contacto</B></H4>
<%
' Creamos la conexión con la base de datos
set cn = Server.CreateObject("ADODB.connection")
' Abrimos la conexión con la base de datos, pasándole el DSN
cn.Open "DSN=BDWeb"
' Creamos un objeto recorset
set rs = Server.CreateObject("ADODB.Recordset")
' Creamos la consulta para seleccionar los registros a recuperar.
sql = "Select * FROM contacto"
'Abrimos el objeto recordset pasándole la consulta y la conexión.
rs.Open sql, cn, 1, 1
if rs.eof then
response.write("Na hay datos del contacto")
else
rs.MoveFirst
end if
%><table border="1" width="100%"> <tr><%
'crea la cabecera del listado
Response.write ("<td>contacto</td>" & "<td>Foto</td>" )
%></tr><%
response.write("<br>")
'crea todas las filas necesarias
Do While Not rs.EOF
response.write("<tr>")
response.write("<td>")
'rellenas la lista con los datos
Response.Write Server.HTMLencode(rs.Fields("contacto") & "")
response.write("</td>")
response.write("<td>")
Response.Write Server.HTMLencode(rs.Fields("foto") & "")
response.write("</td>")
response.write("</tr>")
rs.MoveNext
Loop
%> </table> <%
' Cerramos el objeto Recordset y liberamos la memoria del objeto Recordset
rs.Close
Set rs = Nothing
'cerramos la conexión y liberamos la memoria del objeto conexión
cn.close
Set cn = Nothing
%>
</BODY>
</HTML>
y me da el error:
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
Información técnica (para personal de soporte técnico)
* Tipo de error:
Páginas Active Server, ASP 0141 (0x80004005)
El comando @ sólo puede usarse una vez en la página Active Server.
/prueba/contactodos.asp, line 14
* Tipo de explorador:
Mozilla/5.0 (Windows; U; Windows NT 5.0; es-ES; rv:1.7.10) Gecko/20050717 Firefox/1.0.6
* Página:
GET /prueba/contactodos.asp