http 405

**Vincenzoflamini** · 12-11-2008, 13:44

Putroppo l'errore HTTP 405 è abbastanza generico ho già guardato in giro, talvolta l'errore sta nel codice avrò sicuramente richiamato oggetti o tabelle database che non trova. Il problema e che non me ne intendo molto di ASP...

Chiedo scusa ai moderatori volevo rispondere al mio topic ed erroneamente ne ho creato un'altro non riesco ad eliminarlo mi dice che non ho i le autorizzazioni

**fraude** · 12-11-2008, 15:27

Secondo il regolamento questo è crossposting...

Forse era meglio che continuassi nella discussione già aperta nella quale già spieghi il tuo problema...

http://forum.html.it/forum/showthrea...readid=1286683

Intanto comincia a controllare di quali oggetti disponi sul tuo server e poi se ne riparla:

codice:

<html>
<head>
<title>Server Component Checker</title>
</head>
<body>
<%

	Dim comList(54)
		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( "ASPEmail","Persits.MailSender" )
		comList(16) = Array( "ASPSoft NT Object","ASPSoft.NT" )
		comList(17) = Array( "ASPSoft Upload","ASPSoft.Upload" )
		comList(18) = Array( "CDONTS","CDONTS.NewMail" )
		comList(19) = Array( "CDOSYS","CDO.Message" )
		comList(20) = Array( "Chestysoft Image","csImageFile.Manage" )
		comList(21) = Array( "Chestysoft Upload","csASPUpload.Process" )
		comList(22) = Array( "Chili!Mail","CDONTS.NewMail" )
		comList(23) = Array( "Dimac JMail","JMail.Message" )
		comList(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
		comList(25) = Array( "dkQMail","dkQmail.Qmail" )
		comList(26) = Array( "Dundas Mailer","Dundas.Mailer" )
		comList(27) = Array( "Dundas Upload","Dundas.Upload.2" )
		comList(28) = Array( "Dynu Encrypt","Dynu.Encrypt" )
		comList(29) = Array( "Dynu HTTP","Dynu.HTTP" )
		comList(30) = Array( "Dynu Mail","Dynu.Email" )
		comList(31) = Array( "Dynu Upload","Dynu.Upload" )
		comList(32) = Array( "Dynu WhoIs","Dynu.Whois" )
		comList(33) = Array( "Easy Mail","EasyMail.SMTP.5" )
		comList(34) = Array( "Emailtoolbox","ArclabEmailToolBox.Mailer" )
		comList(35) = Array( "File System Object","Scripting.FileSystemObject" )
		comList(36) = Array( "Geocel.Mailer","GeoCel" )
		comList(37) = Array( "IISMail","iismail.iismail.1" )
		comList(38) = Array( "JMail","Jmail.smtpmail" )
		comList(39) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
		comList(40) = Array( "Last Mod","LastMod.FileObj" )
		comList(41) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
		comList(42) = Array( "Persits ASP JPEG","Persits.Jpeg" )
		comList(43) = Array( "Persits ASPEmail","Persits.MailSender" )
		comList(44) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
		comList(45) = Array( "Persits File Upload","Persits.Upload.1" )
		comList(46) = Array( "SmartMail","aspSmartMail.SmartMail" )
		comList(47) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
		comList(48) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
		comList(49) = Array( "Image Size", "ImgSize.Check" )
		comList(50) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
		comList(51) = Array( "Grafici Excel", "OWC.Chart" )
		comList(52) = Array( "ADODB Stream", "ADODB.Stream" )
		comList(53) = Array( "VSEmail1.0","VSEmail.SMTPSendMail" )
		comList(54) = Array( "VSEmail2.0","VSEmail.SMTPSendMailEx" )


	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=""0"" border=""1"" bordercolor=""#000000"" align=""center"" width=""300"">" & vbNewLine
		strTxt = strTxt & "<tr><td align=""center"" bgcolor=""#3399ff""><font face=""tahoma"" size=""3"" color=""#000000"">COMPONENTE</font></td><td align=""center"" bgcolor=""#3399ff""><font face=""tahoma"" size=""3"" color=""#000000"">STATUS</font></td></tr>"
		For Idx = LBound( comList ) To UBound( comList )
			Provider = Idx
			strTxt = strTxt & vbTab & "<tr><td width=""150""><font face=""tahoma"" size=""2"" color=""#000000"">" & comList(Idx)(0) & "</font></td>"
			strTxt = strTxt & "<td align=""left""><font face=""tahoma"" size=""2"" color=""#000000"">[  "
			If IsAvailable( comList(Idx)(1) ) Then
				strTxt = strTxt & "<font face=""tahoma"" size=""2"" color=""blue"">Installato</font>"
				Avail = Avail + 1
			Else
				strTxt = strTxt & "Non Installato</font>"
			End If
			strTxt = strTxt & "  <font face=""tahoma"" size=""2"" color=""#000000"">]</font></td></tr>" & vbNewLine
		Next
		strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><font face=""tahoma"" size=""2"" color=""blue"">" & Avail & "</font><font face=""tahoma"" size=""2"" color=""#000000""> su "
	strTxt = strTxt & UBound( comList ) + 1 & " componenti installati.</font></td></tr>" & vbNewLine
		CheckCOM = strTxt & "</table>" & vbNewLine
	End Function

	Response.Write( CheckCOM() )
%>

<p align="center">
	<font face="Tahoma" size="2">Server Component Checker
Direttamente dal forum di html.it</font>
</p>
</body>
</html>

**Vincenzoflamini** · 12-11-2008, 16:46

ActiveX Data Object
CDOSYS
File System Object
Microsoft XML Engine
Microsoft XML HTTP
ADODB Stream

6/55 componenti installati

intanto grazie della riposta a quanto ho capito non dispongo degli ogettti necessari al funzionamento del codice vero?

io in realtà volevo anche sapere sequesta parte di codice mi crea automaticamente una nuova connessione al database clienti.mdb o ne devo creare una io...

<%oggetto=request.form("oggetto")priorita=request. form("priorita")testo=request.form("testo")dim dovedove="driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("clienti.mdb")Set rs=Server.CreateObject("ADODB.recordset")dim stmsqlstmsql="Select nomecompleto,email FROM tabellaclienti"rs.Open stmsql,dovedo while not rs.EOFSet objMail = Server.CreateObject("CDONTS.NewMail")danome="Nostr o sito"damail="<webmaster@boss.it>" ' Qui il nostro indirizzo e-mail tra < >

**fraude** · 12-11-2008, 16:53

Il tuo codice è illeggibile, impara a racchiudere la parti di codice all'interno dei tag [ code] e [ /code ].

1) Prima cosa sul tuo server è installato l'oggetto CDOSYS e non il CDONTS che invece richiami nel tuo codice.

