Går det att skapa dynamiska objekt?

Hade du testat så hade du märkt att det går. :)

Jag får det inte att funka. Får inkompatibla typer på Doc på första stället det syns.

Set Pdf = Server.CreateObject("Persits.Pdf")
	Set Doc(sidor) = Pdf.OpenDocument(application("driver") & application("rootFolder")&"\fakturor\"& fakturaID &".pdf")
	sidor = sidor + 1
	sqlString = "Select fakturaID " &_ 
	"From fakturor Where fakturaGrupp = "& cINT(fakturaGrupp) &" And fakturaID <> "& fakturaID
	Set fakturorRS = con.execute(sqlString)
	If Not fakturorRS.EOF Then
		While not fakturorRS.EOF
			Set Doc(sidor) = Pdf.OpenDocument(application("driver") & application("rootFolder")&"\fakturor\"& fakturorRS("fakturaID") &".pdf")
		  Doc(sidor-1).AppendDocument Doc(sidor)
			sidor = sidor + 1
		  fakturorRS.MoveNext
		Wend
		Filename = Doc(sidor-1).Save( application("driver") & application("rootFolder")&"\fakturor\gruppfaktura_"& fakturaGrupp &".pdf", True ) 
		Set Pdf = Nothing : Set Doc1 = Nothing : Set Doc2 = Nothing
	End If
	fakturorRS.Close : Set fakturorRS = Nothing

Hur har du deklarerat arrayen Doc?

Jag löste det så här istället:

'Spara senaste fakturan som gruppfaktura
	Set Pdf = Server.CreateObject("Persits.Pdf")
	Set Doc = Pdf.OpenDocument(application("driver") & application("rootFolder")&"\fakturor\"& fakturaID &".pdf")
	sqlString = "Select fakturaID " &_ 
	"From fakturor Where fakturaGrupp = "& cINT(fakturaGrupp) &" And fakturaID <> "& fakturaID &" order by fakturaID ASC"
	Set fakturorRS = con.execute(sqlString)
	If Not fakturorRS.EOF Then
		While not fakturorRS.EOF
			Set Doc2 = Pdf.OpenDocument(application("driver") & application("rootFolder")&"\fakturor\"& fakturorRS("fakturaID") &".pdf")
		  Doc.AppendDocument Doc2
			Set Doc2 = Nothing
		  fakturorRS.MoveNext
		Wend
		Filename = Doc.Save( application("driver") & application("rootFolder")&"\fakturor\gruppfaktura_"& fakturaGrupp &".pdf", True ) 
		Set Pdf = Nothing : Set Doc1 = Nothing : Set Doc2 = Nothing
	End If
	fakturorRS.Close : Set fakturorRS = Nothing