<%
End Sub
' Writes the copyright message
Sub HtmlCopyright()
%>
<%
End Sub
' Writes the stylesheet
Sub HtmlStyle()
%>
<%
End Sub %>
<%
' Writes the javascript code
Sub HtmlJavaScript()
%>
<%
End Sub
Sub Login()
If session("command") = "Login" Then
Dim rsValida
Dim conexaodb
Dim strValida
Set conexaodb = Server.CreateObject("ADODB.Connection")
conexaodb.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=s:\home\estacaodesigngrafico\dados\webftp.mdb"
conexaodb.Open
set rsValida = Server.CreateObject("ADODB.Recordset")
strValida = "SELECT * FROM usuarios "
strValida = strValida & "WHERE login = '" & session("login") & "' "
strValida = strValida & " And senha = '" & session("senha") & "' "
set rsValida = conexaodb.Execute(strValida)
if not rsValida.eof then
Session(wexId & "Login") = true
session("pasta") = rsValida("pasta")
session("permissao") = rsValida("permissao")
Exit Sub
Else
wexMessage = "Usuário ou senha inválido!"
response.Redirect "../index.htm"
End If
End If
HtmlHeader appName
If(wexMessage<>"") Then Response.Write "_"
%>
