I need to select the TOP 16 rows and for each row, create a field so I can manually place it on a page (in a confined layout) without having to do all kinds of jibberish repeat region statements and what not.

Is this possible? If so, what is the statement to do it?

The page I am trying to do this on is @ http://www.rotsquad.com/tournament/brackets.asp - www.rotsquad.com/tournament/brackets.asp - you'll see I need to display certain records based on some filters but with that layout you cannot do repeat regions or even nested.

SELECT TOP 16 * FROM FIELD; - I think thats what you want...

Mart.

SELECT TOP 16 * FROM FIELD

That will only pull the top 16 records out of a select field right? Well, I need each of those records pulled to be created as a FIELD ITEM. 

Like when you do:

SELECT COUNT(tournid) AS totaltournid or something.

Basically, if you look at that reference page above you'll see what I'm trying to do.

I need to pull the top 16 records out each as a field item so I can individually place one by one in the table on the far left.  Then create another recordset that will pull out only 8 records which I will place one by one, etc.  Get it?

Basically, I need to collect the content of recordset into an array so I can individually place values from the recordset.

How do I do all that?

I think I have it working for now ... I was trying to use a basic array and kept getting a Type Mismatch.

Thanks for steering me in the right direction!

<-- newb

If the value I am displaying is null, how can I make it say something like "None" ...

I tried If isnull(arrRound1(3,1) then but that doesn't work?

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 1]'

<% If IsNull (arrRound1(3,1)) Then
 arrRound1(3,1) = "None"
 Response.Write(arrRound1)
 End If%>

Thats because you used Response.Write(arrRound1), not Response.Write(arrRound1(3,1)).

Blair

I changed it to this right after posting that:

If (arrRound1(3,1)) = "" Then
arrRound1(3,1) = "None"
Else
Response.Write(arrRound1(3,1))
End If

Still does not work ...

Comment out that code and put the following in there:

Response.Write "Array Dimensions: " & UBound(arrRound1) & " x " & UBound(arrRound1, 2)

Then post what it says here.

Blair

Their is only one row in the recordset and five columns.  In literal the column I want to use is number four which means it's number three here.

So displaying arrRound1(3,0) works fine because their is one row.

Displaying arrRound1(3,1) does not because there is no "second" row.

So I want to put some IF statements to display something else so the page continues.

Array Dimensions: 4 x 0

Here is the full recordset code and the GetRow.

<%
Dim rsround1__MMColParam
rsround1__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  rsround1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsround1__MMColParam2
rsround1__MMColParam2 = "1"
If (Request.QueryString("tournid") <> "") Then 
  rsround1__MMColParam2 = Request.QueryString("tournid")
End If
%>

<%
Dim rsround1
Dim rsround1_numRows
Dim arrRound1
Set rsround1 = Server.CreateObject("ADODB.Recordset")
rsround1.ActiveConnection = MM_db_data_conn_STRING
rsround1.Source = "SELECT TOP 16 *  FROM TBL_TOURNAMENTBRACKETS  WHERE bracketposition = " + Replace(rsround1__MMColParam, "'", "''") + " AND tournid = " + Replace(rsround1__MMColParam2, "'", "''") + "  ORDER BY tournbracketsid ASC"
rsround1.CursorType = 0
rsround1.CursorLocation = 2
rsround1.LockType = 1
rsround1.Open()
rsround1_numRows = 0
arrRound1 = rsround1.GetRows
%>

That means the entry in the array you are trying to reference does not exist. The columns go from 0 to 4 (i.e. five entries) and there is one row (0). So you can't reference the (non-existent) second row, which is what you are trying to do, hence the error.

Blair

Exactly - I know and understand this ... I want to say if the second-sixteen does not exist, display this instead.

How?

Try using the following:

If UBound(arrRound1, 2) > 0 Then
     ...Display Stuff From Array...
Else
     ...Message Saying Whatever...
End If

Basically, if there are two rows, then UBound(arrRound1, 2) will equal one - I've used > 0 so that it will also display if there are more than 2. If there is only one row, then your message saying "No data in the second row", or whatever the message is, will be displayed.

Blair

hmm - how do i incorporate this for 16 rows?

if you look at the link on the first page, each gray line will have response.write(arrRound(3,0))  (0-15)

see what im saying?

I'm a complete newb to this so I have no idea what that means to do ... it just confused me more?

Can you explain it a little better please?

And yes, you were exactly right.  They key thing is I need to display "teamname" on specific table rows for each round.

I'm sure I have to do something to that piece of code but I put that into my page, as is and I still get an out of range error?

The problem with that is possible that their is not ALWAYS going to be exactly half of what is in the previous array.

Reason being, a team may progress to the next bracket faster then another.  Which means their could only be 1 team in the round 2 (arrRound2) for awhile.

Get it?

... ok so use a normal array method

I tried that originally but kept getting a type mismatch, I guess i'll retry it

I appreciate the help!

I hope to getting it working soon! :)

How about ....?

arrRound = rsRound1.GetRows

strRound1 = (Cstr(arrRound1(3,0))

Then later on <% Response.Write(strRound1) %>

Is that the proper logic?

Then you could do

if strRound1 = "" then
strRound1 = "None"
end if

Mikeap wrote: How about ....? arrRound = rsRound1.GetRows strRound1 = (Cstr(arrRound1(3,0)) Then later on <% Response.Write(strRound1) %> Is that the proper logic?

Sorta, but if there is no rows, you'll get an error with GetRows.

Try:

blnRound1 = False
If Not rsRound1.EOF Then
     arrRound1 = rsRound1.GetRows
     blnRound1 = True
End If

If blnRound1 Then
     strRound1 = arrRound1(3,0)
Else
     strRound1 = "None"
End If

Blair

I got it working ... I could not get it to loop or do a counter either ... just would not work.

So I manually assigned array values to variables and did it that way.

It's setup so even if the recordset is empty that it will just show none.