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>




24 messaggi dal 25 aprile 2001
il post di prima non era completo
vorrei sapere come modificare il codice per renderlo utilizzabile ad es con cdonts


19 messaggi dal 04 gennaio 2002
Ciao, se non riuscissi a far andare lo script che stai modificando, scaricane uno già bello e pronto a questo sito: http://www.spidy2portal.com

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.