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

tengo uno de esos problemas tontos

Estas en el tema de tengo uno de esos problemas tontos en el foro de ASP Clásico en Foros del Web. sip amigo asi como dice el titulo, a quien no alguna vez estuvo lidiando con un codigo el cual parece todo bien pero hay algo ...
  #1 (permalink)  
Antiguo 26/05/2007, 06:55
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
tengo uno de esos problemas tontos

sip amigo asi como dice el titulo, a quien no alguna vez estuvo lidiando con un codigo el cual parece todo bien pero hay algo super tonto que no logra encontrar, bueno ami me esta pasando y despues de largas horas, me siento derrotado es por eso que acudo a ustedes para que me tiren con urgencia una soga.

aqui el codigo

<%
dim Con,rst,fecha, sqltext
' Creamos la conexión a la base de datos sin DSN
set Con = Server.CreateObject("ADODB.Connection")
'set rst = Server.CreateObject("ADODB.RecordSet")
Zona1="Sin-Zona"
Seccion1="Mirada"
fecha="24/05/2007"
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")
sqltext = "SELECT * FROM tblDiario WHERE Fecha='24/05/2007' and Zona='Zona1' and Seccion='Seccion1' and publica=true ORDER BY id ASC"
set rst = Con.Execute(sqltext)
Do While Not not rst.eof and not rst.bof
%>
<a style="CURSOR: hand; TEXT-DECORATION: none" onclick="window.open('../Templates/vernota.asp?id=<%=rst("id")%> ','','SCROLLBARS=yes,WIDTH=600,HEIGHT=500')"><img src="../Img/banner/la _otra_mirada.jpg" width="191" height="306" border="0" /></a>

<%
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Con.Close
Set Con = Nothing
%>
'esto es para ver si pasan los datos de la variable
<%= fecha%><br>
<%= Zona1%><br>
<%= Seccion1%>

bueno como ven no es nada del otro mundo pero la cosa es que no me tira error, es mas, me tira el resultado de las variables correctamente, pero no me muestra nada, ¡si ya se! hay datos en la base digamos que un resultado me deveria mostrar pero nada.
espero la ayuda como siempre de ustedes
gracias
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #2 (permalink)  
Antiguo 26/05/2007, 11:04
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: tengo uno de esos problemas tontos

cambia tu forma de conexion

DE
Código PHP:
 Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" Server.MapPath("data.mdb"
A
Código PHP:
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;"&"DATA SOURCE=" Server.MapPath("data.mdb") & ";Persist Security Info=False;"
lo anterior solo para despues evitar el error 8004005

y me podrias decir por que tienes esto????
Cita:
Do While Not not rst.eof and not rst.bof
no deberia ser
Cita:
Do While Not rst.eof and not rst.bof
pareciera que le ruegas que no sea el final
suerte
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #3 (permalink)  
Antiguo 26/05/2007, 23:25
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Re: tengo uno de esos problemas tontos

gracias por tu ayuda, bueno con respecto al NOT ese es un error que se me filtro y la verdad no lo veia.
con respecto al com puse el tuyo pero tampoco me funciona


Microsoft VBScript compilation error '800a0401'
Expected end of statement
/skins/prueba.asp, line 10 Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;"&"DATA SOURCE=" & Server.MapPath("/DataBase/dB_porta_2000.mdb") & ";Persist Security Info=False;")---------------------------------------------------------------------------------------------------------------------------------------------^
la forma correcta era esta pero igual nada
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;"&"DATA SOURCE=" & Server.MapPath("/DataBase/dB_porta_2000.mdb") & ";Persist Security Info=False;"

De cualquier manera estoy mas que agradecido por la ayuda
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #4 (permalink)  
Antiguo 26/05/2007, 23:32
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Re: tengo uno de esos problemas tontos

bueno ahora con la cabeza mas descansada me di cuenta que estaba puesto mal los datos a buscar

sqltext = "SELECT * FROM tblDiario WHERE Fecha='24/05/2007' and Zona='Zona1' and Seccion='Seccion1' and publica=true ORDER BY id ASC"

donde dice Zona1 ese es el nombre de la variable en realidad devia ser Zona y lo mismo en Seccion1
ahora si todo funcionando correctamente
muchas gracias Shiryu Libra por tu ayuda y tu aporte
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #5 (permalink)  
Antiguo 27/05/2007, 02:39
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: tengo uno de esos problemas tontos

Excelente virla, a festejar
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
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 12:53.