Was Du wohl haben / nutzen m�chtest ist mit dem Dictionary Objekt
machbar.  Mit normalen Variablen ist das nicht drin. Es sein denn Du
wolltest einen Array mit 1070 oder mehr Elementen einrichten was ein
bischen heftiger Overkill w�re. 

Nummer          Name
1000                    Produkt1
1050                    Produkt2
1070                    Produkt3


Erstens:  Objekt belegen  (hier mal gleich das Beispiel aus der Hilfe
abgewandelt)

  Dim d                  
  Set d = CreateObject("Scripting.Dictionary")
  d.Add "1000", "Produkt1"
  d.Add "1050", "Produkt2"
  d.Add "1070", "Produkt3"

Oder aus der Datenbank gef�llt

  d.Add rs_Produkte("ProduktNummer"), (rs_Produkte("ProduktName")

Evtl. will er ein explizites Konvertieren auf String haben (bitte
ausprobieren)

  d.Add CStrg(rs_Produkte("ProduktNummer")), (rs_Produkte("ProduktName")


Um das dann zu nutzen machst Du z.B. ein 

  Response.write "Produkt 1050 = " & D("1050")


Oder man kann die ganze Chose in einer Schleife durchlaufen. Dazu wird
das komplette Dictionary in einen Array "umgeladen" und per Schleife
durchger�delt.  Beispiel wiederum aus der Hilfe und dann leicht
abge�ndert

  a = d.Keys
  For i = 0 To d.Count-1
    Response.write a(i) & "<BR>"
  Next

Das jeweils linke (oder erste Argument beim Add) sind die Keys.  Das
rechte (oder das zweite Argument beim Add) sind die Items.  Die kannst
Du beide gleichwertig verwenden.  Obiges Beispiel k�nnte sein

  a = d.Keys
  b = d.Items
  For i = 0 To d.Count-1
    Response.write a(i) & " = " & b(i) & "<BR>"
  Next

Wobei das nat�rlich K�se ist, denn hier k�nnte ich ja genau das
Dictionary Objekt verwenden. 

  a = d.Keys
  For i = 0 To d.Count-1
    Response.write a(i) & " = " & d(a(i)) & "<BR>"
  Next

Ok wenn das zu verwirrend ist, bleib beim ersten Beispiel.

Nochwas: das Dict. Objekt ist schwer beleidigt wenn doppelte Namen
daherkommen.  Also entweder ist das von der DB her schon garantiert dass
nix doppeltes kommt. Oder Du baust ein St�ck Code ein, das Doppelte
abf�ngt.   Dazu gibt es die .Exist Methode. 

Etwa nach dem Schema

  If Not d.Exists("1050") Then
    d.Add "1050", "Produkt2"
  End If



-- 

Viele Gr��e
Hubert Daubmeier 




-----Original Message-----
From: Marco Bosshardt [mailto:[EMAIL PROTECTED]] 
Sent: Tuesday, January 08, 2002 6:17 PM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] Probleme mit Variablen


Hallo Liste

Ich habe in einer Datenbank folgende Felder

ProduktNummer, ProduktName

Ich m�chte nun in einer ASP-Datei die Daten in Variablen abf�llen.

VariableNamen = ProdukteNummer
VariableInhalt = ProdukteName

Leider komme ich nicht weiter.

Ich versuchte es mit einem Array :
ProduktNummer(rs_Produkte("ProduktNummer")) =
"(rs_Produkte('ProduktName'))"

Jedoch funktioniert das nicht, da der Array nur Ganze Zahlen in den
Klammern annimmt.

Dann versuchte ich auch noch normale Variablen zu er�ffnen:
(rs_Produkte("ProduktNummer")) = (rs_Produkte("ProduktName"))


Die Variablen sind dann in einer Schlaufe und lesen den ganzen DB-Inhalt
heraus.

Kann mir da jemand weiterhelfen?

Gruss
Marco


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

Antwort per Email an