Salve a tutti, premetto che le mie conoscenze di asp.net sono pessime.
Sto cercando di far funzionare il form contatti di questa pagina
http://snipurl.com/26h6y

Parte l'invio ma non passano i campi compilati, dunque mi arriva una mail vuota.

Ripeto non sono pratico di asp.net ma a occhio il problema è dato dal fatto che sto cercando di adattare il cdosys di aruba che è compilato in asp classico.

Il cdosys si aspetta il request.form mentre io utilizzo delle textbox come queste

<asp:TextBox id="tbNome" runat="server" class="g4" />
<asp:RequiredFieldValidator runat="server"
ControlToValidate="tbNome"
ErrorMessage="il campo nome è obbligatorio"
Display="dynamic"/>

Spero che mi possiate aiutare
Grazie in anticipo

Nella pagina che contiene il form ho questo codice che manda al cdosys

<%@ Page Language="VB" %>

<script runat="server">
sub Submit(obj as object, e as eventargs)
if Page.IsValid then
response.redirect("formcdosys.asp")
end if
end sub
</script>

Il cdosys è questo:

<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "info@pubblicando.net"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "info@pubblicando.net"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('risposta.asp');
</script>