Form con CDO

[help.scrivimi]

NOn riesco più a capire cosa debba fare per inviare un form da un server windows 2003 che utilizza l'oggetto CDO.

Ecco il mio codice per il form con lo script per l'invio.
Help me!
Grazie mille.

<%
'Controlla invio
If Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
'Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
'Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject("CDO.Configuration")

'Imposta le configurazioni
With objConfig

'Server SMTP di uscita
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' server SMTP

'Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 8025

'Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Fields.Update
End With

'Assegna le configurazioni
Set objMail.Configuration = objConfig

'Assegna all'oggetto le proprietà necessarie
objMail.To = "webmaster@xxxxx.com" '<---------- EMAIL Destinatario
objMail.From = Request.Form("email") '<---------- Mittente
objMail.Subject = Request.Form("oggetto") '<----------- Oggetto
objMail.HTMLBody = Request.Form("messaggio") '<-------- Messaggio

'Invia l'email
objMail.Send()
Set objMail = Nothing
Response.Write("Email inviata correttamente")
Else
%>
<form name="formail" method="post" action="email.asp?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" /></td>
</tr> <tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr> <tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr> <tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr> </table>
</form>
<%
End If
%>

[yro]

da errori?

[help.scrivimi]

urca!
Internal Server Error

[yro]

Originariamente inviato da help.scrivimi
urca!
Internal Server Error

hai disabilitato sul browser i messaggi di errore brevi?

[help.scrivimi]

yes, non cambia nulla!

[help.scrivimi]

qualcuno puà consigliarmi dove scaricare un modulo web che spedisce in casella email i dati raccolti???
tks

[yro]

il server è gestito da te?

io uso questo codice:

'invio email

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strEmailda
MiaMail.To = strEmaila
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = strTitolo
MiaMail.HTMLBody = strBody
if strAllegato <> "" then
dim allegato
allegato=Server.MapPath("/cartella/strAllegato)
MiaMail.AddAttachment (allegato)
end if
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

[help.scrivimi]

Il problema è collegare questo codice ad un modulo

[yro]

nella pagina A fai un form con i campi interessati

nella pagina B fai tutti i request.form che ti servono, e li inserisci nelle apposite variabili che saranno poi inviate nella mail tramite il codice che ti ho scritto.

[help.scrivimi]

Scusate tutti se posto il codice ma proprio sto
L'errore è sempre Internal Server Error
file 1.html
<form name="modulo" method="post" action="2.asp">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="strEmailda" /></td>
</tr> <tr>
<td>Soggetto</td>
<td><input type="text" name="strTitolo" /></td>
</tr> <tr>
<td>Messaggio</td>
<td><textarea name="strBody"></textarea></td>
</tr> <tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr> </table>
</form>

File 2.asp
<%
If Request.Form("submit") = "invia" then
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverPort") = 8025
Fields.Update
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strEmailda
MiaMail.To = "webmaster@xxxxx.com"
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = strTitolo
MiaMail.HTMLBody = strBody
if strAllegato <> "" then
dim allegato
allegato=Server.MapPath("/cartella/strAllegato)
MiaMail.AddAttachment (allegato)
end if
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
Else
%>
<%
End If
%>