Redirect en una nueva ventana

Lo siguiente te abre una nueva ventana de 100x100 con la
pagina Aviso.asp:
<%
If (not rsmio.BOF) and (not rsmio.EOF) then
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing
Response.Write ">script language='javascript'" & VbCrLf
& _
" window.open
('Aviso.asp','new','width0,
height0,directories=no,status=no,fullscreen=no,locationno,menubar=no,resizable=yes,scrollbars=yes,status=yes,title
bar=yes, toolbar=no');" & vbCrLF & _
"</script>"

end if
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing
%>

Espero te sirva

Saludos

Como puedo redireccionar utilizanzo Response.Redirect a
una nueva ventana sin barras del explorador, etc y de un
determinado tamaño.
El codigo en el que iria incluido es el siguiente:


<%
If (not rsmio.BOF) and (not rsmio.EOF) then
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing
Response.Redirect "Aviso.asp"

end if
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing
%>
.

Por desgracia no funciona
He incluido el codigo y da error
Si mantengo el Response.Redirect no hay problema
Otra forma podia ser una alerta para avisar que lo
recogido en el Formulario ya existe en la BD.

Te incluyo el codigo completo
<%
Dim ojoConn, rsmio, SQLText,MiMicrochip,MyURL
set ojoConn=Server.CreateObject("ADODB.Connection")
set rsmio=Server.CreateObject("ADODB.Recordset")
ojoConn.ConnectionString="DSN=XXXXXXXXXXXX"
ojoConn.Mode=3
ojoConn.open

SQLText = "SELECT * FROM Identificacion WHERE
(((Microchip) = '"&Request.Form("Microchip")&"'))"

rsmio.Open SQLText, ojoConn, 1, 2

If (not rsmio.BOF) and (not rsmio.EOF) then
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

Response.Redirect "Aviso.asp"
end if
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

%>

Gracias

¿Me puedes incluir el codigo que te marca error por favor,
para verificar que es lo que pasa?
Gracias

Por desgracia no funciona
He incluido el codigo y da error
Si mantengo el Response.Redirect no hay problema
Otra forma podia ser una alerta para avisar que lo
recogido en el Formulario ya existe en la BD.

Te incluyo el codigo completo
<%
Dim ojoConn, rsmio, SQLText,MiMicrochip,MyURL
set ojoConn=Server.CreateObject("ADODB.Connection")
set rsmio=Server.CreateObject("ADODB.Recordset")
ojoConn.ConnectionString="DSN=XXXXXXXXXXXX"
ojoConn.Mode=3
ojoConn.open

SQLText = "SELECT * FROM Identificacion WHERE
(((Microchip) = '"&Request.Form("Microchip")&"'))"

rsmio.Open SQLText, ojoConn, 1, 2

If (not rsmio.BOF) and (not rsmio.EOF) then
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

Response.Redirect "Aviso.asp"
end if
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

%>

Gracias
.

Si lo que quieres es simplemente mandar un mensaje de aviso para cuando el
registro existe, Te sirve esto?

<%
Dim ojoConn, rsmio, SQLText,MiMicrochip,MyURL
set ojoConn=Server.CreateObject("ADODB.Connection")
set rsmio=Server.CreateObject("ADODB.Recordset")
ojoConn.ConnectionString="DSN=XXXXXXXXXXXX"
ojoConn.Mode=3
ojoConn.open

SQLText = "SELECT * FROM Identificacion WHERE
(((Microchip) = '"&Request.Form("Microchip")&"'))"

rsmio.Open SQLText, ojoConn, 1, 2

If (not rsmio.BOF) and (not rsmio.EOF) then
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

Response.Write "<scr" & "ipt Language=javascript>"
Response.Write " alert('Registro ya existe!');
Response.Write "</scr" & ipt>"

end if
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

%>

German Saer

Orlando, FL


"MCLC" wrote in message
news:745901c483ca$3c01cd40$
¿Me puedes incluir el codigo que te marca error por favor,
para verificar que es lo que pasa?
Gracias

Por desgracia no funciona
He incluido el codigo y da error
Si mantengo el Response.Redirect no hay problema
Otra forma podia ser una alerta para avisar que lo
recogido en el Formulario ya existe en la BD.

Te incluyo el codigo completo
<%
Dim ojoConn, rsmio, SQLText,MiMicrochip,MyURL
set ojoConn=Server.CreateObject("ADODB.Connection")
set rsmio=Server.CreateObject("ADODB.Recordset")
ojoConn.ConnectionString="DSN=XXXXXXXXXXXX"
ojoConn.Mode=3
ojoConn.open

SQLText = "SELECT * FROM Identificacion WHERE
(((Microchip) = '"&Request.Form("Microchip")&"'))"

rsmio.Open SQLText, ojoConn, 1, 2

If (not rsmio.BOF) and (not rsmio.EOF) then
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

Response.Redirect "Aviso.asp"
end if
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

%>

Gracias
.

usa javascript puro , un alert puede q te sirva
<%
If (not rsmio.BOF) and (not rsmio.EOF) then
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing
%><script languaje=javascipt>
alert('El registro ya existe');
</script>
<%
end if
%>

"Cristina Martin" escribió en el
mensaje news:712d01c483bb$0fc5c9c0$

Por desgracia no funciona
He incluido el codigo y da error
Si mantengo el Response.Redirect no hay problema
Otra forma podia ser una alerta para avisar que lo
recogido en el Formulario ya existe en la BD.

Te incluyo el codigo completo
<%
Dim ojoConn, rsmio, SQLText,MiMicrochip,MyURL
set ojoConn=Server.CreateObject("ADODB.Connection")
set rsmio=Server.CreateObject("ADODB.Recordset")
ojoConn.ConnectionString="DSN=XXXXXXXXXXXX"
ojoConn.Mode=3
ojoConn.open

SQLText = "SELECT * FROM Identificacion WHERE
(((Microchip) = '"&Request.Form("Microchip")&"'))"

rsmio.Open SQLText, ojoConn, 1, 2

If (not rsmio.BOF) and (not rsmio.EOF) then
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

Response.Redirect "Aviso.asp"
end if
rsmio.close
ojoConn.Close
set rsmio = nothing
set ojoConn=nothing

%>

Gracias