mmmmmmmmm
questo è il codice:
<%
Dim periodo,nostro
p = "p"
si = "si"
f = "f"
tc = "tc"
no = "no"
favole = "favole"
ridere = "ridere"
aforismi = "aforismi"
Nostro = "Nostro"
t=request("t")
sql="SELECT periodo,forumid,forumname,tipo,show FROM myforums WHERE TIPO = '" & aforismi & "' and show = '" & si & "' ORDER BY FORUMID desc"
set conn=server.createobject("adodb.connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("../../mdb-database/poesie2000.mdb")
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1, 3
periodo = rs("periodo")
if periodo = "Nostro" then
%>
<%
function totalMessages(fid)
dim con1,rs1,totalRecords,P,si,favole,f,page
Set Con1 = server.CreateObject("ADODB.Connection")
'create recordset object
Set RS1 = server.CreateObject("ADODB.Recordset")
con1.open dsn
si = "si"
sql="select * from mestbl where show = '" & si & "' and forumid=" & fid
rs1.ActiveConnection = Con1
rs1.open sql,,adOpenStatic, adLockReadOnly
totalRecords=rs1.RecordCount
response.write totalRecords
end function
%>
<%
i=0
do until i=40 or rs.EOF
i=i+1
%>
<%
page=request("page")
tipo=rs("tipo")
id=rs("forumid")
name=rs("forumname")
%>
<tr><td bordercolor=#cococo bgcolor="#ffffff" width=4%><font class="unnamed1"><%response.write totalMessages(id)%></td><td bordercolor=#cococo bgcolor="#ffffff" width=16%><font class="unnamed1"> <%=(tipo)%> </td><td bgcolor="#ffffff" bordercolor=#cococo width=40%><A href="list.asp?fid=<%=(id)%>&name=<%=(name)%>&tipo=<%=(tipo)%>&page=<%=(page)%>" class="unnamed1">.:: <%=(name)%></a></td><td bgcolor="#ffffff" bordercolor=#cococo width=40%><a class="unnamed1" href="http://www.allinonenet.it/segnala.asp?azione=modulo&url=http://www.allinonenet.it/dir/ps/list.asp?fid=<%=(id)%>" target="_blank"> Segnala il poeta ad un amico </a></td><tr>
<%
rs.movenext
loop
%>
<%
else
%>
<%
function totalMessages(fid)
dim con1,rs1,totalRecords,P,si,favole,f,page
Set Con1 = server.CreateObject("ADODB.Connection")
'create recordset object
Set RS1 = server.CreateObject("ADODB.Recordset")
con1.open dsn
si = "si"
sql="select * from mestbl where show = '" & si & "' and forumid=" & fid
rs1.ActiveConnection = Con1
rs1.open sql,,adOpenStatic, adLockReadOnly
totalRecords=rs1.RecordCount
response.write totalRecords
end function
%>
<%
i=0
do until i=40 or rs.EOF
i=i+1
%>
<%
page=request("page")
tipo=rs("tipo")
id=rs("forumid")
name=rs("forumname")
%>
<tr><td bordercolor=orange bgcolor="#ffffff" width=4%><font class="unnamed1"><%response.write totalMessages(id)%></td><td bordercolor=#cococo bgcolor="#ffffff" width=16%><font class="unnamed1"> <%=(tipo)%> </td><td bgcolor="#ffffff" bordercolor=#cococo width=40%><A href="list.asp?fid=<%=(id)%>&name=<%=(name)%>&tipo=<%=(tipo)%>&page=<%=(page)%>" class="unnamed1">.:: <%=(name)%></a></td><td bgcolor="#ffffff" bordercolor=#cococo width=40%><a class="unnamed1" href="http://www.allinonenet.it/segnala.asp?azione=modulo&url=http://www.allinonenet.it/dir/ps/list.asp?fid=<%=(id)%>" target="_blank"> Segnala il poeta ad un amico </a></td><tr>
<%
rs.movenext
loop
end if
%>
se il periodo è uguale a nostro mi dovrebbe dare la cella #cococo
invece se no orange...
mi da tutto orange anche se nel db ho anche un periodo nostro xche ?
andrea