<!--#include file="conectabase.asp"-->

<%
usuario=replace(replace(replace(replace(trim(request("CampLogin")),Chr(34),"fraude"),Chr(39),"fraude"),Chr(44),"fraude"),Chr(38),"fraude")
senha=replace(replace(replace(replace(trim(request("CampSenha")),Chr(34),"fraude"),Chr(39),"fraude"),Chr(44),"fraude"),Chr(38),"fraude")


'Dim sqllogincrt, rslogincrt
sqllogincrt = "select * from tab_correspondente where oab="&usuario&" and senha='"&senha&"'"
response.write sqllogincrt
set rslogincrt = objconexao.execute(sqllogincrt)

Session.Timeout=1200
Server.ScriptTimeOut = 999999999

if rslogincrt.eof then
		response.redirect("\login1")
else
		session("login_cod")=rslogincrt("cod")
		response.redirect("/cadastro-editar")
end if

rslogincrt.close
set rslogincrt = nothing
%>