Prueba lo que te dije:
Los SELECT:
Código:
Dim permitirJs
permitirJs = false
Dim Modo
Modo=Ucase(Request.Querystring ("Mod"))
Select Case Modo
Case "C"
Contra()
Case "F"
Formulario()
Case "S"
Subir()
Case "A"
Archivos()
Case "M"
Modificar()
Case "M2"
Modificar2()
Case "RSS"
permitirJs = true
RSS()
Case "CON"
Contador()
Case Else
Contra()
End select
Y en el tag <body>
Código HTML:
<html>
<head> .... </head>
<body <% if permitirJs then response.Write " onLoad=""init('txtNoticia')"" " %> >
....
</body>
</html>
Un saludo