-->
<%
sQuery = "SELECT COUNT(*) AS CONTA FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA1") + "'"
set rsResult = query(sQuery)
sTmp = cstr(rsResult("CONTA"))
set rsResult = nothing
%>
','scrollbars=yes,width=650,height=400,top=0,left=0')"><%=Application("CATEGORIA1") %> ( <%=sTmp %> ):
|
-->
<%
sQuery = "SELECT COUNT(*) AS CONTA FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA2") + "'"
set rsResult = query(sQuery)
sTmp = cstr(rsResult("CONTA"))
set rsResult = nothing
%>
','scrollbars=yes,width=650,height=400,top=0,left=0')"><%=Application("CATEGORIA2") %> ( <%=sTmp %> ):
|
|
<%
sQuery = "SELECT * FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA1") + "' ORDER BY INVII DESC"
set rsResult = query(sQuery)
lCondExit = false
x = 0
do until rsResult.EOF or lCondExit
x= x +1
if x = 3 then
lCondExit = true
end if
sTesto = rsResult("TESTO")
if len(sTesto) > 35 then
sTesto = left(sTesto,32)
sTesto = trim(sTesto) + "..."
end if
sHits = cstr(rsResult("INVII"))
%>
<%=sTesto %> (<%=sHits %>)
<%
rsResult.Movenext
loop
set rsResult = nothing
%>
|
<%
sQuery = "SELECT * FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA2") + "' ORDER BY INVII DESC"
set rsResult = query(sQuery)
lCondExit = false
x = 0
do until rsResult.EOF or lCondExit
x= x +1
if x = 3 then
lCondExit = true
end if
sTesto = rsResult("TESTO")
if len(sTesto) > 35 then
sTesto = left(sTesto,32)
sTesto = trim(sTesto) + "..."
end if
sHits = cstr(rsResult("INVII"))
%>
<%=sTesto %> (<%=sHits %>)
<%
rsResult.Movenext
loop
set rsResult = nothing
%>
|
-->
<%
sQuery = "SELECT COUNT(*) AS CONTA FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA3") + "'"
set rsResult = query(sQuery)
sTmp = cstr(rsResult("CONTA"))
set rsResult = nothing
%>
','scrollbars=yes,width=650,height=400,top=0,left=0')"><%=Application("CATEGORIA3") %> ( <%=sTmp %> ):
|
-->
<%
sQuery = "SELECT COUNT(*) AS CONTA FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA4") + "'"
set rsResult = query(sQuery)
sTmp = cstr(rsResult("CONTA"))
set rsResult = nothing
%>
','scrollbars=yes,width=650,height=400,top=0,left=0')"><%=Application("CATEGORIA4") %> ( <%=sTmp %> ):
|
|
<%
sQuery = "SELECT * FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA3") + "' ORDER BY INVII DESC"
set rsResult = query(sQuery)
lCondExit = false
x = 0
do until rsResult.EOF or lCondExit
x= x +1
if x = 3 then
lCondExit = true
end if
sTesto = rsResult("TESTO")
if len(sTesto) > 35 then
sTesto = left(sTesto,32)
sTesto = trim(sTesto) + "..."
end if
sHits = cstr(rsResult("INVII"))
%>
<%=sTesto %> (<%=sHits %>)
<%
rsResult.Movenext
loop
set rsResult = nothing
%>
|
<%
sQuery = "SELECT * FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA4") + "' ORDER BY INVII DESC"
set rsResult = query(sQuery)
lCondExit = false
x = 0
do until rsResult.EOF or lCondExit
x= x +1
if x = 3 then
lCondExit = true
end if
sTesto = rsResult("TESTO")
if len(sTesto) > 35 then
sTesto = left(sTesto,32)
sTesto = trim(sTesto) + "..."
end if
sHits = cstr(rsResult("INVII"))
%>
<%=sTesto %> (<%=sHits %>)
<%
rsResult.Movenext
loop
set rsResult = nothing
%>
|
-->
<%
sQuery = "SELECT COUNT(*) AS CONTA FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA5") + "'"
set rsResult = query(sQuery)
sTmp = cstr(rsResult("CONTA"))
set rsResult = nothing
%>
','scrollbars=yes,width=650,height=400,top=0,left=0')"><%=Application("CATEGORIA5") %> ( <%=sTmp %> ):
|
-->
<%
sQuery = "SELECT COUNT(*) AS CONTA FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA6") + "'"
set rsResult = query(sQuery)
sTmp = cstr(rsResult("CONTA"))
set rsResult = nothing
%>
','scrollbars=yes,width=650,height=400,top=0,left=0')"><%=Application("CATEGORIA6") %> ( <%=sTmp %> ):
|
|
<%
sQuery = "SELECT * FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA5") + "' ORDER BY INVII DESC"
set rsResult = query(sQuery)
lCondExit = false
x = 0
do until rsResult.EOF or lCondExit
x= x +1
if x = 3 then
lCondExit = true
end if
sTesto = rsResult("TESTO")
if len(sTesto) > 35 then
sTesto = left(sTesto,32)
sTesto = trim(sTesto) + "..."
end if
sHits = cstr(rsResult("INVII"))
%>
<%=sTesto %> (<%=sHits %>)
<%
rsResult.Movenext
loop
set rsResult = nothing
%>
|
<%
sQuery = "SELECT * FROM MESSAGGIVOCALI WHERE CATEGORIA='" + Application("CATEGORIA6") + "' ORDER BY INVII DESC"
set rsResult = query(sQuery)
lCondExit = false
x = 0
do until rsResult.EOF or lCondExit
x= x +1
if x = 3 then
lCondExit = true
end if
sTesto = rsResult("TESTO")
if len(sTesto) > 35 then
sTesto = left(sTesto,32)
sTesto = trim(sTesto) + "..."
end if
sHits = cstr(rsResult("INVII"))
%>
<%=sTesto %> (<%=sHits %>)
<%
rsResult.Movenext
loop
set rsResult = nothing
%>
|
