buenas, a ver si me podeis ayudar con este problemill.
me he creado una base de datos llamada bd, en la carpeta db.
quiero cargar unas foots que estan en una carpeta culla ruta es: galeria/ariza/thumbs
para ello he creado un archivo index.html, y dentro de esta un link a un archivo llamado: ariza.asp en el cual hago la conexion con la base de datos. El problema es que no me lee la base de datos.
este es el codigo del ariza.asp:
<!--#include file="funciones.asp"-->
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
prueba
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<th bgcolor="#999999">nombre</th>
<th bgcolor="#999999">localidad</th>
<th bgcolor="#999999">busqueda</th>
</tr>
<%
leebasedatos("SELECT * FROM Iimagenes")
if rs.eof then
response.Write("non hay registros")
else
while not rs.eof
%>
<tr>
<td><%=rs.fields("nombre")%></td>
<td>
<%response.write(rs.fields("localidad"))%>
</td>
<td>
<%response.write(rs.fields("busqueda"))%>
</td>
</tr>
<%
rs.movenext
wend
end if
cierrabasedatos
%>
</table>
<hr>
<%
if request.Form("nombre")<>"" then
response.write("nombre: "&request.Form("nombre")&"<br>")
response.write("localidad: "&request.Form("localidad")&"<br>")
escribebasedatos("SELECT * FROM IMAGENES")
rs.addnew
rs.fields("nombre")=request.Form("nombre")
rs.fields("tamanyo")=request.Form("tamanyo")
rs.update
cierrabasedatos
end if
VerArchivos("galeria/ariza/thumbs")
%>
<hr>
</body>
</html>
y este el codigo de funcines.asp:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rs, SQL, Conn, OrigenDatos, rs2, SQL2, Conn2, OrigenDatos2, directorio,diasemana
Dim sTo,sFrom,sSubject,sMailServer,sBody
OrigenDatos="db/bd.mdb"
Function LeeBaseDatos(SQL)
' Creo el Recordset de ADODB
Set rs = Server.CreateObject("ADODB.Recordset")
' Creo la conexión de ADODB
Set Conn = Server.CreateObject("ADODB.Connection")
' Abro la conexión Indicando el Motor de Base de Datos de Microsoft Jet
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(OrigenDatos)
rs.Open SQL, Conn, 2, 3
End Function
Function CierraBaseDatos
'rs.MoveFirst
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
End function
Function VerArchivos(carpeta)
Dim fso, f, sf, archivo,i
i=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath(carpeta))
Set sf = f.Files
response.Write("<table>")
for each archivo in sf
select case lcase(RIGHT(archivo.NAME,3))
case "jpg","png","gif"
if i<=3 then
Response.write("<td><img src="&carpeta&"/"&carpeta&"/"&archivo.name&" width=320 height=240></td>")
' end if
i=i+1
else
Response.write("<tr><td><img src="&carpeta&"/"&carpeta&"/"&archivo.name&" width=320 height=240></td>")
i=0
end if
CASE ELSE
Response.write(archivo.name&" - "&archivo.size&" - "&archivo.type&"<br>")
end select
next
response.Write("</table>")
Set archivo = nothing
Set sf = nothing
Set f = nothing
Set fso = nothing
End Function
%>
muchisimas gracias
