Salve ragazzi devo inviare una mail il cui corpo è costituito da una pagina dinamica.
Questi dati sono estratti da una tabella.
Vi posto il codice di seguito. Il problema che ho è che visualizzo sempre lo stesso record ripetuto per i record totali della tabella.
Invece dovrei visualizzare record differenti.
Da cosa può dipendere
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>


<% Session.LCID = 1040 %>
<%
Dim html

html = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'><html xmlns='http://www.w3.org/1999/xhtml'><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><link href='http://www.infotrading.it/gestionale/css/scadenzarioDomini.css' rel='stylesheet' type='text/css' /><title>Promemoria</title></style></head><body><table width='1000' border='0' cellspacing='2' cellpadding='2'><tr><td width='150' align='left' class='testoBoldCellaSx'>Referente</td><td width='200' align='left' class='testoBold'>Causale</td><td width='330' align='left' class='testoBold'>Dettaglio</td><td width='110' align='left' class='testoBold'>Data</td><td width='70' align='left' class='testoBold'>Archiviato</td></tr><tr><td colspan='5'></td></tr>"
Dim rsPromemoria
Dim rsPromemoria_cmd
Dim rsPromemoria_numRows

Set rsPromemoria_cmd = Server.CreateObject ("ADODB.Command")
rsPromemoria_cmd.ActiveConnection = MM_scadenzarioDomini_STRING
rsPromemoria_cmd.CommandText = "SELECT * FROM promemoria ORDER BY archiviato ASC" 
rsPromemoria_cmd.Prepared = true

Set rsPromemoria = rsPromemoria_cmd.Execute
rsPromemoria_numRows = 0

Soggetto = rsPromemoria("soggetto")
Causale = rsPromemoria("causale")
Dettagli = rsPromemoria("dettagli")
DataScadenza = rsPromemoria("scadenza")
Archiviato = rsPromemoria("archiviato")

Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 20
Repeat1__index = 0
rsPromemoria_numRows = rsPromemoria_numRows + Repeat1__numRows

While ((Repeat1__numRows <> 0) AND (NOT rsPromemoria.EOF)) 

html = html &  "<tr><td align='left' class='testo'>" & Soggetto & "</td><td class='testo'>" & Causale & "</td><td class='testo'>" & Dettagli & "</td><td class='testo'>" & DataScadenza & "</td><td class='testo'>" & Archiviato & "</td></tr><tr><td colspan='5'></td></tr>"

  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsPromemoria.MoveNext()
Wend

html = html & "</table></body></html>"

rsPromemoria.Close()
Set rsPromemoria = Nothing

%>
<%
Set Config = Server.CreateObject("CDO.Configuration") 
Set Fields = Config.Fields 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mailweb@infotrading.it" 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxx" 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.fffgdfd.it" 

Fields.Update 
Set MiaMail = CreateObject("CDO.Message")
Set MiaMail.Configuration = Config 
MiaMail.From = "ssssssss@ssssssss.it"
MiaMail.To = "ssssssss@ssssssss.it"

MiaMail.Subject = "Promemoria per oggi: Test html tabellare"
MiaFromName = "Pippo"
MiaFromAddress =  "ssssssssss@ssssssss.it"

MiaMail.HTMLBody = html

MiaMail.Send ()
Set MiaMail = Nothing
Set Fields = Nothing 
Set Config = Nothing  
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Promemoria</title>
</head>

<body>
</body>
</html>