valore configurazione sendusing

**nataw** · 26-01-2008, 21:09

Gentili cibernauti ho un problema: ho un form ed invio dati a un codice per email ma l'errore è:Impossibile visualizzare la pagina
Si è verificato un problema a livello della pagina che si desidera visualizzare che ne impedisce la visualizzazione.

--------------------------------------------------------------------------------

Please try the following:

Fare clic sul pulsante Aggiorna o riprovare più tardi.

Aprire la localhost home page e cercare i collegamenti alle informazioni desiderate.
HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
CDO.Message.1 (0x80040220)
Il valore di configurazione "SendUsing" non è valido.
/nuovo/mail.asp, line 39

Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Pagina:
POST 200 bytes to /nuovo/mail.asp

POST Data:
il codice è:

<%@language=vbscript%><%@language=vbscript%>

<%dim objconn, strconn
set objconn= server.createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/nuovo/pino.mdb")
objconn.open strconn
tex=request.form("testo")
ident=request.form("nascosto")
noche=request.form("notti")
numeropers=request.form("persone")
giora=request.form("gioar")
messa=request.form("mesar")
ana=request.form("anra")
gip=request.form("giopa")
messp=request.form("mespa")
annop=request.form("anpa")
camera=request.form("camer")
identifi=request.form("nome")
surname=request.form("cognome")
address=request.form("indirizzo")
town=request.form("citta")
phone=request.form("telefono")
email=request.form("mail")
codice=request.form("cap")
campote=request.form("campotesto")
strsql="select post from tblex where id like'%"&ident&"%'"
set rs= server.createobject("adodb.recordset")
rs.open strsql,objconn,3,3
maildest=rs("post")
dim objmessage
set objmessage=server.createobject("cdo.message")
objmessage.to="&maildest&"
objmessage.Cc="&email&"
objmessage.from="velia.it"
objmessage.subject="prenotazione"
objmessage.htmlbody="messaggio inviato da "&surmname& " che chiede di prenotare da "&giora&"/"&messa&"/"&ana&" al "&gip&"/"&messp&"/"&annop&" per numero di notti "&noche&" .La tipologia della stanza è"&camera&".SI aggiunege l'uleriore messaggio "&campote&""
objmessage.send
set objmessage=nothing
rs.close
set rs= nothing
objconn.close
set objconn=nothing
response.write ("messaggio inviato")
response.redirect "index.htm"
%>
</body>
</html>

cosa fare qualcuno può darmi una mano?

**Mems** · 27-01-2008, 12:41

Cerca uno script che usa CDO.Message e CDO.Configuration e specifica in maniera esplicita, nella configurazione, il paramentro valido per sendUsing.

**nataw** · 27-01-2008, 13:39

gentilmente è la prima volta che creo un email puoi indicarmi dove posso trovare questi script e come posso testare il funzionamento in locale . Se devo porre il file nella wwwroot oppure nella mailroot dell'iis ti ringrazio e scusa se sono a digiuno in materia

**Mems** · 27-01-2008, 13:42

I file .asp li metti nella wwwroot.
http://www.google.com/search?q=CDO.M...e7&rlz=1I7ADBF

**nataw** · 27-01-2008, 15:12

il codice che sono riuscito a creare è:

<%dim objconn, strconn
set objconn= server.createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/nuovo/pino.mdb")
objconn.open strconn
tex=request.form("testo")
ident=request.form("nascosto")
noche=request.form("notti")
numeropers=request.form("persone")
giora=request.form("gioar")
messa=request.form("mesar")
ana=request.form("anra")
gip=request.form("giopa")
messp=request.form("mespa")
annop=request.form("anpa")
camera=request.form("camer")
identifi=request.form("nome")
surname=request.form("cognome")
address=request.form("indirizzo")
town=request.form("citta")
phone=request.form("telefono")
email=request.form("mail")
codice=request.form("cap")
campote=request.form("campotesto")

strsql="select post from tblex where id like'%"&ident&"%'"
set rs= server.createobject("adodb.recordset")
rs.open strsql,objconn,3,3
maildest=rs("post")
dim objmessage, objconfig
set objconfig=createobject("cdo.configuration")
objconfig.fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'linea 39
objconfig.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="server_smtp"
objconfig.fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
objconfig.fields.update
set objmessage.configuration=objconfig
set objmessage=server.createobject("cdo.message")
set objconfig=createobject("cdo.configuration")
objconfig.fields(cdosendusingmethod)=cdosendusingp ort
objconfig.fields(cdosmtpserver)="server_smtp"
objconfig.fields(cdosmtpserverport)= 25
objconfig.fields.update
set objmessage.configuration=objconfig
objmessage.to="&maildest&"
objmessage.Cc="&email&"
objmessage.from="velia.it"
objmessage.subject="prenotazione"
objmessage.htmlbody="messaggio inviato da "&surmname& " che chiede di prenotare da "&giora&"/"&messa&"/"&ana&" al "&gip&"/"&messp&"/"&annop&" per numero di notti "&noche&" .La tipologia della stanza è"&camera&".SI aggiunege l'uleriore messaggio "&campote&""
objmessage.send
set objmessage=nothing
rs.close
set rs= nothing
objconn.close
set objconn=nothing
response.write ("messaggio inviato")
response.redirect "index.htm"
%>
</body>
</html>

