15 gennaio 2004 alle 02:09:32

Dim oCn, oRs, rSQL, X, forumdopo, forumprima, iLine
Set oCn = DBConnexion(DB_FORUM)
rSQL = "SELECT SectionID, SectionName, SectionForum, ForumID, ForumName FROM Sections, Forums WHERE SectionForum=ForumID ORDER BY ForumName, SectionName"
Set oRs = DBRecordSet(oCn, rSQL)

Response.Write "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" border=""0"" align=""center"">" & vbCRLF
If GLOBAL_NEWS_LINKS_TOP > 0 and GLOBAL_FORUM_TOP > 0 Then
Response.Write " <tr>" & vbCRLF
Response.Write "<td>"& vbCRLF
Response.Write " <select name=""PostSection"" class=""cell"" onChange=""MM_jumpMenu('parent',this,1)"">" & vbCRLF
Response.Write " <option selected>FORUM</option>" & vbCRLF
forumdopo=""
iLine = 1
While Not oRs.EOF
forumprima= oRs("ForumName")
if forumprima <> forumdopo then
Response.Write " <optgroup label=""" & oRs("ForumName") & """ class=""group" & iLine & """>INFO</option>" & vbCRLF
iLine = ((iLine - 1) Xor 1) + 1
end if
X = oRs("forumID") & "&section=" & oRs("SectionID")
Response.Write " <option value=""forum.asp?forum=" & X & """"
Response.Write ">" & oRs("SectionName") & "</option>" & vbCRLF
forumdopo = oRs("ForumName")
oRs.MoveNext
WEnd
Response.Write " </select>" & vbCRLF
Response.Write "</td>"& vbCRLF
oCn.Close
Set oCn = Nothing
Set oRs = Nothing
Response.Write " </tr>" & vbCRLF
Response.Write " <tr>" & vbCRLF
Response.Write " <td valign=""top"">" & vbCRLF
DisplayTopForum GLOBAL_FORUM_TOP
Response.Write " </td>" & vbCRLF
Response.Write " </tr> <tr>" & vbCRLF
Response.Write " <td valign=""top"" align=""right"">" & vbCRLF
DisplayTopNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
ElseIf GLOBAL_NEWS_LINKS_TOP > 0 Then
Response.Write " <tr>" & vbCRLF
Response.Write " <td width=""100%"" valign=""top"">" & vbCRLF
DisplayTopNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
ElseIf GLOBAL_FORUM_TOP > 0 Then
Response.Write " <tr>" & vbCRLF
Response.Write "<td>"& vbCRLF
Response.Write " <select name=""PostSection"" class=""cell"" onChange=""MM_jumpMenu('parent',this,1)"">" & vbCRLF
Response.Write " <option selected>FORUM</option>" & vbCRLF
forumdopo=""
iLine = 1
While Not oRs.EOF
forumprima= oRs("ForumName")
if forumprima <> forumdopo then
Response.Write " <optgroup label=""" & oRs("ForumName") & """ class=""group" & iLine & """>INFO</option>" & vbCRLF
iLine = ((iLine - 1) Xor 1) + 1
end if
X = oRs("forumID") & "&section=" & oRs("SectionID")
Response.Write " <option value=""forum.asp?forum=" & X & """"
Response.Write ">" & oRs("SectionName") & "</option>" & vbCRLF
forumdopo = oRs("ForumName")
oRs.MoveNext
WEnd
Response.Write " </select>" & vbCRLF
Response.Write "</td>"& vbCRLF
oCn.Close
Set oCn = Nothing
Set oRs = Nothing
Response.Write " </tr>" & vbCRLF
Response.Write " <tr>" & vbCRLF
Response.Write " <td width=""100%"" valign=""top"" align=""right"">" & vbCRLF
DisplayTopForum GLOBAL_FORUM_TOP
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
End If
Response.Write "</table>" & vbCRLF

optgroup.group1
{
background: #84BD63;
color: #000000
}

optgroup.group2
{
background: #7DB55C;
color: #000000
}

optgroup.group1 option
{
background: #84BD63;
color: #000000
}

optgroup.group2 option
{
background: #7DB55C;
color: #000000
}