Save this page as engine.asp

Copy and paste below this line


<%@ LANGUAGE="VBSCRIPT" %>

<%
     ' Connects and opens the text file
     ' DATA FORMAT IN TEXT FILE= "username<SPACE>password"

     Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
     Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("\path\path\path\path") & "\passwords.txt")

     ' Scan the text file to determine if the user is legal
     WHILE NOT MyTextFile.AtEndOfStream
           ' If username and password found
           IF MyTextFile.ReadLine = Request.form("username") & " " & Request.form("password") THEN
                ' Close the text file
                MyTextFile.Close
                ' Go to login success page
                Session("GoBack")=Request.ServerVariables("SCRIPT_NAME")
                Response.Redirect "inyougo.asp"
                Response.end
           END IF
     WEND

     ' Close the text file
     MyTextFile.Close
     ' Go to error page if login unsuccessful
     Session("GoBack")=Request.ServerVariables("SCRIPT_NAME")
     Response.Redirect "invalid.asp"
     Response.end

%>


End Copy and Paste Above the Line