<%
Dim myForum, myForumPath
If IsNumeric(Request("forum")) and Request("forum") <> "" Then
myForum = Request("forum")
myForumPath = myForumPath & "forum=" & myForum
else
myForum = 0
End If
sTitlePage = GetTranslation("LANG_TITLE_FORUM")
%>
<%
DisplayForumPath myForum
CreateTopTable "Negato", GetTranslation("LANG_ACCESS_DENIED")
Response.Write "
" & GetTranslation("LANG_ACCESS_DENIED") & "
" & vbCRLF
CreateBottomTable ""
%>
<%
Sub DisplayForumPath(myForum)
Dim Conn, Rs, rSQL
Set Conn = DBConnexion(DB_FORUM)
CreateTopTable "ForumPath", GetTranslation("LANG_FORUM") & " " & GLOBAL_SITE_NAME
Response.write GLOBAL_SITE_SUBTABLE
Response.write "" & vbCRLF
Response.Write "" & GetTranslation("LANG_FORUM") & "
" & vbCRLF
If myForum <> 0 Then
rSQL = "SELECT ForumName FROM forums WHERE ForumID=" & myForum
Set Rs = DBRecordSet(Conn, rSQL)
If Not Rs.EOF Then
Response.Write " ![]() " & Rs("ForumName") & "" & vbCRLF
end if
Rs.close
Set Rs = Nothing
End If
Response.write " | |
" & vbCRLF
CreateBottomTable ""
Conn.Close
Set Conn = Nothing
End Sub
%>