nicht angemeldet
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