Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 desesperado
 Foro Bloqueado  Tema Bloqueado


Autor Temas
javicremat
Starting Member

España
14 Posts
Mensajes - 06 Mar 2007 :  10:16:15  Ver Perfil  Enviar Email  Visit javicremat's Homepage  Enviar javicremat un Mensaje ICQ  Enviar javicremat un Mensaje Yahoo!  Enviar javicremat un Instant Message
Hola estoy desesperado lo he probado casi todo y no me funciona. Tengo una Base de datos con imagenes pero no puedo mostrarlas en mi web. el codigo que tengo es el siguiente:
<!-- #include file="adovbs.inc" -->
<html>

<head>

<title>Galeria de Imagenes</title>
<SCRIPT>
<!--
function displayWindow(url, width, height)
{
var Win = window.open(url,"displayWindow",'width=' + width + ',height=' + height + ',resizable=no,scrollbars=no,menubar=no,status=no' );
}
//-->
</SCRIPT>

</head>

<body bgcolor="#55B5F1">

<div align="center">
<center>
<table border="0" width="100%">
<tr>
<td width="6%">&nbsp;</td>
<td width="94%">
<p align="center"><font color="#FFFFFF"><b><big><big><big>Galería de </big></big></big><big><big><big>Imágenes</big></big></big></b></font></td>
</tr>
</table>
</center>
</div>

<font color="#FFFFFF">
<%


set rs = CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\..\db\FileDB.mdb"))

rs.CursorType = adOpenKeyset
'rs.LockType = adLockOptimistic

sqltxt="SELECT * FROM Files"

rs.Open sqltxt,conn
tamanopagina=3


paginaabsoluta=request.querystring("paginaabsoluta")
if paginaabsoluta="" then
paginaabsoluta=1
end if
if paginaabsoluta=1 Then
inicio=1
else
inicio=1+(paginaabsoluta-1)*tamanopagina
end if

fin=inicio+tamanopagina-1
if fin > rs.recordcount then
fin =rs.recordcount
end if

rs.pagesize= cint(tamanopagina)
'rs.absolutepage=cint(paginaabsoluta)

contador=1%>
<br>
<div align="center">
<center>
<table border="1" width="66%" bgcolor="#FFFFFF" bordercolor="#3399FF">
<tr>
<td width="50%" align="center" bgcolor="#C0C0C0">Imágenes <font color="#FF0000"><%=inicio%> </font>
a <font color="#FF0000"><%=fin%></font> de un total de
<font color="#FF0000"><%=rs.recordcount%></font></td>
<td width="50%" align="center" bgcolor="#C0C0C0">Página <font color="#FF0000"><%=paginaabsoluta%>
</font> de <font color="#FF0000"><%=rs.pagecount%></font></td>
</tr>
</table>
</center>
</div>

<br>

<% do while not rs.eof and contador <= cint(tamanopagina) %>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="4" width="40%" bgcolor="#C0C0C0">
<tr>
<td width="25%">
<A HREF="javascript:displayWindow('showimg.asp?id=<%=RS("ID")%>')">




<%
' Recupera imagenes desde una base de datos

Response.Buffer = True
ID = Request.querystring("ID")
If Len(ID) < 1 Then
ID = 1
End If



connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\..\db\FileDB.mdb")
Set rss = Server.CreateObject("ADODB.Recordset")
rss.Open "select [File Data min],[Content Type] from Files where ID = " & _
ID, connStr, 2, 4

If Not rss.EOF Then
Response.ContentType = rss("Content Type")
Response.BinaryWrite rss("File Data min")
End If


rss.Close
Set rss = Nothing
' -- file.asp --
' Retrieves binary files from the database

%>





</a></td>
<td width="75%"><font size="1" face="Tahoma">Descripción: <strong><%= RS("Profession")%></strong> </font></td>
</tr>
</table>

</center>
</div>
<br>
<%rs.movenext

contador=contador+1

loop%>


<p align="center"><b>Pulsa en la página a la que deseas ir</b> </p>

<table align="center" bgcolor="#ffffff">

<tr>

<%j=0

if cint(paginaabsoluta) <> 1 then

atras=cint(paginaabsoluta)-1

response.write "<td align=center><a href=galeria.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & atras & ">"&"&lt;&lt;"&"</a></td>"

j=j+1

end if

for i = 1 to rs.pagecount

j=j+1

if j>20 then

response.write "</tr><tr>"

j=1

end if

if cint(i) = cint(paginaabsoluta) then

response.write "<td bgcolor=#00ff00 align=center>"&i&"</td>"

else

response.write "<td align=center><a href=galeria.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & i & ">"&i&"</a></td>"

end if

next %>

<%if cint(paginaabsoluta) <> rs.pagecount then

atras=cint(paginaabsoluta)+1

response.write "<td align=center><a href=galeria.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & atras & ">"&"&gt;&gt;"&"</a></td>"

end if%>

</tr>

</table>

<p align="center"> </p></font>

<p align="center"> </p>
<p align="right">&nbsp;</p>

</body>

</html>


por favor ayudenme.

Javi

javicremat
Starting Member

España
14 Posts
Posted - 08 Mar 2007 :  10:10:11  Ver perfil  Enviar e-mail  Visit javicremat's Homepage  Enviar javicremat un Mensaje ICQ  Enviar javicremat un Mensaje Yahoo!e  Enviar javicremat un Instant Message
No puedo creer que nadie de vosotros sepa la solución. Sois aspmaníacos. Venga va es un nuevo reto.

JaviInicio Pagina

javicremat
Starting Member

España
14 Posts
Posted - 08 Mar 2007 :  21:03:48  Ver perfil  Enviar e-mail  Visit javicremat's Homepage  Enviar javicremat un Mensaje ICQ  Enviar javicremat un Mensaje Yahoo!e  Enviar javicremat un Instant Message
Ya lo tengo chicos gracias por nada.

JaviInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar