Thomas MIchel: Array mit namen aufrufen

Beitrag lesen

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)%>