<%@Language="VBScript"%> <% If Request("IDMENU") = "" Then Response.Redirect("home.asp?idmenu=60") End If strSQL = "SELECT * FROM GLOBAL" Set objRSGlobal = Application("objConn").Execute(strSQL) strSQL = "SELECT * FROM STYLES WHERE ID = " & objRSGlobal("STYLE") Set objRSStyle = Application("objConn").Execute(strSQL) If Request("IDMenu") = "" And Request("IDSubMenu") = "" Then strSQL = "SELECT * FROM METATAGS WHERE IDMENU = -3" Else If Request("IDMenu") <> "" And Request("IDSubMenu") = "" Then strSQL = "SELECT * FROM METATAGS WHERE IDMENU = " & Request("IDMenu") & " AND IDSUBMENU = -2" Else strSQL = "SELECT * FROM METATAGS WHERE IDMENU = " & Request("IDMenu") & " AND IDSUBMENU = " & Request("IDSubMenu") End If End If Set objRSMetatags = Application("objConn").Execute(strSQL) %> <% If objRSMetatags.EOF = True Then HeaderMetatags = "" Else HeaderMetatags = objRSMetatags("METATAGS") End If HeaderGlobal = objRSGlobal("HEADER") If Trim(HeaderMetatags) = "" Then Response.Write(HeaderGlobal) Else Response.Write(HeaderMetatags) End If %> <% If Trim(objRSGlobal("STAUSBAR")) <> "" Then %> <% End If %>