Inviare Login e Password ad iscritti sito

**Mizushi** · 01-11-2006, 15:46

Ciao, lo scopo di questo script è di inviare in blocco a tutti gli utenti registrati al sito la propria login e la propria password di accesso all'area riservata.

Lo script funziona correttamente, ma l'email che si riceve non solo contiene la propria login e la propria password, contiene anche quelle degli altri utenti !!!

Dove sbaglio?:

codice:

Session.Timeout = 45

Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"


SQL = "SELECT * FROM tbl_login2 "
SQL = SQL & " WHERE ( login1 IS NOT NULL ) "
SQL = SQL & " AND ( login1 <> '' ) "
SQL = SQL & " AND ( esitoEmail IS NOT NULL ) "
SQL = SQL & " AND ( esitoEmail = 0 ) "
SQL = SQL & " LIMIT 10 " 

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objconn

if objRS.eof then
     response.write "ko"
else

while not objRS.eof
 
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

	messaggio = messaggio & VBcrlf & "LOGIN = " & objRS.fields("login1") & " 
"
	messaggio = messaggio & VBcrlf & "PASSWORD = " & objRS.fields("password1") & " 
"
                messaggio = messaggio & VBcrlf & "E-MAIL = " & objRS.fields("EMail") & "

" 
	   
With objMessage
 .To       = objRS.fields("EMail")
 .From     = "autoreply@com.com"
 .Subject  = "Risposta automatica"
 .HtmlBody = messaggio
 .Send
End With
 
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

Response.write "id:"& objRS.fields("ID") &"-"
Response.write "Nome:"& objRS.fields("Nome") &"-"
Response.write "Il messaggio è stato spedito a:"& objRS.fields("EMail") &"

"

objRS.movenext
wend
end if

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

**Mizushi** · 01-11-2006, 18:47

Proprio non riesco... ossia il codice funziona bene la tabella si aggiorna esegue l'invio di 4 email per volta, ma nel msg email recapitato al mittente si trovano altre password oltre alla sua

:

codice:

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
</head>

<body>

<%

Session.Timeout = 45
session.lcid = 1040

Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1

Function JSRedirect(Byval secondi)
	With Response
		.Write("<script language=""JavaScript"">" & vbCrLf) 
		.Write("<!--" & vbCrLf) 
		.Write("function redirect() {" & vbCrLf) 
		.Write("window.location = '" & url & "';" & vbCrLf) 
		.Write("}" & vbCrLf) 
		.Write("timer = setTimeout('redirect()', '" & (secondi * 1000) & "');" & vbCrLf) 
		.Write("-->" & vbCrLf) 
		.Write("</script>" & vbCrLf) 
	End With
End Function

SQL = "SELECT * FROM tbl_login2 "
SQL = SQL & " WHERE ( login1 IS NOT NULL ) "
SQL = SQL & " AND ( login1 <> '' ) "
SQL = SQL & " AND ( esitoEmail = 0 ) "
SQL = SQL & " LIMIT 4 "

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objconn

if objRS.eof then
   response.write "ko"
else

Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

while not objRS.eof

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

	messaggio = messaggio & VBcrlf & "LOGIN = " & objRS.fields("login1") & " 
"
	messaggio = messaggio & VBcrlf & "PASSWORD = " & objRS.fields("password1") & " 
"
    messaggio = messaggio & VBcrlf & "E-MAIL = " & objRS.fields("EMail") & "

" 
	   
With objMessage
 .To       = objRS.fields("EMail")
 .From     = "autoreply@com.com"
 .Subject  = "Risposta automatica"
 .HtmlBody = messaggio
 .Send
End With

str_update = "UPDATE tbl_login2 SET "
str_update = str_update & " EsitoEmail = 1 "
str_update = str_update & " WHERE id = "& objRS("Id")
objconn.execute (str_update)

response.write "id:"& objRS.fields("ID") &"-"
response.write "Nome:"& objRS.fields("Nome") &"-"
response.write "Il messaggio è stato spedito a:"& objRS.fields("EMail") &"
"

objRS.movenext
wend

response.write (JSRedirect(5))
 
