tengo uno de esos problemas tontos

[virla]

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

[Shiryu_Libra]

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????

Do While Not not rst.eof and not rst.bof

no deberia ser

Do While Not rst.eof and not rst.bof

pareciera que le ruegas que no sea el final
suerte

[virla]

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

[virla]

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

[Shiryu_Libra]

Excelente virla, a festejar