<%
dim from_form
dim form_check
dim user
dim pass
dim filepath
%>
<% form_check = Request("from_form") %>
<% user = Request("user") %>
<% pass = Request("password") %>
<% filepath = "clients/" &user & pass & "/base.asp" %>
<%
if form_check = "ok" and user <>"" then
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists( Server.MapPath( filepath ) ) Then
Response.redirect("clients/" &user &pass & "/base.asp" & "?form=ok&u="&user)
Else
Response.redirect("unknown.html")
End If
else
Response.redirect("../")
end if
%>