Problema con CDONTS

[andgiaim]

Salve ragazzi,

Ho un problema ad inviare in form per una richiesta di prenotazione.

I dati vengono inseriti correttamente nel database ma non invia l'email di notifica

Qst è il codice:

<%
If request("Button")="Invia" then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=request("emailCliente")
CorpoMessaggio="Richiesta di prenotazione dell'agenzia: " & request("ragioneSociale") & VBCrlf
CorpoMessaggio=CorpoMessaggio & "nome agente: " & request("nomeAgente") & VBCrlf
CorpoMessaggio=CorpoMessaggio & "cognome agente: " & request("cognomeAgente") & VBCrlf
CorpoMessaggio=CorpoMessaggio & "nome cliente: " & request("nomeCliente") & VBCrlf
CorpoMessaggio=CorpoMessaggio & "cognome cliente: " & request("cognomeCliente") & VBCrlf
CorpoMessaggio=CorpoMessaggio & "codice fiscale cliente: " & request("codFiscCliente") & VBCrlf

objMail.Body=CorpoMessaggio
objMail.To="webgromat@gromat.com"
objMail.Subject="Richiesta di Prenotazione Offerta"
objMail.Send
set objMail = nothing
Else
%>
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="formPrenotazioni">
..........
<input type="hidden" name="ragioneSociale" value="<%=(rsDati.Fields.Item("ragioneSoc").Value) %>">
................
<input type="hidden" name="nomeAgente" value="<%=(rsDati.Fields.Item("nomeAgente").Value) %>">
<input type="hidden" name="cognomeAgente" value="<%=(rsDati.Fields.Item("cognomeAgente").Val ue)%>">
.........................

<td height="32" width="200">
<div align="left"> [img]space.gif[/img]
<input type="text" name="nomeCliente" class="inputMaiuscolo" size="25">
<span class="txt">*</span></div>
</td>
<td height="32">
<div align="right" class="txt">Cognome</div>
</td>
<td height="32" width="5"> </td>
<td height="32" width="250">
<div align="left"> [img]space.gif[/img]
<input type="text" name="cognomeCliente" class="inputMaiuscolo" size="25">
<span class="txt">*</span></div>
</td>
....................
....................

<td height="32" width="200">
<div align="left"> [img]space.gif[/img]
<input type="text" name="codFiscCliente" class="inputMaiuscolo" >
<span class="txt">*</span></div>
</td>

...........................
...........................

<input type="submit" name="Button" value="Invia" class="input3" disabled onClick="MM_validateForm('nomeCliente','','R','cog nomeCliente','','R','indirizzoCliente','','R','cit taCliente','','R','CAPCliente','','RisNum','codFis cCliente','','R','telCliente','','R','cellCliente' ,'','R','faxCliente','','R','emailCliente','','Ris Email','fasciaEtaCliente','','R','modPagamento','' ,'R','nomeCliente2','','R','cognomeCliente2','','R ','indirizzoCliente2','','R','cittaCliente2','','R ','CAPCliente2','','R','telCliente2','','R','fasci aEtaCliente2','','R','nomeCliente3','','R','cognom eCliente3','','R','indirizzoCliente3','','R','citt aCliente3','','R','CAPCliente3','','R','telCliente 3','','R','fasciaEtaCliente3','','R','nomeCliente4 ','','R','cognomeCliente4','','R','indirizzoClient e4','','R','cittaCliente4','','R','CAPCliente4','' ,'R','telCliente4','','R','fasciaEtaCliente4','',' R','nomeCliente5','','R','cognomeCliente5','','R', 'indirizzoCliente5','','R','cittaCliente5','','R', 'CAPCliente5','','R','telCliente5','','R','fasciaE taCliente5','','R');return document.MM_returnValue">
<%
Session.Timeout = 30
%>

.....................

....................
</form>
<%
End If
%>


Sapete dirmi dove è il problema?

Grazie

[Roby_72]

Su che server sei?
Ammesso che tu sia su Win2000 prova a sosituire questa:

objMail.From=request("emailCliente")

con questa:

objMail.From="webgromat@gromat.com"

Roby

[andgiaim]

Sono su windows XP Profesional

[Roby_72]

Allora devi installare le librerie.
CDONST e CDOSYS non ci sono.

Roby