Hola tengo un formulario y lo envio con el CDONTS.NewMail
pero todo me funcionava correctamente hasta que he intentado poden un campo desplegable <select>, el error es que no me introduce en el correo el valor del campo seleccionado.
lo hago asi
<%
sYouEmail="[email protected]"
EmailSubject="alta en mailing"
Sub ShowForm
%>
<form action="<%= Request.ServerVariables("Script_Name") %>" method="post">
<input name="percontacto" type="text" value="<%= Request.Form("percontacto") %>" class="formulario" id="percontacto" size="35"></input>
<textarea name="observaciones" cols="34" rows="4" class="formulari" id="observaciones"><%= Request.Form("observaciones") %></textarea></td>
<select name="valor" id="valor" title="valor">
<option value="<%= Request.Form("valor")="valor1" %>" >valor1</option>
<option value="<%= Request.Form("valor")="valor2" %>">valor2</option>
</select>
y lo recogo
<%
End Sub
Sub Send
sPunter = Request.Form("percontacto")
valor = Request.Form("valor")
sMessage = "Persona de contacte: " & sPunter & vbcrlf _
&"valor: " & valor &vbcrlf
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.Send sPunterEmail, sYouEmail, EmailSubject, sMessage
Set objNewMail = Nothing
End Sub
Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in Request.Form
If ValidateField(Request.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If Request.Form.Count <> 0 And dictFields.Count = 0 Then
%>
ok mensaje enviado correctamente
<%
Call Send
Else
ShowForm
End If
%>
en que me confundo?
