Simple Arrays

[artsapimp]

Using asp, how would I set the array to display every row, but only columns 1, 3, and 6? I want the database to store all fields, but the display page should show only these few fields. Thanks for any help.

Here is my code I already have, it shows all fields which isn't what I need. Please help.

<%
Dim cnn
Dim rst
Dim connectString

set cnn = Server.CreateObject ("ADODB.Connection")
set rst = Server.CreateObject ("ADODB.Recordset")

ConnectString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\shared webs\art\new1\mdb\speed.mdb"

cnn.open connectString

rst.open "speed", cnn, 2, 2
%>
<Table Border="1" width="100%">
<tr bgcolor="#C0C0C0">
<%
if rst.EOF AND rst.BOF then
		Response.Write ( "No Records found")
	else
		'output field names
For intFieldCounter = 0 To (rst.Fields.Count) - 1
      Response.Write( "<TH>" &  rst.Fields.Item(intFieldCounter).Name )
Next

Response.Write ( "</TR>" )

'output records
Do Until rst.EOF
    Response.Write( "<TR>" )

    for intFieldCounter = 0 to (rst.Fields.Count) - 1
	
		if rst.Fields.Item(intFieldCounter).Name = "DonorID" then
			Response.Write( "<TD> <A HREF=http://" & strServerName & "/dacm/content/donorTests.asp?DonorID=" & rst(intFieldCounter) & ">" & rst(intFieldCounter) & " </a> </TD>" )
		else
			Response.Write( "<TD>" & rst(intFieldCounter) & "</TD>" )
		end if
		
    Next

    rst.MoveNext

    Response.Write( "</TR>" )

Loop

Response.Write( "</Table>" )

rst.Close
cnn.Close
set cnn = Nothing

End if

%>