24 messaggi dal 25 aprile 2001
sto modificando del codice per un servizio di spedizione cartoline.
al momento dell'invio il server mi da questo errore
sent

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/cartoline/send.asp, line 128

Invalid class string

la linea in questione e: la seguente:
Set mySmartMail = Server.CreateObject("asp.SmartMail")

e il codice è questo: GRAAAAZZZZIIIEEEE!!!!!!!


<table width="500" border="1" cellspacing="0" cellpadding="5" bordercolor="#D9D9D3" bgcolor="#FFD277">
<tr>
<td align="center" valign="middle">
<p>
<!--#include file="config.asp"-->
<%
im = request.form("image")
ida = request.form("id")
title = request.form("title")
toname = request.form("toname")
tomail = request.form("tomail")
fromname = request.form("fromname")
frommail = request.form("frommail")
message = request.form("message")
bgcol = request.form("bgcol")
txtcol = request.form("txtcol")
sound = request.form("sound")
set Conna= Server.CreateObject("ADODB.Connection")
set rsa = server.CreateObject("ADODB.RecordSet")
Conna.Open Conn_String
sqla ="select * from sent"
SQLB = "select * from config"
set rsb = conna.execute (sqlb)

RSa.open sqla,Conna,1,3
RSa.AddNew
randomize
rsa("pid") = int(rnd*99999)+1
RSa("card")=im
RSa("fromname")=fromname
RSa("frommail")=frommail
RSa("toname")=toname
RSa("tomail")=tomail
RSa("title")= title
RSa("bgcol")= bgcol
RSa("txtcol")= txtcol
RSa("message")= message
RSa("sentdate")= date()
RSa("sound") = sound
RSa.update
response.write "sent"
ticket = rsa("pid")
mysite = rsb("url")
myname = rsb("myname")
days = rsb("days")
Set mySmartMail = Server.CreateObject("asp.SmartMail")
mySmartMail.Server = rsb("mailserver")
mySmartMail.SenderName = fromname
mySmartMail.SenderAddress = frommail
mySmartMail.Recipients.Add tomail
mySmartMail.Subject = "You Have a Post Card"
mySmartMail.Body = toname &"," & vbCrLf & fromname & " " & "Has sent you a digital post card "& vbCrLf &_
"you can pick up you card on our site" & " "& mysite & vbCrLf & "by entering your ticket number witch is: " & ticket & vbCrLf & " or simply click on the bleow url to automaticly view your card " & vbCrLf & mysite& "/get.asp?ticket="& ticket & vbCrLf & vbCrLf & "Regards" & vbCrLf & myname & vbCrLf & "* Card must be recived within " & days & " days or it will be deleted"
' Send the message

mySmartMail.SendMail

if Err.Number<>0 then

Response.write "Error: " & Err.description

else%>
<center class="TESTO19">
La cartolina è stata inviata a<br>
<%=toname%> (<%=tomail%> )
</center>
</td>
</tr>
</table>
<font size ="4"><br>
<hr align="center">
</font>
<table width="300" border="1" cellspacing="0" cellpadding="5" bgcolor="#FFD277" bordercolor="#D9D9D3">
<tr>
<td align="center" valign="middle"><a href = "index.asp" class="linkrosso10">Torna
alla pagina iniziale</a> </td>
</tr>
</table>
</center>
<%
end if
rsa.close

%></p>



221 messaggi dal 03 novembre 2001
Sicuro che il tuo server ha il componente asp.SmartMail e che lo ha registrato correttamente? Lo chiedo perchè non mi è chiaro se hai preso lo script da qualche parte e lo stai adattando al tuo caso, o se già funzionava sul tuo sito ma in questo particolare esempio non va. Credo sia il primo caso, cmq, no? Se è così, devi usare CDONTS che è installato di default su WinNT/2K

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.