Errore Server.CreateObject

**cecronny** · 12-05-2011, 18:17

Salve a tutti..
mi sto affacciando da pochissimo tempo al linguaggio ASP, perchè lavorando sul web mi sono resa conto di non poterne fare a meno.

Sto tentando di imparare seguendo il manuela qui di HTML della sezione ASP di BASE.

Stavo tentando di creare una form e far passare dei valori che mi sarebbero dovuti poi arrivare per mail.. ma ogni volta che provo non capisco dove sbaglio.

Il browser, quando invio i dati inseriti mi da questo errore:

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/manda_feedback.asp, line 82
800401f3

Qualcuno sa dirmi dove sbaglio?

pagina della form: feedback.asp

codice:

<HTML>
<HEAD>
	<TITLE>Feedback Form</TITLE>
</head>
</HEAD>

<BODY>
<FORM action="manda_feedback.asp" METHOD="post">
<div align="center">
<table border="0" width="85%" celpadding="2" cellspacing="2">
	<tr>
		<td><h1>Grazie per....<hr align="LEFT" size="1" width="100%" color="navy"></h1></td>
	</tr>
	<tr>
		<td>Se avete....</td>
	</tr>
		<td align="center">


			<table width="60%" border="0" celpadding="2" cellspacing="2">
				<tr>
					<td>Nome</td>
					<td><INPUT NAME="nome" TYPE="TEXT" size=24 MAXLENGTH=50></td>
				</tr>
				<tr>
					<td>email</td>
					<td valign="top"><INPUT NAME="email" TYPE="TEXT" ALIGN=left size=24 MAXLENGTH=50></td>
				</tr>
				<tr>
				<tr>
					<td valign="top">Commenti</td>
					<td><TEXTAREA NAME="commenti" ROWS=7 COLS=40></TEXTAREA></td>
				</tr>
				<tr>
					<td valign="top"></td>
					<td>
						<table width="100%" border="0" celpadding="2" cellspacing="2">
							<tr>
								<td><INPUT TYPE=checkbox NAME="dimmelo" VALUE="yes" UNCHECKED></td>
								<td>Vi interessa ricevere....</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td colspan="2" align="center">
						<table width="50%" border="0" celpadding="6" cellspacing="2">
							<tr>					
								<td><INPUT TYPE="submit" NAME="parla" VALUE="parla con noi"></td>
								<td align="right"><INPUT TYPE="reset" NAME="nograzie" VALUE="no grazie"></td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
</FORM>

</BODY>
</HTML>

Pagina di invio dati manda_feedback.asp:

codice:

<%
Option Explicit
'--------------------------------------------------------
'Purpose: processes the feedback mail
'Date: 10 March 2001
'Commenti: 
'--------------------------------------------------------
Dim form, nome

%>
<Html>
<head>
<title>Manda Feedback</title>
</head>
<body>
<%

call Main()


Sub Main()
'--------------------------------------------------------
'Purpose: la logica dell'applicazione
'Date: 10 March 2001
'Commenti: potevamo usare javascript per forzare il cliente
'--------------------------------------------------------
'se la lungezza e' 0 non c'e niente nell email
	If Len(Request.Form("email")) = 0 then
		no_email()
	else 
		manda_posta(form)
		ecco_fatto(nome)
	end if
End sub


Sub no_email()
'--------------------------------------------------------
'Purpose: manda un messaggio se email e' vuoto
'Date: 10 March 2001
'Commenti: potevamo usare javascript per forzare il cliente
'--------------------------------------------------------
	'allora diciamo al cliente che senza una email non possiamo rispondergli
	response.write "<div align='center'>"
	response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"	
	response.write "<tr><td>niente email...?</td></tr>"
	response.write "<tr><td>per favore, torna indiedro e... </td></tr>"
	response.write "<tr><td align='middle'>"
	response.write "Prova di nuovo"
	response.write "</td></tr></table></div>"
End Sub

Sub ecco_fatto(nome)
'--------------------------------------------------------
'Purpose: manda un ringraziamento
'Date: 10 March 2001
'Commenti:  
'--------------------------------------------------------	
	response.write "<div align='center'>"
	response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"	
	response.write "<tr><td>Grazie " & nome & " per il...</td></tr>"
	response.write "<tr><td align='middle'>"
	response.write "Continua"
	response.write "</td></tr></table></div>"
End sub

Sub manda_posta(form)
'--------------------------------------------------------
'Purpose: manda la email
'Date: 10 March 2001
'Commenti:  
'--------------------------------------------------------	
Dim email, commenti
Dim objMail, mandamiquesto

	nome = Request.Form("nome")
	email = Request.Form("email")
	commenti = Request.Form("commenti")

	mandamiquesto = nome & "VBcrlf" & email & "Vbcrlf" & commenti	
	
    Set objMail = Server.CreateObject("CDONTS.NewMail")

    objMail.From = nome
    objMail.To = "simona@waltermarketing.it"
	objMail.Subject = "Info karaoke"
    objMail.Body = mandamiquesto

    objMail.importance = 0
    objMail.Send

    Set objMail = Nothing
end sub

%>

</body>
</html>

Cosa sbaglio?
Se qualcuno sa spiegarmi ve ne sarei grata... già ci smanetto da poco ma poi se non riesco a far funzionare nemmeno un esempio spiegato è una pezza

**Roby_72** · 12-05-2011, 20:45

E' questa la riga dell'errore?

Set objMail = Server.CreateObject("CDONTS.NewMail")

Devi cambiare componente, usare ad esempio CDOSYS perché CODNTS non è installato più da nessuna parte.
Cerca nel forum i suoi metodi.

Roby

Discussione: Errore Server.CreateObject

Strumenti discussione

Ricerca discussione

Visualizza

Errore Server.CreateObject

Permessi di invio