CDONTS,NEWMAIL

**heclom** · 09-10-2005, 10:50

Salve a tutti,
qualcuno mi saprebbe dire perchè questo codice asp non funziona?

(pagina2.asp)
<%
dim strnome,strmail,strcommenti
strnome=request.form("nome")
strmail=request.form("mail")
strcommenti=request.form("commenti")
set objmail=server.createobject("CDONTS.NewMail")
objmail.from=strnome
objmail.to="nome@alice.it"
objmail.subject="prova"
objmail.body=strcommenti
objmail.importance=0
objmail.send
set objmail=nothing
%>

(pagina1.asp)
<html>
<head>
<title>Form</title>
</head>
<body>
<form name="mio_form" method="post" action="pagina2.asp">
nome:<input type="text" name="nome">

mail:<input type="text" name="mail">

commenti:<textarea name="commenti" rows="5" cols="20"></textarea>

<input type="submit" value="invia">
</form>
</body>
</html>

cerco di testare queste due pagine asp su uno spazio web gratuito
(www.websamba.com, windows 2000 server using IIS 5.0) ma al momento dell'invio della mail ricevo un messaggio di errore relativo all'oggetto alla riga: set objmail=server.createobject("CDONTS.NewMail").

grazie a chiunque volesse aiutarmi a capire!

**viki1967** · 09-10-2005, 10:55

Websamba non supporta l'oggetto CDONTS.

**heclom** · 09-10-2005, 11:03

ciao viki1967,

potresti allora indicarmi un free hosting web che supporta CDONTS?
grazie.

**viki1967** · 09-10-2005, 11:07

http://free.7host.com/free_hosting/en/free_hosting.asp

**viki1967** · 09-10-2005, 11:18

Questo è un piccolo script per testare l'esistenza dei componenti per la posta:

codice:

<%

	
	Dim comList(1)
	
	comList(0) = Array( "CDOSYS", "CDO.Message" )
	comList(1) = Array( "CDONTS","CDONTS.NewMail" )

Function IsAvailable( comIdentity )
		On Error Resume Next
		IsAvailable = False
		Err = 0
		Set xTestObj = Server.CreateObject( comIdentity )
		If Err = 0 Then IsAvailable = True
		Set xTestObj = Nothing
		Err = 0
	End Function

	Public Function CheckCOM()
		Avail = 0
		strTxt = "<table cellpadding=3 cellspacing=3 border=0 align=center width=300>" & vbNewLine
		For Idx = LBound( comList ) To UBound( comList )
			Provider = Idx
			strTxt = strTxt & vbTab & "<tr><td width=200><font class=norm>" & comList(Idx)(0) & "</font></td>"
			strTxt = strTxt & "<td align=right width=20><font class=norm>[</font></td>"
			If IsAvailable( comList(Idx)(1) ) Then
				strTxt = strTxt & "<td align=center><font face=tahoma size=2 color=blue>Available</font></td>"
				Avail = Avail + 1 
			Else
				strTxt = strTxt & "<td align=center><font class=norm>Unavailable</font></td>"
			End If
			strTxt = strTxt & "<td align=left width=20><font class=norm>]</font></td></tr>" & vbNewLine
		Next
		strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><font class=norm><font color=blue>" & Avail & "</font> of "
		strTxt = strTxt & UBound( comList ) + 1 & " supported components are available.</font></td></tr>" & vbNewLine
		CheckCOM = strTxt & "</table>" & vbNewLine
	End Function

	Response.Write( CheckCOM() )
%>

Ne ho anche uno per testare tutti i componenti supportati dal server, se hai bisogno fai sapere.

**heclom** · 09-10-2005, 11:33

....siccome ho iniziato da poco con lo studio dell'asp, ho l'esigenza di fare anche delle prove on-line dei miei script. ti ringrazio per avermi segnalato lo spazio web adatto e se potessi anche mostrarmi quello script per testare tutti i componenti supportati dal server ne sarei felice!!!

**viki1967** · 09-10-2005, 11:39

codice:

