header error

angus
16 de Enero del 2004
hola de nuevo, despues de hacer el CDONTS (los datos me llegan al correo) hago un redireccionamiento a otra pagina para confirmar que han llegado los datos pero aqui me da un error:

Header Error

/uptest.asp, line 67

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

He puesto arriba del todo <%response.buffer=true%> pero tampoco me funciona.

Si me pudieses ayudar...
Muchisimas gracias.

Ahi va el cdigo:

<% Response.Buffer = True %>
<!--#include file="xelupload.asp"-->
<%
Dim up, fich,ficheroSubido
Dim name
set up = new xelUpload
up.Upload()
Response.Flush

name = up.Form("nombre")
cargo = up.Form("cargo")
empresa = up.Form("empresa")
paisname = up.Form("paisname")
direccion = up.Form("direccion")
telefono=up.form("telefono")
fax=up.form("fax")
email=up.form("email")
mail=up.form("mail")
telefono2=up.form("telefono2")
correo=up.form("correo")
observaciones=up.form("observaciones")


'Para guardarlo
' Con el nombre de fichero original:

For each fich in up.Ficheros.Items
fich.Guardar Server.MapPath("attachments")
ficheroSubido=fich.nombre
Next

'Limpiamos objeto

set up = nothing
'*****************************************************

'*****************************************************


'Ahora con todos los datos enviamos en email al cliente y a la tienda
'************************** Envio de correo a la tienda*****************
dim objMail,s
set objMail=createobject("CDONTS.NewMail")
objmail.from="mi correo"
objmail.to="mi correo"
objmail.subject="Contactar "
objMail.AttachFile Server.MapPath("attachments")&"/"&ficheroSubido,,1
s="<b>CONTACTAR</b><br><br>" &_
"<b>Nombre:</b> "& name &" <br>" &_
"<b>Cargo:</b> "& cargo&" <br>" &_
"<b>Empresa/Organismo:</b> "& empresa &" <br>" &_
"<b>Pas:</b> "& paisname &" <br>" &_
"<b>Direccin:</b> "& direccion &" <br>" &_
"<b>Telfono:</b> "& telefono &" <br>" &_
"<b>Fax:</b> "& fax &" <br>" &_
"<b>E-mail:</b> "& email &" <br>" &_
"<b>Forma de contacto:</b> "&"Email <b>"& mail &"</b> Telefono <b>"& telefono2 &"</b> Correo <b>"& correo &"</b> <br>" &_
"<b>Observaciones:</b> "& observaciones

objmail.bodyFormat=0 'Para poder enviar cdigo HTML
objmail.MailFormat=0 'Para poder enviar cdigo HTML

objMail.Body=s
objmail.send
set objmail=nothing
'**************************************************************
response.redirect("confirmacion.htm")

%>