end if
 
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing


objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

%>


</body>

</html>

**Santino83_02** · 01-11-2006, 19:18

codice:

while not objRS.eof
messaggio=""

**Mizushi** · 01-11-2006, 21:05

Grazie era proprio una stupidaggine...

**Mizushi** · 02-11-2006, 12:08

Che cosa strana...

Lo script in localhost funziona bene, quando lo pubblico sul web restituisce quest'errore:

error '8004020f'
/invio_blocchi/Default.asp, line 108

su questa riga, perchè?: .Send

**Santino83_02** · 02-11-2006, 12:11

forse è sbagliata questa configurazione:

codice:

With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

**Mizushi** · 02-11-2006, 12:12

Questa me l'ha data il provider:

codice:

With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "xxx.xxx.xx.xxx"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

**Santino83_02** · 02-11-2006, 12:15

puoi inviare email al di fuori del tuo dominio?

prova a vedere se ti aiuta http://www.thescripts.com/forum/thread53504.html

**Mizushi** · 02-11-2006, 12:20

Lo script CDOSYS funziona regolarmente per invio di singole email... adesso ha inviato in blocco le prime 8 di email ai destinatari e poi s'è bloccato...

**Mizushi** · 02-11-2006, 23:40

Vorrei ringraziare chi mi ha dato una mano nella definizione di questo script che condivido con il forum e spero che possa tornare utile a qualcuno:

P.S.: il problema dell'errore era una email scritta male...

codice:

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Invio a blocchi di email per recupero login e password</title>
</head>

<body>

<%

Session.Timeout = 1000
Session.LCID = 1040

Function JSRedirect(Byval secondi)
	With Response
		.Write("<script language=""JavaScript"">" & vbCrLf) 
		.Write("<!--" & vbCrLf) 
		.Write("function redirect() {" & vbCrLf) 
		.Write("window.location = '" & url & "';" & vbCrLf) 
		.Write("}" & vbCrLf) 
		.Write("timer = setTimeout('redirect()', '" & (secondi * 1000) & "');" & vbCrLf) 
		.Write("-->" & vbCrLf) 
		.Write("</script>" & vbCrLf) 
	End With
End Function

SQL = "SELECT * FROM tbl_login "
SQL = SQL & " WHERE ( login1 IS NOT NULL ) "
SQL = SQL & " AND ( login1 <> '' ) "
SQL = SQL & " AND ( Email IS NOT NULL ) "
SQL = SQL & " AND ( Email <> '' ) "
SQL = SQL & " AND ( esitoEmail = 0 ) "
SQL = SQL & " LIMIT 50 "

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objconn

if objRS.eof then
   response.write "invio terminato!

"
   
else

cont = 0

Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

while not objRS.eof 
messaggio = ""

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

	messaggio = messaggio & VBcrlf & "LOGIN = " & objRS("login1") & " 
"
	messaggio = messaggio & VBcrlf & "PASSWORD = " & objRS("password1") & " 
"
         messaggio = messaggio & VBcrlf & "E-MAIL = " & objRS("EMail") & "

" 
    	   
With objMessage
 .To       = objRS("EMail")
 .From     = "autoreply@com.com"
 .BCc      = "postmaster@com.com"
 .Subject  = "Ciao"
 .HtmlBody = messaggio
 .Send
End With

str_update = "UPDATE tbl_login SET "
str_update = str_update & " EsitoEmail = 1 "
str_update = str_update & " WHERE id = "& objRS("Id")
objconn.execute (str_update)

response.write "id = "& objRS.fields("ID") & " - "
response.write "Nome = "& objRS.fields("Nome") & " - "
response.write "Il messaggio è stato spedito a = "& objRS.fields("EMail") &"

"

Cont = Cont + 50

objRS.movenext
wend

response.write "Email inviate: "& cont &""
response.write (JSRedirect(15))
 
end if
 
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

%>


</body>

</html>

Discussione: Inviare Login e Password ad iscritti sito

Strumenti discussione

Ricerca discussione

Visualizza

Inviare Login e Password ad iscritti sito

Permessi di invio