allora ho fatto delle modifiche mi aiutate sono giuste a me non funziona appena klicco "send" mi da impossibile visualizzare la pagina
codice:
<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<html>
<head>
</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 = "redazione@stadioradio.it"
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:
<textarea name="txtEmail" cols="50" rows="30"></textarea>
<input type="submit" name="cmdSubmit" value="Submit">
</div>
</form>
<%
End If
%>
</body>
</html>
forse il problema è qui:
codice:
rs.Open strSql, con, 1, 2
questa riga che fa? 
Permessi di invio
Rispondi quotando