Skjul kode...

Hej !!

på siden http://studi.dk/opgaver/ ses i bunden af fagoversigten \"Gå til side\" og to pile. Kan det ikke lade sig gøre at skjule disse to ting på forsiden så de kun fremkommer når man er på en underkategori ?

Koden er som følger:

<%
    If Request.QueryString(\"catid\") = \"\" then
        CatID = 0
    Else
        CatID = Request.QueryString(\"catid\")
    End If
   
    CatTitle = Request.QueryString(\"cattitle\")
   

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM links WHERE CatID = \" & CatID & \" ORDER BY LinkName ASC;\"
rs.Open strSQL, strConnect, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 7
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  response.write \"<body bgcolor=\'D0DEE8\' link=\'#000000\' vlink=\'#000000\' alink=\'#000000\'>\"
  Response.Write \"<p><font face=\'Verdana, Times New Roman\' size=\'1\' color=\'Black\'><b>Side \" & intPage & \" af \" & intPageCount & \"</b></font></p>\"
  Do While Not rs.EOF And intRecCount > 0
  response.write \"<table border=\'0\' cellspacing=\'0\' width=\'100%\' cellpadding=\'5\' bgcolor=\'#BECAD6\' bordercolor=\'#000000\'>\"

Response.write \"<tr><table width=\'100%\' border=\'0\'  bgcolor=\'#BECAD6\'>\"
Response.write \"<td width=\"\"100%\"\" bgcolor=\"\"#BECAD6\"\" bordercolor=\"\"#BECAD6\"\"><font face=\"\"Verdana, Times New Roman\"\" size=\"\"1\"\" color=\"\"000000\"\"><a href=\'redirect.asp?linkid=\" & rs(\"LinkID\") &\"\' target=\'_top\'>\"
Response.write \"\" & rs(\"LinkName\") & \"</a> - \" & rs(\"LinkDesc\") & \"<BR></font><font face=\'Verdana, Times New Roman\' size=\'1\' color=\'Black\'><br>Bedømmelse/Niveau : <font color=\'Black\'>\" & rs(\"LinkWord\") & \"<br>Antal Downloads : <font color=\'Black\'>\" & rs(\"LinkHits\") & \" - <a href=\'redirect.asp?linkid=\" & rs(\"LinkID\") & \"\' target=\'_top\'>Download</A></FONT></FONT></FONT><hr size=\'1\' color=\'Black\'></td>\"

If Request.QueryString(\"admin\") = \"dellink\" then

Response.write \"<input type=\'checkbox\' name=\'field\' value=\'\" & rs(\"LinkID\") & \"\'>\"
    End If
   
Response.write \"</td></tr></table>\"

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing


Response.Write \"<p><font face=\'Verdana, Times New Roman\' size=\'1\' color=\'Black\'>Gå til side \"
For intNum = 1 To intPageCount
  Response.Write \"<a href=default.asp?catid=\" & catid & \"&cattile=\" & cattitle & \"&page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) < 1 Then
  Response.Write \"<a href=default.asp?catid=\" & catid & \"&cattile=\" & cattitle & \"&page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
  Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"<a href=default.asp?catid=\" & catid & \"&cattile=\" & cattitle & \"&page=\" & intPage + 1 & \">&gt;&gt;</a></font> \"
Else
  Response.Write \"&gt;&gt;\"
End If
%>

På forhånd tak !