---
title: "dynamisk array"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51874-dynamisk-array"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2002-09-01T12:18:22.000Z"
updated: "2002-09-01T14:30:48.000Z"
replies: 12
views: 409
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/51874-dynamisk-array"
---

# dynamisk array

## #1 — CatZ, 2002-09-01T12:18Z

Hur ska jag bära mig åt för att tilldela följande värden dynamiskt?

```
arrLank = Array("<a href=kalender_stor.asp?id=" & iId & ">" & iTitel & "</a>")
```

Alltså för varje iId och iTitel som finns i databasen ska det skrivas till arrayen.... hur gör man ?

Permalänk: https://www.webforum.nu/p/51874

## #2 — LarsG, 2002-09-01T12:24Z

Man använder metoden getrows

```
set rs = connect.execute(query)
if not rs.eof then
   arr = rs.getrows()
'
end if
```

Då får du en två-dimensionell array med alla poster som returneras från selectfrågan.

Permalänk: https://www.webforum.nu/p/769835

## #3 — @nders, 2002-09-01T12:26Z

Du kan också använda en vanlig array, som du dynamiskt ökar storleken på i din loop. Exempel:

```
dim varArray(0)
intCounter=0
while not rs.eof
     intCounter = intCounter + 1
     Redim Preserve varArray(uBound(varArray)+1)
     varArray (i) = rs("fältet")
     rs.movenext
wend
```

När du sedan loopar ut din array, kan du börja på index 1, eftersom ovanstående kod lämnar första platsen tom.

Mvh,

Permalänk: https://www.webforum.nu/p/769836

## #4 — CatZ, 2002-09-01T12:35Z

Ska testa båda förslagen några gånger för att lära mig ;) tack men LarsG hur skriver jag sedan ut informationen då ?

Permalänk: https://www.webforum.nu/p/769843

## #5 — LarsG, 2002-09-01T12:40Z

```
rezponze.write arr(0,0) 'första kolumnen i första raden
rezponze.write arr(1,1) 'andra kolumnen i andra raden
```

Permalänk: https://www.webforum.nu/p/769844

## #6 — Jörgen HP, 2002-09-01T12:42Z

> rezponze.write

Är rezponze ett nytt objekt för senaste skriptmotorn  :q §e

Permalänk: https://www.webforum.nu/p/769850

## #7 — CatZ, 2002-09-01T13:05Z

Aha, så du menar att jag ska plocka ut första och sista posten med LBound och UBound och sedan göra en loop på det då typ

```
Dim strSQL
	strSQL = " SELECT *"_
	& " FROM Kalender"
	set rs = dbcom.Execute(strSQL)
			
Dim arrLank, iFirstRec, iSistRec, iFirstFalt, iSistFalt
	If Not rs.EOF Then
		arrLank = rs.getrows()
		iFirstRec = LBound(arrLank, 2)
		iSistRec = UBound(arrLank, 2)
		iFirstFalt = LBound(arrLank, 1)
		iSistFalt = UBound(arrLank, 1)
	End If

For I = iFirstRec To iSistRec
	response.write "<br>"
	For J = iFirstFalt To iSistFalt
		Response.Write arrLank(J, I) & vbcr
	Next
	response.write "<br>"
Next
```

Då ska vi se om jag lyckas plocka ut bara de delar jag behöver i min söta lilla loop ;)

Permalänk: https://www.webforum.nu/p/769874

## #8 — CatZ, 2002-09-01T13:44Z

Det fungerar inte riktigt som det ska x( @nders? hur menar du med skriva ut så kan jag starta på 1 ?

Permalänk: https://www.webforum.nu/p/769893

## #9 — @nders, 2002-09-01T13:49Z

```
for i = 1 to ubound(varArray)
    response.write varArray(i)
next
```

Någonting sånt.

Permalänk: https://www.webforum.nu/p/769894

## #10 — CatZ, 2002-09-01T13:56Z

grmbl jag har alltid varit värdelös på matte och formler :x

Permalänk: https://www.webforum.nu/p/769897

## #11 — CatZ, 2002-09-01T14:11Z

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000A)
Matrisen är fast eller tillfälligt låst.
/TMPfo0bq1rj2k.asp, line 77

Permalänk: https://www.webforum.nu/p/769910

## #12 — @nders, 2002-09-01T14:24Z

Kod?

Permalänk: https://www.webforum.nu/p/769920

## #13 — CatZ, 2002-09-01T14:30Z

Alla mina problem härrör från att jag skrivit order by **fel fältnamn** Så nu ska jag nog inte ha några problem §e

Permalänk: https://www.webforum.nu/p/769925

---

Tråden på webben: https://www.webforum.nu/amne/asp/51874-dynamisk-array