CDONTS
Publicado por xampa (2 intervenciones) el 09/12/2001 06:46:26
Saludos al grupo:
Tengo un codigo, para enviar un form con el objeto CDONS, funciona perfecto pero cuando envia los campos con su correspondiente contenido los envia uno junto al otro en vez de uno debajo del otro. He intentado colocar un <br> pero no se donde.
Dejo aquí el codigo os estaria muy agradecido si alguien lo supiera.
<%@ Language=VBScript %>
<%
nombresdeloscampos = "cliente, email, telefono, submit, borrar"
nombres = split(nombresdeloscampos,",")
if Request.Form(1)() <> "" then
for a = 1 to (request.Form.count)
if request.form(a)() = "" then
campo = "(Campo no rellenado)"
else
campo = request.form(a)()
end if
mailtext = mailtext & nombres(a-1) & ": " & campo
next
Set myMail = server.CreateObject("CDONTS.NewMail")
myMail.Subject = "FORMULARIO ENVIADO DESDE LA WEB"
myMail.Body = mailtext
myMail.From = "[email protected]"
myMail.To = "[email protected]" 'este es el mail de destino a donde va el form
msgg = myMail.Send()
Set myMail = Nothing
end if
%>
Tengo un codigo, para enviar un form con el objeto CDONS, funciona perfecto pero cuando envia los campos con su correspondiente contenido los envia uno junto al otro en vez de uno debajo del otro. He intentado colocar un <br> pero no se donde.
Dejo aquí el codigo os estaria muy agradecido si alguien lo supiera.
<%@ Language=VBScript %>
<%
nombresdeloscampos = "cliente, email, telefono, submit, borrar"
nombres = split(nombresdeloscampos,",")
if Request.Form(1)() <> "" then
for a = 1 to (request.Form.count)
if request.form(a)() = "" then
campo = "(Campo no rellenado)"
else
campo = request.form(a)()
end if
mailtext = mailtext & nombres(a-1) & ": " & campo
next
Set myMail = server.CreateObject("CDONTS.NewMail")
myMail.Subject = "FORMULARIO ENVIADO DESDE LA WEB"
myMail.Body = mailtext
myMail.From = "[email protected]"
myMail.To = "[email protected]" 'este es el mail de destino a donde va el form
msgg = myMail.Send()
Set myMail = Nothing
end if
%>
Valora esta pregunta


0