URGENTE.... mirar este código

flyk · #1 (**permalink**) 12/02/2004, 10:27

HOLA AMIGOS ¡¡¡

Tengo el siguiente código. La idea es crear un página intermedia para poder pasar solo los valores que existen en la BBDD a otra página "informe.asp", y no se existen valores que muestre el response.write

El problema es que cuando los valores no existen me los envía igualmente a la página "informe.asp". ¿A que se debe esto?

GRACIASSSSSS ....

</head>
<%
Dim informe_ref, hoja
informe_ref = Request.QueryString("cedula_ref")
NIF = Request.QueryString("NIF")
cargo = Request.QueryString("cargo")
hoja=Right(informe_ref,7)

' Conexión a BBDD
Dim conexion, RS1, oConn
oConn = Server.MapPath("/DesarrolloUrbana/Info_Base.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & oConn & ";"
Set RS1= conexion.Execute("SELECT * FROM web Where REFCATPARC1='"&informe_ref&"' AND NUM_CARGO='"&cargo&"' AND NIF_TITUL='"&NIF&"';")
If (RS1.EOF = false) then
Response.Write "<center>"
Response.Write " NO EXISTEN ENTRADAS EN LA BASE DE DATOS"
Response.Write " "
Response.Write "<img src='../../DisplayStyle/volver.jpg' alt='Volver' border='0' onClick='javascript:window.history.back();' width='50' height='50' align='middle'>"
Response.Write "</center>"
ELSE
Response.Redirect("informe.asp?informe_ref="&infor me_ref&"&NIF="&nif&"&cargo="&cargo&"")
%>
<body bgcolor="#FFFFFF" text="#000000">
</body>
<%
' liberamos y cerramos la BBDD
RS1.Close
Set RS1 = Nothing
conexion.Close
Set conexion = Nothing
%>
<%End If%>
</html>

leophp · #2 (**permalink**) 12/02/2004, 10:52

Hola
podrias poner el codigo entre las etiquetas de php que estan mas arriba cuando creas un temas, pa asi leer el codigo de mejor formas, mira de esta forma.

Código PHP:

  <% 
Dim informe_ref, hoja 
informe_ref = Request.QueryString("cedula_ref") 
NIF = Request.QueryString("NIF") 
cargo = Request.QueryString("cargo") 
hoja=Right(informe_ref,7) 
 
' Conexión a BBDD 
Dim conexion, RS1, oConn 
oConn = Server.MapPath("/DesarrolloUrbana/Info_Base.mdb") 
Set conexion = Server.CreateObject("ADODB.Connection") 
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & oConn & ";" 
Set RS1= conexion.Execute("SELECT * FROM web Where REFCATPARC1='"&informe_ref&"' AND NUM_CARGO='"&cargo&"' AND NIF_TITUL='"&NIF&"';") 
If (RS1.EOF = false) then 
Response.Write "<center>" 
Response.Write "<BR><BR><BR><BR><BR><b>NO EXISTEN ENTRADAS EN LA BASE DE DATOS</b>" 
Response.Write "<BR><BR>" 
Response.Write "<img src='../../DisplayStyle/volver.jpg' alt='Volver' border='0' onClick='javascript:window.history.back();' width='50' height='50' align='middle'>" 
Response.Write "</center>" 
ELSE 
Response.Redirect("informe.asp?informe_ref="&informe_ref&"&NIF="&nif&"&cargo="&cargo&"") 
%> 
<body bgcolor="#FFFFFF" text="#000000"> 
</body> 
<% 
' liberamos y cerramos la BBDD 
RS1.Close 
Set RS1 = Nothing 
conexion.Close 
Set conexion = Nothing 
%> 
<%End If%>

leophp · #3 (**permalink**) 12/02/2004, 11:04

Yo veo dos problemas en tu codigo

1.- Es que debes cerrar el If antes ya que los objetos los estas cerrando solo si pasa dentro del else, en caso contrario te quedarian abiertos.

2.- La pregunta del if debe ser If RS1.EOF = True Then ya que el EOF es true cuando llega al ultimo registro el recordset esta vacio

Saludos