|
<%
dim rsResult,sQuery,x,sTesto,lCondExit,sSuggerito,sEmailSuggerito
sQuery = "SELECT * FROM MESSAGGIVOCALI ORDER BY DATAINS DESC"
set rsResult = query(sQuery)
x = 0
lCondExit = false
do until rsResult.EOF or lCondExit
x = x + 1
if x = 7 then
lCondExit = true
end if
sTesto = rsResult("TESTO")
if len(sTesto) > 72 then
sTesto = left(sTesto,69)
sTesto = trim(sTesto) + "..."
end if
%>
0.<%= cstr(x) %> ','pop','width=450,height=300')">
<%=sTesto %>
<%
rsResult.moveNext
loop
set rsResult = nothing
%>
|
<%
sQuery = "SELECT * FROM MESSAGGIVOCALI ORDER BY DATAINS DESC"
set rsResult = query(sQuery)
x = 0
lCondExit = false
do until rsResult.EOF or lCondExit
x = x + 1
if x = 7 then
lCondExit = true
end if
sSuggerito = rsResult("SUGGERITO")
sEmailSuggerito = rsResult("EMAILSUGGERITO")
%>
by
<%=sSuggerito %>
<%
rsResult.moveNext
loop
set rsResult = nothing
%>
|
