undgå at vise ID felt

Jeg har 2 sider asp kode.
Når jeg udskriver vil jeg IKKE have vist ID, men fjerner jeg det fra sql-sætningen så melder den fejl og udskriver intet.
Her er min kode indtil videre.. Den er delt på 2 sider..
Viskunstner.asp

<% @language=VBScript %>
<!--#include File="tabel.asp"-->
<p align="center">
<%

action = request.querystring("action")

Set objConn = server.createobject("adodb.connection")
objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("kunstner.mdb")
set objRS=server.createobject("ADODB.recordset")


Select Case action

Case 1
 
Set objRS = objConn.Execute("SELECT ID,kunstner FROM Kunstner where action =3")
Tabel objRS
objRS.Close
Set objRS = Nothing
Set objConn = Nothing
 
End Select
%>

side 2. ... tabel.asp

<%

Sub Tabel(Byref objRecordSet)
  Dim i
  Response.Write"<TABLE BORDER=0  CELLSPACING=0 CELLPADDING=2 ALIGN=center frame=below>"

  'udskriv header( feltnavn)
  Response.Write "<tr bgColor=#000000>"
    For i = 0 to objRecordset.Fields.Count - 1
      Response.Write "<td><font face=arial size=2><b>" & objRecordset.fields.item.name & "</b></font></td>"
    Next

  Response.Write "</tr>"

  'udskriv krop (feltpost)
  j=0
  Do While Not objRecordset.EOF
  j=j+1
    if(j mod 2)=0 then
    Response.Write "<tr bgColor=#548568>"
    else Response.Write "<tr bgColor=white>"
    End if
    For i = 0 to objRecordset.Fields.Count - 1
      Response.Write "<td><font face=arial size=3 color=white><a href='kunstner.asp?ID=" & objrs("ID") & "'>" & objRecordset.fields.item.value & "</font></td></a>"
    Next
    objRecordset.MoveNext
    Response.Write "</tr>"
Loop
Response.Write "</table>"
End Sub
%>
JA.. det blev jo en anelse langt.. men jeg tror at det er nemmere på den her måde..