05/12/2002, 01:44
|
| | | Fecha de Ingreso: noviembre-2002
Mensajes: 249
Antigüedad: 22 años, 6 meses Puntos: 0 | |
| Ya he puesto la línea de buffer, la cosa está así:
<html>
<title>mirar</title>
<body>
<%@ LANGUAGE=VBScript %>
<%Response.Buffer=true%>
<% DIM BD, RS, SQL
Set BD = Server.CreateObject("ADODB.Connection")
BD.Open "DSN=imateu.com.per"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM per_ent WHERE usuario = '" & Request.form ("usuario") & "'"
RS.Open SQL, BD
if RS.EOF then
Response.Redirect "default.htm"
end if
if RS.Fields ("password") <> Request.form("password") then
Response.Write "http://www.imateu.com"
else
if RS.Fields ("inicio") = null then
Response.Write "http://imateu.com/usuaris/cro/pagi.htm"
else
Response.Write "http://imateu.com/usuaris/cro/" & RS.Fields("inicio")
end if
end if
%>
</body>
</html>
y me da el siguiente error:
objeto Response error 'ASP 0156 : 80004005'
Error de encabezado
/usuarios/cro/mirar.asp, line 6
Los enbezados HTTP ya están escritas en el explorador cliente. Cualquier cambio en el encabezado HTTP se debe hacer antes de escribir el contenido de la página.
La línea 6 es la que tiene Response.Buffer, creo que está bien.
He mirado otras consultas y la verdad, no entiendo que es lo que pasa.
El tema de los if y el resto, está bien, he cambiado "redirect" por "write" y el resultado es correcto. |