Ho installato una newsletter ma ho questo errore

**s-day** · 01-08-2004, 18:44

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/inviamail.asp, line 16

800401f3

La stringa a cui si riferisce l'errore è questa:

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

Probabilmente il problema è proprio quel CDONTS..forse dovrei impostare tutto per il CDOSYS...ma non so come fare...come posso fare per risolvere il problema?

**s-day** · 01-08-2004, 18:45

L'errore lo genera nel momento in cui tento di accedere alla pagina per inviare l'email

**weppos** · 01-08-2004, 18:49

Originariamente inviato da s-day
Probabilmente il problema è proprio quel CDONTS..forse dovrei impostare tutto per il CDOSYS...ma non so come fare...come posso fare per risolvere il problema?

Dimmi che stai scherzando...

Ti ho spiegato come ieri http://forum.html.it/forum/showthrea...5&pagenumber=2

Dopo la risposta di ieri poi mi sembra anche un po' una presa per i fondelli però questo tuo comportamento.

Non te ne frega niente del codice, non vuoi imparare e non vuoi documentarti.

Allora perchè non paghi qualcuno per farlo?

Vabbè, cmq per dovere di cronaca ecco l'ennesimo aiuto:
- Uso oggetto CDOSYS
- Uso oggetto CDONTS

A te leggere la documentazione e coglierne il cambiamento.
Se ancora avessi problemi ecco un esempio per l'uso di CDOSYS

Direi che ora di aiuti su cui lavorare ne hai.

**s-day** · 01-08-2004, 19:03

Come hai notato anche tu, quelle cose le ho già lette ieri, ma non ho capito nulla, altrimenti non avrei chiesto quello che ho chiesto, una risposta uguale a cosa serve?

**weppos** · 01-08-2004, 19:04

Originariamente inviato da s-day
Come hai notato anche tu, quelle cose le ho già lette ieri, ma non ho capito nulla, altrimenti non avrei chiesto quello che ho chiesto, una risposta uguale a cosa serve?

Forse non hai notato i nuovi link...

**Corinna** · 01-08-2004, 19:05

Prova a copiaincollare questo in un file e dimmi cosa ti dice, se poi va lo mettiamo a posto.

codice:

  <%Function CheckMail(strMail) 
  if len(strMail) > 6 then 
    pos = Instr(1,strMail, "@") 
    if pos >= len(strMail)-3 then 
      Exit Function 
    end if 
    if pos < 2 then 
      Exit Function 
    end if 
    dotpos = Instr(pos+1 ,strMail, ".") 
    if dotpos > len(strMail)-2 then 
      Exit Function 
    end if 
    if len( Mid(strMail, pos+1) ) < 5 or dotpos = 0 then 
      Exit Function 
    end if 
    CheckMail = True 
  else 
    CheckMail = False 
  end if 
End function

