%
response.expires = 0
Dim varLogin, varCodcli, varCadastro
varCadastro = session("xcadastro")
if session("xstatus") = 1 then
varLogin = session("xlogin")
varCodcli = TRIM(session("xcodcliente"))
else
response.redirect "../registro/cadastro.asp"
end if
%>
<%
DIM strTot, rsTot, conexaodb
strTot = "SELECT COUNT(codigo) AS Totemp FROM anuncio "
strTot = strTot & "WHERE codcliente = '" & varCodcli & "' "
call abreConexao
set rsTot = conexaodb.Execute(strTot)
%>
<%
if rsTot("Totemp") >= 5 AND varLogin <> "abim200000" then
response.redirect "lotado.asp"
end if
%>
<%
Dim rsNeg, strSQL
set rsNeg = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM negocio ORDER BY codigo ASC"
set rsNeg = conexaodb.Execute(strSQL)
Dim rsSegin, strSQL1
set rsSegin = Server.CreateObject("ADODB.Recordset")
strSQL1 = "SELECT * FROM segmento ORDER BY codigo ASC"
set rsSegin = conexaodb.Execute(strSQL1)
%>