ho una pagina asp che mi dovrebbe inviare un modulo tramite mail ma all'invio del modulo mi da questo errore:
CDO.Message.1 error '80040220'
Il valore di configurazione "SendUsing" non è valido.
/insOrdine.asp, line 157
nella pagina /insordine.asp alla line157 ho:
myMail.Send
cioè è dove genero la mail di conferma di invio modulo.
il server è un windows 2003 server...devo attivare qualcosa lato server???
Il valore di configurazione "SendUsing" non è valido.
cerca il settaggio corretto
il settaggio è corretto
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Conferma inserimento Ordine Web nr. " & maxIDord & " del " & date & "."
myMail.From="luigi@alice.com"
myMail.To=Request.Form("CliMai")
myMail.HTMLBody="Gentile cliente,
confermiamo che il suo ordine è stato inserito è può consultarlo a qui"
myMail.Send
%>
il problema è che devo fare qualcosa nel server 2003 ma non so cosa... ho letto un pò di info su internet ma non c'è niente di chiaro
posta un pò tutta la pagina......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_prova_STRING
Recordset1.Source = "SELECT max(ID_Ordine)+1 as MaxOrd FROM OrdineTesta"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
dim maxIDord
maxIDord=Recordset1("MaxOrd")
if maxIDord="" or isnull(maxIDord) then maxIDord="1"
%>
<%
Dim rsCarrello
Dim rsCarrello_numRows
Set rsCarrello = Server.CreateObject("ADODB.Recordset")
rsCarrello.ActiveConnection = MM_prova_STRING
rsCarrello.Source = "SELECT * FROM Carrello where id_sessione='" & session.SessionID & "'"
rsCarrello.CursorType = 0
rsCarrello.CursorLocation = 2
rsCarrello.LockType = 1
rsCarrello.Open()
rsCarrello_numRows = 0
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>AUTORICAMBICAR</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#FF0000">
<table width="920" height="554" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td height="100" colspan="2" background="immagini/intestazione.gif"> <div align="left"></div></td>
</tr>
<tr>
<td width="186" background="immagini/laterale.png"> <div align="center">
</p>
</p>
<table width="135" height="313" border="1" align="left" bordercolor="#CC3300" bgcolor="#FFFFFF">
<tr>
<td width="127" height="29" align="center">CHI<font color="#FFFFFF">C</font>SIAMO</td>
</tr>
<tr>
<td align="center">PRODOTTI</td>
</tr>
<tr>
<td align="center">CERCA...</td>
</tr>
<tr>
<td align="center">ORDINA</td>
</tr>
<tr>
<td align="center">CONTATTI</td>
</tr>
<tr>
<td align="center">CARRELLO</td>
</tr>
<tr>
<td align="center">OFFERTE</td>
</tr>
<tr>
<td align="center">INFORMATIVA</td>
</tr>
<tr>
<td align="center">CONDIZIONI</td>
</tr>
</table>
</div></td>
<td width="734"><% If Not rsCarrello.EOF Or Not rsCarrello.BOF Then %>
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%
set insOrdineTesta = Server.CreateObject("ADODB.Command")
insOrdineTesta.ActiveConnection = MM_prova_STRING
dim sql
sql="INSERT INTO OrdineTesta (ID_Ordine, OrdDat, CliCgnRgs, CliNom, CliInd, CliCap, CliLoc, CliPro, CliTel, CliMai, CliCFiPiv, SpeCod, PagCod) VALUES ("
sql=sql & "" & maxIDord & ","
sql=sql & "#" & date & "#,"
sql=sql & "'" & Request.Form("CliCog") & "',"
sql=sql & "'" & Request.Form("CliNom") & "',"
sql=sql & "'" & Request.Form("CliInd") & "',"
sql=sql & "'" & Request.Form("CliCap") & "',"
sql=sql & "'" & Request.Form("CliLoc") & "',"
sql=sql & "'" & Request.Form("CliPro") & "',"
sql=sql & "'" & Request.Form("CliTel") & "',"
sql=sql & "'" & Request.Form("CliMai") & "',"
sql=sql & "'" & Request.Form("CliCfiPiv") & "',"
sql=sql & "" & Request.Form("SpeCod") & ","
sql=sql & "" & Request.Form("PagCod") & ""
sql=sql & " ) "
insOrdineTesta.CommandText = sql
insOrdineTesta.CommandType = 1
insOrdineTesta.CommandTimeout = 0
insOrdineTesta.Prepared = true
insOrdineTesta.Execute()
%>
<%
set insOrdineRighe = Server.CreateObject("ADODB.Command")
insOrdineRighe.ActiveConnection = MM_prova_STRING
sql="INSERT INTO OrdineDettaglio (ID_Ordine, progressivo, codice_prodotto, descrizione, prezzo, automobile, anno_imm_in, anno_imm_fi, tipologia) SELECT " & maxIDord & ", progressivo, carrello.codice_prodotto, descrizione, prezzo, automobile, anno_imm_in, anno_imm_fi, tipologia FROM Carrello LEFT JOIN Prodotti ON Carrello.codice_prodotto = Prodotti.codice_prodotto WHERE id_sessione='" & session.SessionID & "' "
insOrdineRighe.CommandText = sql
insOrdineRighe.CommandType = 1
insOrdineRighe.CommandTimeout = 0
insOrdineRighe.Prepared = true
insOrdineRighe.Execute()
'response.Write(sql)
%>
<%
set delCarrello = Server.CreateObject("ADODB.Command")
delCarrello.ActiveConnection = MM_prova_STRING
sql="delete * FROM Carrello WHERE id_sessione='" & session.SessionID & "' "
delCarrello.CommandText = sql
delCarrello.CommandType = 1
delCarrello.CommandTimeout = 0
delCarrello.Prepared = true
delCarrello.Execute()
'response.Write(sql)
%>
<%
'** Viene generata una mail di conferma per chi ha inserito l'ordine
Set myMail=CreateObject("CDO.Message")
myMail.Subject="AUTORICAMBI CAR - Conferma inserimento Ordine Web nr. " & maxIDord & " del " & date & "."
myMail.From="luigi.bartolini@informatica95.com"
myMail.To=Request.Form("CliMai")
myMail.HTMLBody="Gentile cliente,
confermiamo che il suo ordine è stato inserito è può consultarlo a qui"
myMail.Send
%>
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Notifica Ordine Web nr. " & maxIDord & " del " & date & "."
myMail.From="luigi.bartolini@informatica95.com"
myMail.To="raffaele.paolucci@tiscali.it"
myMail.HTMLBody="E' stato immesso un ordine da web: <a href=""http://w2003the:8089/vediordine.asp?ID=" & maxIDord & """>http://w2003the:8089/vediordine.asp?ID=" & maxIDord & "</>."
myMail.Send
%>
Ordine Registrato.
Grazie! </td>
</tr>
</table>
<% End If ' end Not rsCarrello.EOF Or NOT rsCarrello.BOF %>
<% If rsCarrello.EOF And rsCarrello.BOF Then %>
Carrello vuoto. Impossibile inserire l'ordine! </p>
<% End If ' end rsCarrello.EOF And rsCarrello.BOF %></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
rsCarrello.Close()
Set rsCarrello = Nothing
%>
Permessi di invio
Rispondi quotando