Qual'è l'errore che non prende i valori dal form?

[robbe2000]

<%@language=VBScript%>
<%
Set ObjUpload = Server.CreateObject("Persits.Upload")
' Limit file size to 50000 bytes, throw an exception if file is larger
ObjUpload.SetMaxSize 50000, True


' Perform upload
'ObjUpload.Save 'server.mappath(".") & "\temp"

dim objEmailCli
Set objEmailCli = Server.CreateObject("CDONTS.NewMail")


strModulo = "<table border='0' cellpadding='0' cellspacing='0' class='sfondo'>"
strModulo = strModulo & "<tr>"
strModulo = strModulo & "<td height='50' colspan='3'>"
strModulo = strModulo & "<div align='center'>"
strModulo = strModulo & ""
strModulo = strModulo & "</div>"
strModulo = strModulo & "</td>"
strModulo = strModulo & "</tr>"
strModulo = strModulo & "<tr>"
strModulo = strModulo & "<form ENCTYPE='multipart/form-data' action='proxy_modulo.asp' method=post name=form1 >"
strModulo = strModulo & "<td height='50' colspan='3' class='verdanatesto'>"
strModulo = strModulo & "<div class='rientro'>Sei una persona puntuale ed affidabile?"
strModulo = strModulo & " Sei disponibile per un lavoro di pulizia al mattino tra le 6,00 e le 9,00 e/o alla sera tra le ore 18,00 e le ore 21,00?"
strModulo = strModulo & " Hai buone referenze?"
strModulo = strModulo & " Se sei di nazionalit&agrave; straniera, sei in regola con il permesso di soggiorno?"
strModulo = strModulo & " Compila il modulo e potrai essere chiamata/o per un colloquio!"
strModulo = strModulo & "</div>"
strModulo = strModulo & "</td>"
strModulo = strModulo & "</tr></table><table>"
strModulo = strModulo & "<tr>"
strModulo = strModulo & "<td nowrap>Cognome:</td><td>" & ObjUpload.form("Cognome")
strModulo = strModulo & "</td></tr><tr>"
strModulo = strModulo & "<td nowrap>Nome:</td><td>" & ObjUpload.form("nome")
strModulo = strModulo & "</td></tr><tr>"
strModulo = strModulo & "<td nowrap>Nato:</td><td>" & ObjUpload.form("Nato")
strModulo = strModulo & "</td></tr><tr>"
strModulo = strModulo & "<td nowrap>[b]Data nascita</td><td>" & ObjUpload.form("Data_nasc")
strModulo = strModulo & "</td></tr><tr>"
strModulo = strModulo & "<td nowrap>[b]Residente:</td><td>" & ObjUpload.form("Residente")
strModulo = strModulo & "</td></tr><tr>"
strModulo = strModulo & "<td nowrap>Indirizzo:</td><td>" & ObjUpload.form("Indirizzo")
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Telefono") = "Telefono" then
Telefono =""
else
Telefono = ObjUpload.form("Telefono")
end if

strModulo = strModulo & "<td nowrap>Telefono:</td><td>" & Telefono
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Cellulare") = "Cellulare" then
Cellulare =""
else
Cellulare = ObjUpload.form("Cellulare")
end if

strModulo = strModulo & "<td nowrap>Cellulare</td><td>" & Cellulare
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Stato_fam") = "Coniugato/a con..." then
Stato_fam =""
else
Stato_fam = ObjUpload.form("Stato_fam")
end if

strModulo = strModulo & "<td nowrap>Stato famiglia:</td><td>" & Stato_fam
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Professione") = "Professione" then
Professione =""
else
Professione = ObjUpload.form("Professione")
end if

strModulo = strModulo & "<td nowrap>Professione:</td><td>" & Professione
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Figli") = "Figli" then
Figli =""
else
Figli = ObjUpload.form("Figli")
end if

