% if session("xstatus") = 1 then
varLogin = session("xlogin")
else
response.redirect "ablogar.asp"
end if
%>
<%
Dim varIdentidade, strSQL, rsMostra, varEmpresa, conexaodb
varIdentidade = MID(session("xidentidade"),1,28)
varEmpresa = "fischer"
set rsMostra = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM produtos "
strSQL = strSQL & "WHERE empresa LIKE '%" & varEmpresa & "%' "
strSQL = strSQL & "ORDER BY codigo DESC"
call abreConexao
set rsMostra = conexaodb.Execute(strSQL)
%>
:. ABIM Partners