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

Dim MyArray()

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

Eller?

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

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

:bire

oki madoki ....

cya,
PatrikB