<%@ Language=VBScript %> <% Session("Cat")= CInt(Request.QueryString("Categoria")) Param = Request.QueryString("Param") Data = Request.QueryString("Data") if (request("pagina")<>"") then Session("pagina") = cint(request("pagina")) else session("pagina") = 1 end if %> <% Dim dia_ext(7) dia_ext(1)="Domingo" dia_ext(2)="Segunda-Feira" dia_ext(3)="Terça-Feira" dia_ext(4)="Quarta-Feira" dia_ext(5)="Quinta-Feira" dia_ext(6)="Sexta-Feira" dia_ext(7)="Sabado" Dim Opcao Opcao = request.querystring("opcao") if (opcao = "") then Opcao = "index" end if %> Costa Oeste Informática - A sua melhor Opção
 
 
   www.coionline.com.br                                  Medianeira, <%= dia_ext(weekday(date))%> - <%= date()%>.  
 
-

Microcomputadores
 
 
 
 
 
 
 
 
<% Dim Codigo1, Codigo2, Codigo3, Cogido4 Dim Descricao, Descricao2, Preco, titulo,Foto Dim oConn, sConn, sqlstr Set oConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") cnpath="DBQ=" & server.mappath("coionline.mdb") sConn = "DRIVER={Microsoft Access Driver (*.mdb)};"& cnpath oConn.Open(sConn) Sqlstr = "Select * from Produtos where codigocategoria =" & Session("cat") RS.Open sqlstr, oConn, 3,3 %> <% rs.pagesize = 40 if (request("pagina")<>"") then pagina = cint(request("pagina")) else pagina = 1 end if %>
-
<% if rs.Pagecount > 1 then %> <%if pagina <> 1 then %> <%end if j=1 do while j <= rs.PageCount if pagina = j then %> <% else %> <% end if j=j+1 loop %> <% if pagina <> rs.Pagecount then %> <% end if else %>
&Categoria=<%=Session("Cat")%>">Anterior |<%=j%>&pagina=<%=j%>"><%=j%>| &Categoria=<%=Session("Cat")%>">Próximo
<% end if 'rs.close %>
Anterior | | Próximo
-
Descrição Preço R$
<%'rs.close 'rs.open sql,conn,3,3 rs.Absolutepage = Session("pagina") if not (rs.eof and rs.bof) then i = 0 do while (i<=40 and not rs.eof) i = i + 1 %> <% rs.movenext loop end if %>
<% response.write rs("Descricao")%> <% response.write(FormatCurrency(rs("prvenda"),2))%>
-
* A Disponibilidade e os Preços podem ser alterados sem aviso prévio