Cosa = request.form("Cosa")
if Cosa <> "" then ' è postback e il form è stato inviato
MailMittente = request.form("Mittente")
if CheckMail(MailMittente) = true then
'invio la mail
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "Utente sito<" & MailMittente & ">"
miaMail.To = "Vagabondando.it<info@vagabondando.it>"
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
miaMail.Subject = request.form("Oggetto")
MiaMail.TextBody = replace(request.form("Contenuto"), chr(13), VBClrf) & vbclrf
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
esito = "e-Mail inviata correttamente"
else ' la mail non è corretta
esito = "L'indirizzo e-mail inserito non è corretto."
end if
end if ' di "cosa", cioè se il form è stato inviato o è il primo caricamento della pagina%>
<TITLE>Vagabondando .it - Un viaggio, una foto, un'emozione - Contattaci</TITLE>
<style>
.cell {color: #3D3D3D; BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 11px; background-color: #ffffff; FONT-FAMILY: arial, sans-serif}
  </style>
</HEAD>
<BODY>
<script language="JavaScript"> 
<!-- 
function AddFormat(formattazione) 
{ 
txtdaformattare=prompt('Inserire il testo da porre fra <'+formattazione+'> e </'+formattazione+'>:'); 
txt="<"+formattazione+">"+txtdaformattare+"</"+formattazione+">"; 
document.mail.contenuto.value+=txt; 
} 
--> 
</script>
<table border="0" cellpadding="3" cellspacing="5" width="760" align="center" background="http://<%=Request.ServerVariables("HTTP_HOST")%>/immagini/sfondo.gif">
    <tr>
      <td colspan="2" align="center">
      [img]immagini/contatti_header.jpg[/img]</td>
    </tr>
	   <tr>
      <td width="50%">

</td>
      <td width="50%">

</td>
    </tr>
	<tr>
      <td colspan="2">Sei in Home > Contatti </td>
    </tr>
	<tr>
		<td colspan="2" align="center">.: Instant Messaging :.</td>
	</tr>
    <tr>
	<td align="left" class="cellettabianca"> ICQ: 20283798

</td>
	<td align="right" class="cellettabianca"> MSN: webmistress(at)libero.it

</td>
</tr>
    <tr>
		<td colspan="2" align="center">.: e-Mail :.</td>
</tr>
    <tr>
		<td colspan="2" align="center">
<%=esito%>
</td>
</tr>
    <tr>
	<td align="center" class="cellettabianca"><form name="mail" action="contatti.asp" method="post"><input type="Hidden" name="Cosa" value="Invia"><input type="image" src="immagini/b.gif" name="Grassetto" value="B" onClick="AddFormat('B')">
	<input type="image" src="immagini/i.gif" name="Corsivo" value="I"  class="button" onClick="AddFormat('I')">
	<input type="image" src="immagini/u.gif" name="Sottolineato" value="U"  class="button" onClick="AddFormat('U')">


	Mittente:

	<input style="WIDTH: 200px" type="text" name="Mittente" size="40" class="cell" value="">


	Oggetto:

	<input style="WIDTH: 200px" type="text" name="Oggetto" size="40" class="cell">


	<input type="image" src="immagini/invia.gif" onclick="document.mail.submit()" name="Submit" value="Invia"></td>
	<td align="center" width="50%" class="cellettabianca"><form name="mail" action="contatti.asp" method="post"><input type="Hidden" name="Cosa" value="Invia"><textarea style="WIDTH: 200; HEIGHT: 200" rows="10" name="contenuto" cols="40" class="cell"></textarea></form></td>
	</tr>
</tr>
	 <tr>
	 	<td align="left">[img]immagini/preferiti.gif[/img] Aggiungi ai preferiti</td>
	 	<td align="right">[img]immagini/home.gif[/img] Imposta come homepage</td>
	 </tr>
</table>	   
 	<TABLE cellspacing="0" cellpadding="0" width="765" align="center" border="0" hspace="0" vspace="0">
		<TBODY>
			<TR valign="top" align="middle">
				<TD class="scuro" align="center"><fONT color="#ffffff"> © CVdM 2003</font></TD>
			</TR>
		</TBODY>
	</TABLE>

**s-day** · 01-08-2004, 19:05

Non mi puoi dire direttamente la modifica che devo fare?

Ho visto ancora una volta l'esempio, ho effettuato la modifica in maniera simile, ma non funzione ancora, e mi dà lo stesso errore.

E' tutto il giorno che cerco di farlo

**s-day** · 01-08-2004, 19:14

Originariamente inviato da Corinna
Prova a copiaincollare questo in un file e dimmi cosa ti dice, se poi va lo mettiamo a posto.

codice:

  <%Function CheckMail(strMail) 
  if len(strMail) > 6 then 
    pos = Instr(1,strMail, "@") 
    if pos >= len(strMail)-3 then 
      Exit Function 
    end if 
    if pos < 2 then 
      Exit Function 
    end if 
    dotpos = Instr(pos+1 ,strMail, ".") 
    if dotpos > len(strMail)-2 then 
      Exit Function 
    end if 
    if len( Mid(strMail, pos+1) ) < 5 or dotpos = 0 then 
      Exit Function 
    end if 
    CheckMail = True 
  else 
    CheckMail = False 
  end if 
End function

Cosa = request.form("Cosa")
if Cosa <> "" then ' è postback e il form è stato inviato
MailMittente = request.form("Mittente")
if CheckMail(MailMittente) = true then
'invio la mail
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "Utente sito<" & MailMittente & ">"
miaMail.To = "Vagabondando.it<info@vagabondando.it>"
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
miaMail.Subject = request.form("Oggetto")
MiaMail.TextBody = replace(request.form("Contenuto"), chr(13), VBClrf) & vbclrf
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
esito = "e-Mail inviata correttamente"
else ' la mail non è corretta
esito = "L'indirizzo e-mail inserito non è corretto."
end if
end if ' di "cosa", cioè se il form è stato inviato o è il primo caricamento della pagina%>
<TITLE>Vagabondando .it - Un viaggio, una foto, un'emozione - Contattaci</TITLE>
<style>
.cell {color: #3D3D3D; BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 11px; background-color: #ffffff; FONT-FAMILY: arial, sans-serif}
  </style>
</HEAD>
<BODY>
<script language="JavaScript"> 
<!-- 
function AddFormat(formattazione) 
{ 
txtdaformattare=prompt('Inserire il testo da porre fra <'+formattazione+'> e </'+formattazione+'>:'); 
txt="<"+formattazione+">"+txtdaformattare+"</"+formattazione+">"; 
document.mail.contenuto.value+=txt; 
} 
--> 
</script>
<table border="0" cellpadding="3" cellspacing="5" width="760" align="center" background="http://<%=Request.ServerVariables("HTTP_HOST")%>/immagini/sfondo.gif">
    <tr>
      <td colspan="2" align="center">
      [img]immagini/contatti_header.jpg[/img]</td>
    </tr>
	   <tr>
      <td width="50%">

</td>
      <td width="50%">

</td>
    </tr>
	<tr>
      <td colspan="2">Sei in Home > Contatti </td>
    </tr>
	<tr>
		<td colspan="2" align="center">.: Instant Messaging :.</td>
	</tr>
    <tr>
	<td align="left" class="cellettabianca"> ICQ: 20283798

</td>
	<td align="right" class="cellettabianca"> MSN: webmistress(at)libero.it

</td>
</tr>
    <tr>
		<td colspan="2" align="center">.: e-Mail :.</td>
</tr>
    <tr>
		<td colspan="2" align="center">
<%=esito%>
</td>
</tr>
    <tr>
	<td align="center" class="cellettabianca"><form name="mail" action="contatti.asp" method="post"><input type="Hidden" name="Cosa" value="Invia"><input type="image" src="immagini/b.gif" name="Grassetto" value="B" onClick="AddFormat('B')">
	<input type="image" src="immagini/i.gif" name="Corsivo" value="I"  class="button" onClick="AddFormat('I')">
	<input type="image" src="immagini/u.gif" name="Sottolineato" value="U"  class="button" onClick="AddFormat('U')">


	Mittente:

	<input style="WIDTH: 200px" type="text" name="Mittente" size="40" class="cell" value="">


	Oggetto:

	<input style="WIDTH: 200px" type="text" name="Oggetto" size="40" class="cell">


	<input type="image" src="immagini/invia.gif" onclick="document.mail.submit()" name="Submit" value="Invia"></td>
	<td align="center" width="50%" class="cellettabianca"><form name="mail" action="contatti.asp" method="post"><input type="Hidden" name="Cosa" value="Invia"><textarea style="WIDTH: 200; HEIGHT: 200" rows="10" name="contenuto" cols="40" class="cell"></textarea></form></td>
	</tr>
</tr>
	 <tr>
	 	<td align="left">[img]immagini/preferiti.gif[/img] Aggiungi ai preferiti</td>
	 	<td align="right">[img]immagini/home.gif[/img] Imposta come homepage</td>
	 </tr>
</table>	   
 	<TABLE cellspacing="0" cellpadding="0" width="765" align="center" border="0" hspace="0" vspace="0">
		<TBODY>
			<TR valign="top" align="middle">
				<TD class="scuro" align="center"><fONT color="#ffffff"> © CVdM 2003</font></TD>
			</TR>
		</TBODY>
	</TABLE>

In un html?

**Corinna** · 01-08-2004, 19:15

Originariamente inviato da s-day
In un html?

In un file pippo.asp ovviamente

**Roby_72** · 01-08-2004, 19:16

Come può darti lo stesso errore?? Se hai inserito almeno la creazione dell'oggetto CDOSYS può continuare a darti lo stesso errore solo se sei su Win 98!

Roby

Discussione: Ho installato una newsletter ma ho questo errore

Strumenti discussione

Ricerca discussione

Visualizza

Ho installato una newsletter ma ho questo errore

Re: Ho installato una newsletter ma ho questo errore

For dummies

Re: For dummies

Re: Re: For dummies

Permessi di invio