Array mit namen aufrufen

[Thomas MIchel]

Hallo

ich habe ein array mit den alttexten definiert diese sollen nun anhand des bildes ausgelesen werden.

leider bekomme ich immer folgende fehlermeldung:

Laufzeitfehler in Microsoft VBScript-Fehler '800a000d'
Typen unverträglich: 'gewstift'

was ist bei der array definition falsch? (meine asp wissen ist leider beschränkt)

mfG

Thomas Michel

<%
Dim namealt
Dim array_alt(39)
array_alt(zyllaenge)="Zylindrische Länge"
array_alt(verpackt)="Stück pro Schachtel"
array_alt(tgriffl)="Länge des Quergriffes"
array_alt(swansatz)="SW des 6-kant Ansatzes"
array_alt(stiftl)="Stiftlänge innen"
array_alt(schrauben)="Für Metallschrauben M"
array_alt(stielnr)="Zuordnung Stiel zu Hammergrösse"
array_alt(slschraube)="Schlitzgrösse bei Schlitzschrauben"
array_alt(seitschn)="Seitliche Schneidenlänge"
array_alt(schaftfl)="Abmessung der flov Meissel"
array_alt(schaft8)="Schaftstärke bei Schlagwerkzeugen"
array_alt(schaft6)="Klingenstärke bei 6-kant-Klingen"
array_alt(pzschraube)="Kreuzschlitzgrösse Pozidriv"
array_alt(phschraube)="Kreuzschlitzgrösse Phillips"
array_alt(igriffl)="Grifflänge innen"
array_alt(lochgr)="Lochgrösse"
array_alt(kopflaenge)="Hammerkopflänge"
array_alt(dorndu)="Dorndurchmesser"
array_alt(klingenl)="Klingenlänge"
array_alt(inhalt)="Inhalt der Sätze"
array_alt(gewstift)="Für Gewindestifte M"
array_alt(gewichtgr)="Gewicht"
array_alt(ganzelha)="Ganze Länge Hämmer"
array_alt(ganzelsrz)="Ganze Länge Schraubenzieher"
array_alt(feilen)="Für Feilenlänge"
array_alt(ganzelkl)="Ganze Länge"
array_alt(durchm)="Durchmesser"
array_alt(dicke)="Schaufeldicke"
array_alt(breite)="Schaufelbreite"
array_alt(syver)="Symbol Aussensechskant-Schraube"
array_alt(syrund)="Symbol Rundmuttern"
array_alt(syschl)="Symbol Schlitzschraube"
array_alt(syrob)="Symbol Robertson-Schraube"
array_alt(sytorx)="Symbol Torx-Schraube"
array_alt(sypz)="Symbol Kreuzschraube Pozidriv"
array_alt(syph)="Symbol Kreuzschraube Phillips"
array_alt(syinbus)="Symbol Inbusschraube"
array_alt(sytorx1)="Symbol Torx Tamperproof"
array_alt(syph1)="Symbol Phillips Tamperproof"
array_alt(syinbus1)="Symbol Inbus Tamperproof"
namealt=LCase(right(x.Name, len(x.Name)-2))
%>
<%=array_alt(namealt)%>

[Odium]

Hallo,

<%
Dim namealt
Dim array_alt(39)
array_alt(zyllaenge)="Zylindrische Länge"

hier wird ein index erwartet... es ist kein assoziativer array...

array_alt(0) = "Zylindrische Länge"
.
.
.
array_alt(39) = "Symbol Inbus Tamperproof"

Odium

[Frank aus Ulm]

Hi, hallo

hier wird ein index erwartet... es ist kein assoziativer array...

um den gedanken fortzuführen:

[ ] du brauchst also zwei Arrays einem speicherst du den Namen des Elementes und in dem anderen mit dem selben Index den Inhalt
->> macht aber nicht viel Sinn

[ ] du benutzt das Dictionary-Objekt, dies ist dann ein assoziatives Array oder Hashtable oder ...
set myAssiArray = CreateObject("Scripting.Dictionary")
myAssiArray.Add varKey,varValue
.
.
.

aber aufpassen, daß nicht doppelt der selbe Key hinzugefügt wird ... das gibt Ärger!

Tschau, tschüß,
Frank