Solo Lukeonweb mi puo' aiutare questo script è suo, :love:
allora l'ho modificato in quantoper l'invio delle news letter il mio server utilizza CDOSYS ho apportato le modifiche ma mi da impossibile aprire la pagina
perchè?
aiutatemi vi prego:crying:
allora l'ho modificato in quantoper l'invio delle news letter il mio server utilizza CDOSYS ho apportato le modifiche ma mi da impossibile aprire la pagina
perchè?
aiutatemi vi prego:crying:
Codice:
<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<html>
<head>
<!-- #include file="./DBConnect.inc"-->
</head>
<body>
<%
Dim con, rs, strSql, objMail
If Request.Form("cmdSubmit") <> "" Then
'The user has submitted the page, so process the Newsletter subscription request
'Connect to the database
Set con = GetDBConnection()
'Get all email addresses in the database
strSql = "SELECT Email FROM Subscribers"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, con, 1, 2
If rs.EOF Then
'MODIFY the text below displays when no subscribers exist
%>
There are no subscribers to the newsletter.
<%
'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = Nothing
Response.End
End If
While Not(rs.EOF)
Set objMessage = CreateObject("CDO.Message")
'MODIFY the following email address will appear as the from address for the email.
objMessage.Sender = "[email protected]"
objMessage.To = rs("Email")
objMessage.TextBody = Request.Form("txtEmail")
objMessage.Send
rs.MoveNext()
Wend
'MODIFY the text below displays when all the emails have been sent
%>
The emails have been sent.
<%
'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = Nothing
Else
'MODIFY the text below is displayed when the page is first loaded.
%>
<form action="send.asp" method="post" id=form1 name=form1>
<div align="center">
Enter the email message to send:<br />
<textarea name="txtEmail" cols="50" rows="30"></textarea><br />
<input type="submit" name="cmdSubmit" value="Submit">
</div>
</form>
<%
End If
%>
</body>
</html>
