necesito ayuda rapidooooo!!!!

[dobled]

Me sale este error cuando subo la pagina...
Response object error 'ASP 0156 : 80004005'

Header Error

/malpaso/biblioteca/olvido_password.inc, line 20

The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.

pero en mi personal webserver no

que onda pasa...



DD

[urjose]

pon esta linea hasta arriba y antes que cualquiero codigo


<%Response.Buffer=true%>

saludos

[dobled]

OK ...


Me funciono pero ahora me sale el siguiente mensaje


Microsoft VBScript runtime error '800a01ad'

El componente ActiveX no puede crear el objeto

/malpaso/biblioteca/olvido_password.inc, line 24

[urjose]

Si nos pones el contenido de esa linea, mejor

[dobled]

Aqui va

objmail.From="[email protected]"

tu puedes.... ;)

[dobled]

lo raro que en mi pc me funiono sin colocar la linea que me dijiste...

y cuando lo subi al server me empezo a dar problemas...

ahhh y por que la linea que escribiste....

:)

[urjose]

El error no es de ahi

El error debe estar en una linea asi:

Set algo=Server.CreateObject("Algo")

pon esa linea.

[dobled]

Este es el codigo


<%
Dim UsersRS__value
UsersRS__value = "zx"
if (Request.Form("Email") <> "") then UsersRS__value = Request.Form("Email")
%>
<%
set UsersRS = Server.CreateObject("ADODB.Recordset")
UsersRS.ActiveConnection = MM_ForgottenEmail_STRING
UsersRS.Source = "SELECT Email, nombre, Password FROM Usuarios WHERE Email='" + Replace(UsersRS__value, "'", "''") + "'"
UsersRS.CursorType = 0
UsersRS.CursorLocation = 2
UsersRS.LockType = 3
UsersRS.Open()
UsersRS_numRows = 0
%>
<%
if Request.Form("submit") <> "" then
if UsersRS.eof and UsersRS.bof then
response.redirect "error_email.asp"
else
Dim objmail, mailbody
set objmail=CreateObject("CDONTS.NewMail")
objmail.From="[email protected]"
objmail.To=Request.Form("Email")
objmail.Subject="Username and Password"
mailbody="Tu Password es:" & vbcrlf
mailbody=mailbody & "Email - " & UsersRS("email") & vbcrlf
mailbody=mailbody & "Password - " & UsersRS("password") & vbcrlf
objmail.Body=mailbody
objmail.Send
set objmail=Nothing
response.redirect "envio_ok.asp"
end if
end if
%>



vale ;)

[urjose]

el problema esta en que el servidor no puede crear el Objeto CDONTS revisa el SMTP configuralo y si no esta en tus manos habla con tu proveedor de hosting

saludos

[urjose]

prueba asi:

set objmail=Server.CreateObject("CDONTS.NewMail&q uot;)

[dobled]

Gracias urjose

Parece que me tengo que cambiar de Proveedor de Hosting, porque otro sitio que tengo el mismo sistema de envio de password me funciona y otros 2 de este no funcan. Te agradezco tu ayuda y por su puesto tu rapidez. No queda otra cosa que cambiarse.. ;)



Gracias Dobled
DD

[urjose]

Probaste el último ejemplo que te di?

creo que por ahi esta el error, lo mas seguro es que sea eso y tu ya estas en el extremo de tirar tu servidor jaja

saludos