Foros del Web » Programando para Internet » ASP Clásico »

Archivo conexion B.datos para pag ASP

Estas en el tema de Archivo conexion B.datos para pag ASP en el foro de ASP Clásico en Foros del Web. Hola!!! El caso es que quiero cargar una pagina en asp llamada fotografias.asp. Dicha pagina mostraría una serie de fotos pero para mostrarlas coje sus ...
  #1 (permalink)  
Antiguo 30/08/2008, 15:37
 
Fecha de Ingreso: octubre-2007
Mensajes: 36
Antigüedad: 16 años, 7 meses
Puntos: 0
Archivo conexion B.datos para pag ASP

Hola!!! El caso es que quiero cargar una pagina en asp llamada fotografias.asp.

Dicha pagina mostraría una serie de fotos pero para mostrarlas coje sus Id-s de una base de datos q se llama neguri.mdb q se encuentra en una carpeta llamada "basededatos".

Lo q yo creo q se encuentra mal es el archivo de conexión a dicha base de datos...

Es la siguiente:

<%
'************************************************* ************************
'*Conexion a Fotografías
'************************************************* ************************
sub neguri(conn)
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../basesdedatos/neguri.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open application "igv-proil.com.fotografias"
end sub

'************************************************* ************************
%>

Luego en la pagina de fotografias.asp el codigo hace lo siguiente:
<!--#include file="conexion.asp"-->
<%
neguri conn

Set rs = Server.CreateObject ("ADODB.RecordSet")
sql="select id,link,link2 from neguri Where id<>656 Order by Id desc"
rs.Open sql,conn,3,1


mostrar = 12
rs.PageSize = mostrar
rs.CacheSize = mostrar
CantidadRegistros = rs.RecordCount
if Request.Querystring("pagina")="" then
pag_actual=1
else
pag_actual=CInt(Request.Querystring("pagina"))
end if

pag_totales = rs.PageCount

if pag_actual < 1 then
pag_actual = 1
end if
if pag_actual > pag_totales then
pag_actual = pag_totales
end if

if pag_totales=0 then
Response.Write("<span class='texto'>No existe ningún archivo</span>")
else
rs.AbsolutePage = pag_actual
cant_registros = 0
%>

Alguien sabría decirme q hago mal??? GRACIAS
  #2 (permalink)  
Antiguo 31/08/2008, 13:42
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Respuesta: Archivo conexion B.datos para pag ASP

Hola

Has de llamar la sub

Call neguri(conn)

Suuerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:55.