<%
	Dim comList(43)
		comList(0) = Array( "AB Mailer","ABMailer.Mailman" )
		comList(1) = Array( "ABC Upload","ABCUpload4.XForm" )
		comList(2) = Array( "ActiveFile","ActiveFile.Post" )
		comList(3) = Array( "ActiveX Data Object","ADODB.Connection" )
		comList(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
		comList(5) = Array( "ASP HTTP","AspHTTP.Conn" )
		comList(6) = Array( "ASP Image","AspImage.Image" )
		comList(7) = Array( "ASP Mail","SMTPsvg.Mailer" )
		comList(8) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
		comList(9) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
		comList(10) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
		comList(11) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
		comList(12) = Array( "ASP Tear","SOFTWING.ASPtear" )
		comList(13) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
		comList(14) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
		comList(15) = Array( "ASPSoft NT Object","ASPSoft.NT" )
		comList(16) = Array( "ASPSoft Upload","ASPSoft.Upload" )
		comList(17) = Array( "CDONTS","CDONTS.NewMail" )
		comList(18) = Array( "Chestysoft Image","csImageFile.Manage" )
		comList(19) = Array( "Chestysoft Upload","csASPUpload.Process" )
		comList(20) = Array( "Dimac JMail","JMail.Message" )
		comList(21) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
		comList(22) = Array( "Dundas Mailer","Dundas.Mailer" )
		comList(23) = Array( "Dundas Upload","Dundas.Upload.2" )
		comList(24) = Array( "Dynu Encrypt","Dynu.Encrypt" )
		comList(25) = Array( "Dynu HTTP","Dynu.HTTP" )
		comList(26) = Array( "Dynu Mail","Dynu.Email" )
		comList(27) = Array( "Dynu Upload","Dynu.Upload" )
		comList(28) = Array( "Dynu WhoIs","Dynu.Whois" )
		comList(29) = Array( "Easy Mail","EasyMail.SMTP.5" )
		comList(30) = Array( "File System Object","Scripting.FileSystemObject" )
		comList(31) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
		comList(32) = Array( "Last Mod","LastMod.FileObj" )
		comList(33) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
		comList(34) = Array( "Persits ASP JPEG","Persits.Jpeg" )
		comList(35) = Array( "Persits ASPEmail","Persits.MailSender" )
		comList(36) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
		comList(37) = Array( "Persits File Upload","Persits.Upload.1" )
		comList(38) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
		comList(39) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
		comList(40) = Array( "Image Size", "ImgSize.Check" )
		comList(41) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
		comList(42) = Array( "Grafici Excel", "OWC.Chart" )
		comList(43) = Array( "ADODB Stream", "ADODB.Stream" )

	'This function was modified from the work of Rob Risner.
	'http://www.planetsourcecode.com/xq/ASP/txtCodeId.6731/lngWId.4/qx/vb/scripts/ShowCode.htm

	Function IsAvailable( comIdentity )
		On Error Resume Next
		IsAvailable = False
		Err = 0
		Set xTestObj = Server.CreateObject( comIdentity )
		If Err = 0 Then IsAvailable = True
		Set xTestObj = Nothing
		Err = 0
	End Function

	Public Function CheckCOM()
		Avail = 0
		strTxt = "<table cellpadding=3 cellspacing=3 border=0 align=center width=300>" & vbNewLine
		For Idx = LBound( comList ) To UBound( comList )
			Provider = Idx
			strTxt = strTxt & vbTab & "<tr><td width=200><font class=norm>" & comList(Idx)(0) & "</font></td>"
			strTxt = strTxt & "<td align=right width=20><font class=norm>[</font></td>"
			If IsAvailable( comList(Idx)(1) ) Then
				strTxt = strTxt & "<td align=center><font face=tahoma size=2 color=blue>Available</font></td>"
				Avail = Avail + 1
			Else
				strTxt = strTxt & "<td align=center><font class=norm>Unavailable</font></td>"
			End If
			strTxt = strTxt & "<td align=left width=20><font class=norm>]</font></td></tr>" & vbNewLine
		Next
		strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><font class=norm><font color=blue>" & Avail & "</font> of "
		strTxt = strTxt & UBound( comList ) + 1 & " supported components are available.</font></td></tr>" & vbNewLine
		CheckCOM = strTxt & "</table>" & vbNewLine
	End Function

	Response.Write( CheckCOM() )
%>

**heclom** · 09-10-2005, 11:45

....ho appena provato lo script per testare CDONTS su www.websamba.com
e questo è il messaggio inviatomi:

CDOSYS [ Available ]
CDONTS [ Available ]
2 of 2 supported components are available.

...significa che il componente è supportato, giusto?
quindi c'è qualcosa di sbagliato nel mio codice asp? ma dove?

<%
dim strnome,strmail,strcommenti
strnome=request.form("nome")
strmail=request.form("mail")
strcommenti=request.form("commenti")
set objmail=server.createobject("CDONTS.NewMail")
objmail.from=strnome
objmail.to="nome@alice.it"
objmail.subject="prova"
objmail.body=strcommenti
objmail.importance=0
objmail.send
set objmail=nothing
%>

**viki1967** · 09-10-2005, 11:47

Che fortuna sul mio spazio free (in realtà molto vecchio) non supporta nè l'uno e nemmeno l'altro

; ad ogni modo prova così:

codice:

'CDONTS
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mittente@dominio.ext"
miaMail.To = "pop@aruba.it"
miaMail.Subject = "Oggetto del messaggio CDONTS"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = "msg di prova CDONTS"
miaMail.Send
Set miaMail = Nothing

**heclom** · 09-10-2005, 12:03

.....ho cambiato naturalmente pop@aruba.it con la mia mail ma continua a darmi "impossibile visualizzare la pagina"

con il codice di test di tutti i componenti questo è il risultato:

AB Mailer [ Unavailable ]
ABC Upload [ Unavailable ]
ActiveFile [ Unavailable ]
ActiveX Data Object [ Available ]
Adiscon SimpleMail [ Unavailable ]
ASP HTTP [ Unavailable ]
ASP Image [ Unavailable ]
ASP Mail [ Unavailable ]
ASP Simple Upload [ Unavailable ]
ASP Smart Cache [ Unavailable ]
ASP Smart Mail [ Unavailable ]
ASP Smart Upload [ Unavailable ]
ASP Tear [ Unavailable ]
ASP Thumbnailer [ Unavailable ]
ASP WhoIs [ Unavailable ]
ASPSoft NT Object [ Unavailable ]
ASPSoft Upload [ Unavailable ]
CDONTS [ Available ]
Chestysoft Image [ Unavailable ]
Chestysoft Upload [ Unavailable ]
Dimac JMail [ Unavailable ]
Distinct SMTP [ Unavailable ]
Dundas Mailer [ Unavailable ]
Dundas Upload [ Unavailable ]
Dynu Encrypt [ Unavailable ]
Dynu HTTP [ Unavailable ]
Dynu Mail [ Unavailable ]
Dynu Upload [ Unavailable ]
Dynu WhoIs [ Unavailable ]
Easy Mail [ Unavailable ]
File System Object [ Unavailable ]
Ticluse Teknologi HTTP [ Unavailable ]
Last Mod [ Unavailable ]
Microsoft XML Engine [ Available ]
Persits ASP JPEG [ Unavailable ]
Persits ASPEmail [ Unavailable ]
Persits ASPEncrypt [ Unavailable ]
Persits File Upload [ Unavailable ]
SMTP Mailer [ Unavailable ]
Soft Artisans File Upload [ Unavailable ]
Image Size [ Unavailable ]
Microsoft XML HTTP [ Available ]
Grafici Excel [ Unavailable ]
ADODB Stream [ Unavailable ]
4 of 44 supported components are available.

Discussione: CDONTS,NEWMAIL

Strumenti discussione

Ricerca discussione

Visualizza

CDONTS,NEWMAIL

Permessi di invio