[tri]

Jag får ett felmeddelande om att den inte hittar filen. Någon som kan se felet. Filen finns på servern.

Microsoft VBScript runtime error '800a0035'

File not found

checklogin.asp, line 12


001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026

<%
path = Server.MapPath("/")
fil = path & "losen.txt"
Dim anvnamn
Dim losen

gotname = Request.Form ("anvnamn")
gotpass = Request.Form ("password")
granted = false

Set MittTxtObj = Server.CreateObject ("Scripting.FileSystemObject")
Set MinFil=MittTxtObj.OpenTextFile (fil,1,false)

While (MinFil.AtEndOfStream=false)

anvnamn = MinFil.ReadLine
losen = MinFil.ReadLine

If (anvnamn=gotname) And (losen=gotpass) Then granted = true

Wend

If granted = true Then
Else Response.Redirect ("fel.htm")
End If
%>