Ciao Luca,
grazie, ti posto il codice,è un pò lunghetto...
grazie mille
codice:
<%
oggi = split(date(), "/")
giorno = oggi(0)
mese = oggi(1)
anno = oggi(2)
oggi_ok = anno & mese & giorno
sqlTV = "SELECT TOP 4 * FROM tab_tv WHERE elimina_tv = 0 ORDER BY data_tv DESC"
set rsTV = conn.execute(sqlTV)
sqlEVENTI2 = "SELECT TOP 4 tab_eventi.*, tab_locali.* FROM tab_eventi, tab_locali WHERE tab_eventi.id_locale = tab_locali.ID_locali AND tab_eventi.data_evento >= '" & oggi_ok & "' AND elimina_evento = 0 ORDER BY data_evento DESC"
set rsEVENTI2 = conn.execute(sqlEVENTI2)
sqlUT4 = "SELECT TOP 4 *FROM tab_utenti WHERE elimina_utente = 0 AND attiva_utente = 1 ORDER BY ID_utenti DESC"
set rsUT4 = conn.execute(sqlUT4)
sqlSERATE = "SELECT TOP 4 *FROM tab_serate WHERE elimina_serata = 0 ORDER BY data_serata DESC"
set rsSERATE = conn.execute(sqlSERATE)
html = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><link href='http://www.miosito.com/css/youmulenews.css' rel='stylesheet' type='text/css' /><title>Documento senza titolo</title><style type='text/css'></style></head><body><div align='center'><table width='1024' height='1200' cellpadding='0' cellspacing='0' border='0'><tr><td align='center' valign='top'><table width='900' height='305' border='0' cellpadding='0' cellspacing='0'><tr><td align='center'>
</td></tr></table><table width='780' border='0' cellspacing='0' cellpadding='0'><tr><td height='46'><div align='center'>
</div></td></tr></table><table width='780' border='0' cellspacing='0' cellpadding='0'><tr><td align='left' valign='middle' style='padding-left:50px;'>"
' QUERY PER EVENTI
while not rsEVENTI2.eof
ID_eventi = rsEVENTI2("ID_eventi")
nome_evento = rsEVENTI2("nome_evento")
foto_evento = rsEVENTI2("foto_evento")
data_evento = rsEVENTI2("data_evento")
anno2 = left(data_evento, 4)
mese2 = mid(data_evento, 5, 2)
giorno2 = mid(data_evento, 7, 2)
data_evento2 = giorno2 &"/"& mese2 & "/" & anno2
url_evento = rsEVENTI2("url_evento")
nome_locale = rsEVENTI2("nome_locale")
html = html & "
"&nome_evento&"
Prenota un tavolo o inserisciti in lista
"
rsEVENTI2.movenext
wend
html = html & "</td></tr></table>
<table width='780' border='0' cellspacing='0' cellpadding='0'><tr><td height='46'><div align='center'>
</div></td></tr></table><table width='780' border='0' cellspacing='0' cellpadding='0'><tr>"
'QUERY PER UTENTI
while not rsUT4.eof
if rsUT4("foto_utente") = "" or isnull(rsUt4("foto_utente")) then
foto_utente = "http://www.miosito.com/images/no_foto.jpg&opx=72"
else
foto_utente = "http://www.miosito.com/public/utenti/"&rsUT4("foto_utente")&"&opx=72"
end if
html = html & "<td align='left' valign='middle' width='195' style='padding-left:50px;'>
"&rsUT4("user_utente")&"</td>"
rsUT4.movenext
wend
html = html & "</tr></table>
<table width='780' border='0' cellspacing='0' cellpadding='0'><tr><td height='46'><div align='center'>
</div></td></tr></table><table width='780' border='0' cellspacing='0' cellpadding='0'><tr>"
'QUERY PER SERATE
while not rsSERATE.eof
html = html & "<td align='left' valign='middle' width='195' style='padding-left:50px;'>
"&rsSERATE("nome_serata")&"</td>"
rsSERATE.movenext
wend
html = html & "</tr></table>
<table width='780' border='0' cellspacing='0' cellpadding='0'><tr><td height='46'><div align='center'>
</div></td></tr></table><table width='780' border='0' cellspacing='0' cellpadding='0'><tr>"
'QUERY PER TV
while not rsTV.eof
foto_tv = rsTV("foto_tv")
if foto_tv = "" or isnull(foto_tv) then
foto_tv = "/images/no_foto.jpg"
else
foto_tv = "/public/video/"&foto_tv
end if
html = html & "<td align='left' valign='middle' width='195' style='padding-left:50px;'>
"&rsTV("titolo_tv")&"</td>"
rsTV.movenext
wend
html = html & "</tr></table></td></tr></table></div></body></html>"
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSendUsingMethod) = cdoSendUsingPickup
Flds(cdoSMTPServer) = "127.0.0.1"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
'.To = ""
.From = "email@prova.com"
.BCc = "email@prova.com"
.Sender = "email@prova.com"
.Subject = "Newsletter del " & Date()
'.TextBody = messaggio
.HTMLbody = html
.Send
End With
%>