Utilizacion de ventana emergente

[ymeza]

Hola a todos!!!!. Estoy haciendo una aplicación en donde se realiza un busqueda de información utilizando para ello una base de datos hecha en access. Cuando los criterios de busqueda coinciden con la informacion de la B.d, aparece la misma en una ventana aparte pero cuando no se encuentra el registro solicitado, debe aparecer una pagina que diga que dicho campo no se encontró. Eso lo hice y funciona bien , pero quiero que en vez de direccionarse a otra página me aperezca una ventana emergente en la que se diga que esa información no existe. Hay alguna manera de hacer esto???
Gracias!

[vic78]

Hola.

Si si hay una forma
<%
Set rs = Server.........
Sql="Select..."
Sql.Open........

If Not rs.EOF then
'Los datos a mostrar
Else
%>
<Script>
window.open('erro.asp','erro','width....')
<Script>
<%
End if
%>

Espero que se halla resuelto tu duda
Saludos
Vic

[ymeza]

Disculpa pero estoy un poco confundida aun, pero el codigo que tengo es el siguiente:
<%
set Results = Server.CreateObject("ADODB.Recordset")
Results.ActiveConnection = MM_connIP_STRING
Results.Source = "SELECT IP, Enlace, Asignada FROM Direcciones WHERE IP LIKE '" + Replace(Results__varIp, "'", "''") + "'"
Results.CursorType = 0
Results.CursorLocation = 2
Results.LockType = 3
Results.Open()
Results_numRows = 0
If Results.EOF = True then
Response.Redirect "disponible.asp"
End If
%>

Y precisamente la pagina a la que debo accesar o la que se debería abrir es disponible.asp, entonces no sé donde podría colocar la función que me enviaste!!

si me puedes orientar al respecto te lo agradecería

[vic78]

Hola seria algo asi

<%
set Results = Server.CreateObject("ADODB.Recordset")
Results.ActiveConnection = MM_connIP_STRING
Results.Source = "SELECT IP, Enlace, Asignada FROM Direcciones WHERE IP LIKE '" + Replace(Results__varIp, "'", "''") + "'"
Results.CursorType = 0
Results.CursorLocation = 2
Results.LockType = 3
Results.Open()
Results_numRows = 0
If Results.EOF = True then
%>
<Script>
window.open('disponible.asp','error','width....')
<Script>
<%
End if
%>
End If
%>

Espero que te sirva asi

Saludos