<%
pippo2 = false
strPath = Server.Mappath("passwd.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1)
Do While Not objApriFile.AtEndofStream
pippo = objApriFile.ReadLine
if InStr(pippo,request.form("user")) > 0 and InStr(pippo,request.form("password")) > 0 and request.form("user") <> "" then
pippo2 = true
%>
AUPI
<%
break
end if
Loop
objApriFile.close
Set objApriFile = Nothing
Set objFileSy = Nothing
if not pippo2 then
response.Redirect("login.asp")
end if
%>