Microsoft VBScript runtime error '800a0009'
Kati
- asp.net
Hallo,
Ich habe eine Mitahrbörse für das Intranet einer Firma programmiert.Getestet habe ich die Seiten immer auf meinem eigenen Pc und dort liefen sie auch einwandfrei.
Nun habe ich das Web auf den Web Server der Firma übertragen und meine Seite funktionieren nicht mehr. Ich bekomme die Fehlermeldung
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
Das ist mein Quelltext:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Benutzerübersicht</title>
<style>
<!--
h1 { font-family: Arial; font-size: 10pt; color: #FF0000; margin-top: 0;
margin-bottom: 0 }
h2 { font-family: Arial; font-size: 8pt; color: #FF0000; margin-top: 0;
margin-bottom: 0 }
h3 { font-family: Arial; font-size: 10pt; color: #FFFFFF; margin-top: 0;
margin-bottom: 0 }
h4 { font-family: Arial; font-size: 8pt; margin-top: 0; margin-bottom: 0 }
table { border-style: solid; border-width: 0px }
b { font-family: Arial; font-size: 10pt; font-weight: bold }
img { border-style: solid; border-width: 0px }
-->
</style>
</head>
<script type="text/javascript">
</script>
<body>
<%'@ Language=VBScript %>
<% Response.Expires = 0
Options.Execute
'Deklaration der Variablen für das Auslesen des Benutzernamens und speichern der SQL Anweisung
Dim strUserName
Dim ArrUser
Dim strLogged_In_User
Dim SQL
'Variablen für die Buttonabfrage anlegen
Dim butt_ausw
Dim butt_loesch
Dim butt_neu
Dim butt_bearb
Dim strTab_abfr
Dim box_check
'Deklaration der Übergabevariablen
Dim var_check
Dim var_moeglich
Dim strmoeglich
'Auslesen des NT-Benutzernamens
strUserName = Request.ServerVariables("LOGON_USER")
ArrUser = Split(strUserName,"", -1, 1)
strLogged_In_User = ArrUser(1)
'Herstellen einer Verbindung zur Datenbank über eine *.udl-Datei
strPath = Server.MapPath("DB_Verbindung/mitfahr.udl")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "file name=" & strPath
Set rs = Server.CreateObject("ADODB.RecordSet")
strQuery = "SELECT 0"
rs.Open strQuery, conn
'Auslesen aller Datensätze aus der Tabelle Gebote die der eingeloggte User abgegeben hat
SQL="Select * from Gebote where Gebote.Benutzername='"&strLogged_In_User&"' "
set rs=conn.execute(SQL)
Nun Zeigt es mir beim Auslesen des LOGON_Users dieses Fehler in Zeile 55 an. Was ist falsch an dem Array?
Hoffe ihr könnt mir helfen!
MfG Kati
Doppelposting.
Hallo
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
Kurze Info: Die Leute hier mögen es nicht so sehr wenn man die selbe Frage in kurzer Zeit mehrmal stellt. Wenn die Frage vorher schon nicht beantwortet wurde war das sicher nicht absicht und es wusste niemand weiter. Dann hilft es vielleicht 1 bis 2 Tage zu warten da sich dann andere Personen im Forum aufhalten die dir vielleicht helfen können.
Nun zu deinem Problem:
Habe das gefunden nachdem ich auf der Microsoft Page nach dieser Fehlernummer gesucht hab. Vielleicht nützt das was...
http://support.microsoft.com/default.aspx?scid=kb;en-us;831108
GruzZ
mzah_