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
%>