2) Nel tuo codice istanzi un recordset, esegui la query, apri un ciclo e non lo richiudi...

3) Hai postato solo una parte del tuo codice... così non è facile aiutarti.

codice:

<%

oggetto=request.form("oggetto")
priorita=request.form("priorita")
testo=request.form("testo")

dim dove
dove="driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("clienti.mdb")
Set rs=Server.CreateObject("ADODB.recordset")

dim stmsql
stmsql="Select nomecompleto,email FROM tabellaclienti"
rs.Open stmsql, dove

do while not rs.EOFSet 

objMail = Server.CreateObject("CDONTS.NewMail")
danome="Nostro sito"
damail="<webmaster@boss.it>" ' Qui il nostro indirizzo e-mail tra < >

**Vincenzoflamini** · 12-11-2008, 17:02

http://www.aspitalia.com/script/55/R...glist-ASP.aspx
http://www.aspitalia.com/script/56/R...ist-ASP-2.aspx
da qui ho preso il codice per creare la mailing list a quanto pare è incompleto,
senti non è che lo potrei creare in dreamweaver in altro modo?

**fraude** · 12-11-2008, 17:05

Non è incompleto, hanno solo sbagliato la formattazione:

codice:

<%

oggetto=request.form("oggetto")
priorita=request.form("priorita")
testo=request.form("testo")

dim dove
dove="driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("clienti.mdb")
Set rs=Server.CreateObject("ADODB.recordset")

dim stmsql
stmsql="Select nomecompleto,email FROM tabellaclienti"
rs.Open stmsql, dove

do while not rs.EOFSet 

objMail = Server.CreateObject("CDONTS.NewMail")
danome="Nostro sito"
damail="<webmaster@boss.it>" ' Qui il nostro indirizzo e-mail tra < >
dachi=chr(34) & danome & chr(34) & damail
objMail.From=dachi
objMail.Body=testo

objMail.To=chr(34) & rs("nomecompleto") & chr(34) &"<"& rs("email")&">"
objMail.Subject=oggetto
objmail.importance=priorita

objMail.Send()
set objMail = nothing()

rs.MoveNext()
loop

rs.close
Set rs = NOTHING

dove.close()
Set dove = NOTHING
%>

**Vincenzoflamini** · 13-11-2008, 13:41

Nonostante ho corretto la formattazione e ho installato il componente CDONTS , continua a segnalarmi l'errore 405 . Ma la connessione al database clienti.mdb è una connessione che viene creata dal codice oppure io la devo creare nel server il DNS in modo che la pagina in Dreamweaver la riconosca?

Discussione: http 405

Strumenti discussione

Ricerca discussione

Visualizza

http 405

Permessi di invio