---
title: "Går det att skapa dynamiska objekt?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/154466-går-det-att-skapa-dynamiska-objekt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2006-12-03T19:31:00.000Z"
updated: "2006-12-03T20:16:35.000Z"
replies: 4
views: 309
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/154466-går-det-att-skapa-dynamiska-objekt"
---

# Går det att skapa dynamiska objekt?

## #1 — Addeladde, 2006-12-03T19:31Z

Typ så här?

```
For i = 0 to 5 
  set obj(i) = server.Create......
Next
```

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

## #2 — Erik Juhlin, 2006-12-03T19:34Z

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

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

## #3 — Addeladde, 2006-12-03T19:36Z

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
```

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

## #4 — emission, 2006-12-03T20:10Z

Hur har du deklarerat arrayen Doc?

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

## #5 — Addeladde, 2006-12-03T20:16Z

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
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/154466-går-det-att-skapa-dynamiska-objekt