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

Står ju svart på vitt, filen hittades inte. Antagligen har du angivit fel sökväg.

Server.MapPath("/") utgår från rooten.

Börja med följande test:

och använd gärna [ C O D E ] när du postar kod

testa med server.mappath("./") istället så utgår du från den katalog som scriptet körs i

Det som är konstigt är att koden fungerar på ett webhotell men inte på ett annat.

Jag gjorde som Jonny skrev och fick detta meddelandet

Felaktig sökväg är: E:\WWW.ROOT\THOMAS\wwwrootlosen.txt

Betyder det att jag har lagt dokumentet i fel mapp på servern? E:\ är väl på min dator?

Verkar helt enkelt vara ett missat \ ? Testa att lägga till ett precis innan losen.txt. E:\ betyder E:\ på servern där skriptet körs, inte datorn du sitter framför (när de inte sammanfaller, självklart).

Ändra
fil = path & "losen.txt"
Till
fil = path & "\losen.txt"

Precis som Clarence skrev.

Det fungerar tyvärr inte.

Pröva använd dubbla backspace...