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

%>

[Ianpbaker]

Hi artsapimp

To do what you ask, open your recordset using a SQL string.

Replace

rst.open "speed", cnn, 2, 2

With

rst.open "SELECT column1, column3, column6 From speed", cnn, 2, 2

repacing columnx with the names of your columns from the database

Hope this helps

Ian

[artsapimp]

Perfect, thank you very much.

How would I make the first column (ID) be a link to another page that shows all fields for the customer?

[Ianpbaker]

In your for loop do an If statement to see if the field number is the id column, and if it is put in an A tag but make the href = MYnewpage.asp?id=<% = rst(intFieldCounter) %>

Then in the new page use myid = request.querystring("id") to get the id.

Then when you open the recordset use "SELECT * FROM speed WHERE idcolumn = " & myid

if you Need any more help reply back

Ian

[artsapimp]

I got this error:
'800a0cc1'
ADO could not find the object in the collection corresponding to the name or ordinal reference requested by the application.

This is how I wrote the code, I'm sure it's wrong

[code]
If rst.Fields.Item(intFieldCounter).Name = "ID" Then
%>
<A href=edit.asp?id=<% = rst(intFieldCounter) %>><%= rst(intFieldCounter) %></A>

<%
End If

[Ianpbaker]

I cant see any error's

Which line are you getting it.

On the if statement or on the link line.

Ian

[artsapimp]

ADODB.Fields error '800a0cc1'

ADO could not find the object in the collection corresponding to the name or ordinal reference requested by the application.

/arthur/new1/mdb/test.asp, line 38

line 38:

If rst.Fields.Item(intFieldCounter).Name = "ID" Then


This is the whole code as of right now if that helps


<%
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 "SELECT ID, Location, Phone, ProvisionedSpeed, ActualSpeed, Status, NDCAgent From NDC", cnn, 2, 2

%>
<Table Border="1" width="100%">
<tr bgcolor="#C0C0C0">
<%
'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

Response.Write( "<TD>" & rst(intFieldCounter) & "</TD>" )

Next

rst.MoveNext

If rst.Fields.Item(intFieldCounter).Name = "ID" Then
%>
<A href=edit.asp?id=<% = rst(intFieldCounter) %>><%= rst(intFieldCounter) %></A>

<%
End If


Response.Write( "</TR>" )

Loop

Response.Write( "</Table>" )


rst.Close
cnn.Close
set cnn = Nothing



%>

[Ianpbaker]

Hi there again

still can't see what your problem if you replace the for loop with this


for intFieldCounter = 0 to (rst.Fields.Count) - 1

If intFieldCounter = 0 Then
%>
<TD><A href="edit.asp?id=<% = rst(intFieldCounter) %>"><%= rst(intFieldCounter) %></A></TD>

<%
else
Response.Write( "<TD>" & rst(intFieldCounter) & "</TD>" )
End If
Next

rst.MoveNext

You will get the desired affect

Ian