ma l'errore è questo:

Please try the following:

Fare clic sul pulsante Aggiorna o riprovare più tardi.

Aprire la localhost home page e cercare i collegamenti alle informazioni desiderate.
HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/nuovo/mail.asp, line 39

Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Pagina:
POST 215 bytes to /nuovo/mail.asp

POST Data:
notti=1&nascosto=1&persone=1&gioar=1&mesar=selecte d&anra=06&giopa=2&mespa=1&anpa=06&camer=singola&no me=hjvjvhjjj&cognome=hgjhgjg&indirizzo=gkjggkk&cit ta=jkggg&telefono=5858&mail=hfjhgjgjg&cap=578&test . . .

Ora:
domenica 27 gennaio 2008, 13.50.57

Informazioni aggiuntive:
Supporto Microsoft

la linea 39 è indicata nel codice quale oggetto devo indicare per testarlo in locale?
grazie e mi scuso ancora

**Mems** · 27-01-2008, 16:01

Guarda questa pagina: http://www.paulsadowski.com/WSH/cdo.htm
A tre quarti pagina ci sta un esempio buono.

**nataw** · 27-01-2008, 17:03

ho visto gli esempi ma se puoi guidarmi mi fai un gran piacere, non riesco a capire quale parametro devo inserire nella riga 39 . Vorrei testare su iis per cui non capisco cosa devo inserire. e una volta che invio l'email in quale cartella la trovo?

**Mems** · 27-01-2008, 17:10

Guarda questo esempio:

codice:

Const cdoSendUsingPickup = 1 
Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification
Const cdoAnonymous = 0
Const cdoBasic = 1 ' clear text
Const cdoNTLM = 2 'NTLM
'Delivery Status Notifications
Const cdoDSNDefault = 0 'None
Const cdoDSNNever = 1 'None
Const cdoDSNFailure = 2 'Failure
Const cdoDSNSuccess = 4 'Success
Const cdoDSNDelay = 8 'Delay
Const cdoDSNSuccessFailOrDelay = 14 'Success, failure or delay

set objMsg = CreateObject("CDO.Message")
set objConf = CreateObject("CDO.Configuration")

Set objFlds = objConf.Fields
With objFlds
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourhost.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your-username"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your-password"
  .Update
End With

strBody = "This is a sample message." & vbCRLF
strBody = strBody & "It was sent using CDO." & vbCRLF

With objMsg
  Set .Configuration = objConf
  .To = "test@paulsadowski.com" 
  .From = "me@my.com"
  .Subject = "This is a CDO test message"
  .TextBody = strBody
   'use .HTMLBody to send HTML email.
  .Addattachment "c:\temp\Scripty.zip"
  .Fields("urn:schemas:mailheader:disposition-notification-to") = "me@my.com"
  .Fields("urn:schemas:mailheader:return-receipt-to") = "me@my.com" 
  .DSNOptions = cdoDSNSuccessFailOrDelay
  .Fields.update
  .Send
End With

**nataw** · 27-01-2008, 18:34

ora l'errore è questo :

Impossibile visualizzare la pagina
Si è verificato un problema a livello della pagina che si desidera visualizzare che ne impedisce la visualizzazione.

--------------------------------------------------------------------------------

Please try the following:

Fare clic sul pulsante Aggiorna o riprovare più tardi.

Aprire la localhost home page e cercare i collegamenti alle informazioni desiderate.
HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
CDO.Message.1 (0x80040213)
Il trasporto non è riuscito a connettersi al server.
/nuovo/mail.asp, line 61

Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Pagina:
POST 205 bytes to /nuovo/mail.asp

POST Data:
notti=1&nascosto=1&persone=1&gioar=1&mesar=selecte d&anra=06&giopa=2&mespa=3&anpa=06&camer=singola&no me=2e2e&cognome=2e2e&indirizzo=dadad&citta=adadad& telefono=312342&mail=sdsd&cap=34242&testo=&Submit= . . .

Ora:
domenica 27 gennaio 2008, 17.29.12

Informazioni aggiuntive:
Supporto Microsoft

aiutatemi sto impazzendo

**Mems** · 27-01-2008, 18:46

Cosa hai messo qua?

codice:

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourhost.com"

Discussione: valore configurazione sendusing

Strumenti discussione

Ricerca discussione

Visualizza

valore configurazione sendusing

Permessi di invio