perchè non va questo codice?
allego il TXT...è un CODSYS che raccoglie dati da un form in flash..premetto che i dati dalla pagina flash vengono inviati correttamente...
mi torna un errore "error '8004020f'" alla riga 71 dove c'è objsend()..
Siccome la stessa pagina la uso su ARUBA e funziona perfettamente (se inserisco l'smtp corretto)..vorrei capire come mai su hosting solutions non va:
posto il codice:

codice:
<body bgcolor="#f0f0f0">
<% 
nome = request("nome")
cognome = request("cognome")
mail = request("mail")
messaggio = request("messaggio")
'controllo sui campi
if nome = "" then
	response.write "<table width='100%' height='100%'>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>manca il nome"
	response.write "</td></tr>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>chiudi"
	response.write "</td></tr></table>"
	response.End()
end if
if cognome = "" then
	response.write "<table width='100%' height='100%'>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>manca il cognome"
	response.write "</td></tr>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>chiudi"
	response.write "</td></tr></table>"
	response.End()
end if
if mail = "" then
	response.write "<table width='100%' height='100%'>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>manca il vostro indirizzo E-mail"
	response.write "</td></tr>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>chiudi"
	response.write "</td></tr></table>"
	response.End()
end if
if messaggio = "" then
	response.write "<table width='100%' height='100%'>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>manca il messaggio"
	response.write "</td></tr>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>chiudi"
	response.write "</td></tr></table>"
	response.End()
end if

TEXT = "<font face='verdana' size='2'>il signor: " & nome & " " & cognome & "
"
TEXT = TEXT + "Indirizzo e-mail: " & mail & "
"
TEXT = TEXT + "Richiede: " & messaggio & "
</font>"  
Dim objMail, objConfig 
Set objMail = CreateObject("CDO.Message") 
Set objConfig = Server.CreateObject ("CDO.Configuration") 
With objConfig 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.imbiancature.com" 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
   .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60   
.Fields.Update 
End With 
Set objMail.Configuration = objConfig 
objMail.From = "sito internet" 
objMail.To = "indirizzo@email.it" 
objMail.Subject = "Nuovo messaggio dal sito internet" 
objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
objMail.Fields.Update() 
'Allegare un file 
'objMail.AddAttachment("d:\inetpub\webs\tuodominiocom\file.zi p") 
objMail.htmlBody = TEXT
objMail.Send() 
Set objMail = Nothing 
response.write "<table width='100%' height='100%'>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>il messaggio è stato inviato.GRAZIE"
	response.write "</td></tr>"
	response.write "<tr><td align='center' valign='center'>"
	response.write "<font face='verdana' size='1'>chiudi"
	response.write "</td></tr></table>"
%>
Spero che qualcuno mi possa aiutare...ciao e grazie..