ciao ragazzi devo inserire il componente cdosys in questa pagina sostituendolo al presente, qualcuno mi aiuta...?
<%
Server.ScriptTimeout = 1000000
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSBODY = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * from Settings"
RSBODY.Open SQL2, Conn, 1, 3
SQL = "SELECT Email FROM List"
RS.open SQL, conn
Select Case RSBODY("Component")
Case "CDONTS"
Do While Not RS.eof
set mailObj = Server.CreateObject("CDONTS.NewMail")
If (Request("Format") = "Text") Then
mailObj.BodyFormat = 1
mailObj.MailFormat = 1
Else
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
End If
mailObj.From = RSBODY("From_Email")
mailObj.To = RS("Email")
mailObj.Subject = Request("Subject")
mailObj.Body = Request("Body")
mailObj.Send RS.movenext
Loop
Case "ASPMail"
Do While Not RS.eof
Set mailObj = Server.CreateObject("SMTPsvg.Mailer")
If (Request("Format") = "Text") Then
mailObj.CharSet = 2
Else
mailObj.ContentType = "text/html"
End If
mailObj.FromName = RSBODY("From_Email")
mailObj.FromAddress= RSBODY("From_Email")
mailObj.RemoteHost = RSBODY("SMTP")
mailObj.Subject = Request("Subject")
mailObj.BodyText = Request("Body")
mailObj.AddRecipient RS("Email"),RS("Email")
mailObj.SendMail
RS.movenext
Loop
Case "ASPEmail"
Do While Not RS.eof
Set mailObj = Server.CreateObject("Persits.MailSender")
mailObj.Host = RSBODY("SMTP")
mailObj.From = RSBODY("From_Email")
mailObj.AddAddress RS("Email")
mailObj.Subject = Request("Subject")
mailObj.Body = Request("Body")
If (Request("Format") = "Text") Then
mailObj.IsHTML = False
Else
mailObj.IsHTML = True
End If
mailObj.Send
RS.movenext
Loop
End Select
IF (Request("Archive") = "on") Then
Set RSARCHIVE = Server.CreateObject("ADODB.Recordset")
RSARCHIVE.Open "Archive", Conn, 2, 2
RSARCHIVE.addnew
RSARCHIVE("Subject") = Request("Subject")
RSARCHIVE("Body") = Request("Body")
RSARCHIVE("Format") = request("Format")
RSARCHIVE("Date") = Date
RSARCHIVE.update
End If
%>
<html>
<head>
<title><%=RSBODY("List_Name")%></title>
<script language="javascript">
function open_Code_Heading_Text() {
popupWin = window.open('help.asp?ID=Code_Heading_Text', 'remote', 'width=300,height=200')
}
function open_Code_Heading_BG() {
popupWin = window.open('help.asp?ID=Code_Heading_BG', 'remote', 'width=300,height=200')
}
function open_Code_Body_Text() {
popupWin = window.open('help.asp?ID=Code_Body_Text', 'remote', 'width=300,height=200')
}
function open_Code_Body_BG() {
popupWin = window.open('help.asp?ID=Code_Body_BG', 'remote', 'width=300,height=200')
}
function open_Code_Border() {
popupWin = window.open('help.asp?ID=Code_Border', 'remote', 'width=300,height=200')
}
</script>
</head>
<body bgcolor="#F0F0F0" vlink="#48576C" link="#48576C" alink="#000000">
<table border="0" cellpadding="0" cellspacing="0" width="650" align="center">
<tr>
<td height="1" colspan="5" bgcolor="#000000">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td width="1" bgcolor="#000000">[img]im/clear.gif[/img]</td>
<td colspan="3" bgcolor="#52637B" height="35" width="648"><font face="Verdana" size="5" color="#FFCC00"><%=RSBODY("List_Name")%></font></td>
<td width="1" bgcolor="#000000">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td height="1" colspan="5" bgcolor="#000000">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td width="1" bgcolor="#000000">[img]im/clear.gif[/img]</td>
<td bgcolor="#8199DA" valign="top" width="130">
<table border="0" cellpadding="0" cellspacing="0" width="130">
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">Home</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td height="5">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">SendMailing</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">View/EditSubscribers</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">GenerateHTML</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">MailArchive</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td height="5">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">Settings</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">Support</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">Documentation</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td height="5">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#B0C4DE" width="130" height="15"><font face="Verdana" size="1">LogOut</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1">[img]im/clear.gif[/img]</td>
</tr>
</table>
</td>
<td width="1" bgcolor="#000000">[img]im/clear.gif[/img]</td>
<td bgcolor="#FFFFFF" width="100%" valign="top" height="200">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td bgcolor="#B0C4DE" height="15" width="100%"><font face="Verdana" size="1" color="#000000">Send Mailing</font></td>
</tr>
<tr>
<td bgcolor="#000000" height="1" width="100%">[img]im/clear.gif[/img]</td>
</tr>
</table>
<table border="0" cellpadding="2" cellspacing="0" width="100%">
<tr>
<td width="100%"><font face="Verdana" size="1">
The Mailing has been sent.
<< Return
</font></td>
</tr>
</table></td>
<td width="1" bgcolor="#000000">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td height="1" colspan="5" bgcolor="#000000">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td width="1" bgcolor="#000000">[img]im/clear.gif[/img]</td>
<td colspan="3" align="center" bgcolor="#B0C4DE" height="30"><font face="Verdana" size="1">Maintained with the Ocean12 ASP Mailing List Manager v1.06
©2001-2002 Ocean12 Technologies, all rights reserved.</font></td>
<td width="1" bgcolor="#000000">[img]im/clear.gif[/img]</td>
</tr>
<tr>
<td height="1" colspan="5" bgcolor="#000000">[img]im/clear.gif[/img]</td>
</tr>
</table>
</body>
</html>
Rispondi quotando
