---
title: "Hur gör man om man inte vet hur många \"poster\" en array kommer innehålla?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/71191-hur-gör-man-om-man-inte-vet-hur-många-poster-en-array-kommer-innehålla"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "trexter"
published: "2003-03-15T20:01:51.000Z"
updated: "2003-03-15T21:42:12.000Z"
replies: 4
views: 259
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/71191-hur-gör-man-om-man-inte-vet-hur-många-poster-en-array-kommer-innehålla"
---

# Hur gör man om man inte vet hur många "poster" en array kommer innehålla?

## #1 — trexter, 2003-03-15T20:01Z

Säg att jag t ex sparar felmeddelande i en array när fel uppstår. Hur ska jag då dimensionera array:en och hur ska jag lägga till innehåll? Jag vet ju inte vilka felmeddelanden som ska finnas i den, från början.

 :)

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

## #2 — Sebbe, 2003-03-15T21:12Z

```
Dim MyArray()

MyArray = array(Err.Number,Err.Description,Err.Source)
```

Eller?

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

## #3 — PatrikB, 2003-03-15T21:25Z

ngt sådant hära kanske .... allt beroende på "hur" du loggar dina fel **UPPDATERAD**

```
<%
Option Explicit

Dim varyErrors
Dim intErrIndexes
Dim objConn
Dim objFSO
Dim objFile

Const g_date = 0
Const g_errNum = 1
Const g_errDesc = 2
Const g_errSrc = 3

ReDim varyErrors(3,-1)	'## -- tom array --

'## -- ngn kod som ger felmeddelande --
On Error Resume Next

Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open "ShIT"
	
'## -- logga felmeddelandet --
If err.Number <> 0 Then

	intErrIndexes = UBound(varyErrors,2) + 1
	ReDim Preserve varyErrors(3,intErrIndexes)

	varyErrors(g_date,intErrIndexes) = Now()
	varyErrors(g_errNum,intErrIndexes) = err.Number
	varyErrors(g_errDesc,intErrIndexes) = err.Description
	varyErrors(g_errSrc,intErrIndexes) = err.Source

	err.Clear
End If

On Error GoTo 0

'## -- ngn kod som ger felmeddelande --
On Error Resume Next

Set objFSO = Server.CreateObject("Script.FileSystemObject")
	Set objFile = objFSO.OpenTextFile("C:\shit.txt")
	
'## -- logga felmeddelandet --
If err.Number <> 0 Then

	intErrIndexes = UBound(varyErrors,2) + 1
	ReDim Preserve varyErrors(3,intErrIndexes)

	varyErrors(g_date,intErrIndexes) = Now()
	varyErrors(g_errNum,intErrIndexes) = err.Number
	varyErrors(g_errDesc,intErrIndexes) = err.Description
	varyErrors(g_errSrc,intErrIndexes) = err.Source

	err.Clear
End If

On Error GoTo 0

If IsArray(varyErrors) Then
	Response.Write "<p>An error Occured!.</p>"

	Dim n
	For N = 0 TO UBound(varyErrors,2)
		Response.Write "<p>Date: " & varyErrors(g_date,N) & "<br>"
		Response.Write "Number: " & varyErrors(g_errNum,N) & "<br>"
		Response.Write "Description: " & varyErrors(g_errDesc,N) & "<br>"
		Response.Write "Source: " & varyErrors(g_errSrc,N) & "</p>"
	Next
End If
%>
```

cya,
PatrikB

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

## #4 — trexter, 2003-03-15T21:41Z

Det verkar vara någonting i den stilen jag var ute efter.
Danke!

   :bire

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

## #5 — PatrikB, 2003-03-15T21:42Z

oki madoki .... 

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/71191-hur-gör-man-om-man-inte-vet-hur-många-poster-en-array-kommer-innehålla