|
|
 |
|
|
| |
 |
|
| |
 |
<%
'abrir conexao
set conexao = server.CreateObject("ADODB.Connection")
quantcaminho = Len(server.MapPath(".")) - 7
caminho = Mid(server.MapPath("."),1,quantcaminho) &"\Adm\Dados\Modulos.mdb"
conexao.Open "DBQ="& caminho &";DRIVER={Microsoft Access Driver (*.mdb)}"
'montando string
set reg = server.CreateObject("ADODB.Recordset")
str = "SELECT A.* FROM Prod AS A WHERE A.Divisao='"& Divisao &"' AND A.Visivel='SIM' ORDER BY A.Ordem"
reg.Open str,conexao
if not reg.EOF then
while not reg.EOF
with response
.write ""
if Divisao = "Masoneilan" then
.write " | "
else
.write " | "
end if
.write ""& reg.fields("ProdutoTipo") &" | "
.write " "
end with
'proximo
reg.MoveNext
wend
end if
'fechar
reg.Close
set reg = Nothing
conexao.Close
set conexao = Nothing
%>
|
| |
|
|
|
| |
|
|
| |
|
|
|