strModulo = strModulo & "<td nowrap>Figli:</td><td>" & Figli
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Professione_figli") = "Professione" then
Professione_figli =""
else
Professione_figli = ObjUpload.form("Professione_figli")
end if

strModulo = strModulo & "<td nowrap>Professione figli</td><td>" & Professione_figli

strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Patente") = "Patente" then
Patente =""
else
Patente = ObjUpload.form("Patente")
end if

strModulo = strModulo & "<td nowrap>Patente:</td><td>" & Patente
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Automunito") = "Automunito/a" then
Automunito =""
else
Automunito = ObjUpload.form("Automunito")
end if

strModulo = strModulo & "<td nowrap>Automunito:</td><td>" & Automunito
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Titolo_studio") = "Titolo di studio" then
Titolo_studio =""
else
Titolo_studio = ObjUpload.form("Titolo_studio")
end if

strModulo = strModulo & "<td nowrap>Titolo studio</td><td>" & Titolo_studio
strModulo = strModulo & "</td></tr><tr>"

strModulo = strModulo & "<td nowrap>Permesso di soggiorno:</td><td>" & ObjUpload.form("personaleDirig")
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Scad_sogg") = "Scadente il 01/01/1900" then
Scad_sogg =""
else
Scad_sogg = ObjUpload.form("Scad_sogg")
end if

strModulo = strModulo & "<td nowrap>Scadenza soggiorno:</td><td>" & Scad_sogg
strModulo = strModulo & "</td></tr><tr>"

if ObjUpload.form("Res_da") = "In Italia da..." then
Res_da =""
else
Res_da = ObjUpload.form("Res_da")
end if

strModulo = strModulo & "<td nowrap>Residente in Italia da:</td><td>" & Res_da
strModulo = strModulo & "</td>"
strModulo = strModulo & "</tr><tr>"

if ObjUpload.form("Descrizione") = "" then
Descrizione =""
else
Descrizione = replace(ObjUpload.form("Descrizione"),VBcrlf, chr(9) & chr(13))
end if

strModulo = strModulo & "<td nowrap>Descrizione Curriculum:</td><td>" & Descrizione
strModulo = strModulo & "</td>"
strModulo = strModulo & "</tr><tr>"


strModulo = strModulo & "<tr>"
strModulo = strModulo & "<td height='100' colspan='3' valign='top'>"
strModulo = strModulo & "<div class='rientro'>"
strModulo = strModulo & ""
strModulo = strModulo & "<span class='verdana2'> I dati inseriti in questo modulo saranno utilizzati al solo scopo di adempiere agli obblighi fiscali e tributari e soggetti al massimo riserbo, in piena ottemperanza della legge 196/03 a tutela della privacy, e quindi non potranno essere divulgati a terzi senza esplicito consenso dell'interessato. L'invio del modulo ne implica l'accettazione."
strModulo = strModulo & "</span>"
strModulo = strModulo & ""
strModulo = strModulo & "</p>"
strModulo = strModulo & "</div>"
strModulo = strModulo & "</td>"
strModulo = strModulo & "</tr>"
strModulo = strModulo & "</form>"
strModulo = strModulo & "</table>"



For Each File in ObjUpload.Files
File.SaveAs server.mappath(".") & "\temp\" & File.FileName

objEmailCli.AttachFile server.mappath(".") & "\temp\" & File.FileName
Next

objEmailCli.BodyFormat = 0 ' trasforma il corpo in html
objEmailCli.MailFormat = 0

objEmailCli.To = ""
objEmailCli.From = ""
objEmailCli.Subject = "Invio Curriculum di " & ObjUpload.form("Cognome") & " " & ObjUpload.form("nome") & " Richiesta proveniente dalla sezione Lavora con noi del sito Hygeo"
objEmailCli.Body = strModulo

objEmailCli.Send

Set objEmailCli = Nothing

strOK = "OK"
response.redirect "modulo.asp?str=" & strOK
%>

[Santino83_02]

cosa dovremmo farci con tutto questo bel codice?