<%@ LANGUAGE="VBSCRIPT"%>
<% response.buffer = true %>
<%
'------------------conexao business---------------
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConSQLBus
'-----------------declarar as variaveis-------------------
Dim Conexao
Dim SQL, LerPag
Dim cod : cod = request.querystring("cod")
cod = replace(cod, "/", "")
if cod = "" then
cod = 1557
end if
'-------------------seleciona tudo tb Empresas e Paginas------------------------
SQL = "SELECT p.*, e.* FROM Empresas as e LEFT JOIN Paginas AS p ON e.codigo = p.codemp WHERE e.Codigo=" & cod
set LerPag = conexao.execute (SQL)
on error resume next
%>
SERVIÇOS
<%
Conexao.close
set Conexao = nothing%>