<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Galerua Art Now <% '|___________|___________|___________|___________|___________|___________| '-- Definições ----------------------------------------------------------- Dim iniOUT, pthOUT iniOUT = request("nt") pthOUT = request("pth") dim arrayImagem() ReDim Preserve arrayImagem(0) dim arrayId() ReDim Preserve arrayId(0) dim arrayCodigo() ReDim Preserve arrayCodigo(0) '|___________|___________|___________|___________|___________|___________| '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '-- Conexão à bd --------------------------------------------------------- dim Myconn, path, Conn, SQL, Recorde Set MyConn = Server.CreateObject("ADODB.connection") Set Recorde = Server.CreateObject("ADODB.recordset") path = Server.MapPath("app_data/ANDB.mdb") Conn = "PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" & path '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ':._.:.__.:.__.:.__.:.__.:.__.:.__.:.__.:.__.:.__.:.__.:.__.:.__.:.__.:._. '-- Vai fazer arrays com a info sacada ----------------------------------- contadorDentro=1 MyConn.Open(Conn) if pthOUT="Vendidos" then SQL = "SELECT * FROM Produtos WHERE Prod_Area LIKE '"&pthOUT&"' ORDER BY Prod_Ordem DESC;" 'Os vendidos aparecem do maior para o menor else SQL = "SELECT * FROM Produtos WHERE Prod_Area LIKE '"&pthOUT&"' ORDER BY Prod_Ordem ASC;" 'Os outros é do menor para o maior end if Set Recorde = MyConn.Execute(SQL) While NOT Recorde.EOF tb_Imagem = Recorde("Prod_Imagem") tb_Id = Recorde("Prod_Id") tb_Codigo = Recorde("Prod_Referencia") if (cInt(contadorDentro)>=cInt(iniOUT)) AND (cInt(contadorDentro) <%if 1<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 2<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 3<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 4<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%>
<%'=arrayCodigo(1)%>
Vendidos
<%'=arrayCodigo(2)%>
Vendidos
<%'=arrayCodigo(3)%>
Vendidos
<%'=arrayCodigo(4)%>
Vendidos
<%if 5<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 6<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 7<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 8<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%>
<%'=arrayCodigo(5)%>
Vendidos
<%'=arrayCodigo(6)%>
Vendidos
<%'=arrayCodigo(7)%>
Vendidos
<%'=arrayCodigo(8)%>
Vendidos
<%if 9<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 10<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 11<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 12<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%>
<%'=arrayCodigo(9)%>
Vendidos
<%'=arrayCodigo(10)%>
Vendidos
<%'=arrayCodigo(11)%>
Vendidos
<%'=arrayCodigo(12)%>
Vendidos
<%if 13<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 14<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 15<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 16<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%>
<%'=arrayCodigo(13)%>
Vendidos
<%'=arrayCodigo(14)%>
Vendidos
<%'=arrayCodigo(15)%>
Vendidos
<%'=arrayCodigo(16)%>
Vendidos
<%if 17<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 18<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 19<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%> <%if 20<=cInt(UBound(arrayImagem)) then%> <%else%> <%end if%>
<%'=arrayCodigo(17)%>
Vendidos
<%'=arrayCodigo(18)%>
Vendidos
<%'=arrayCodigo(19)%>
Vendidos
<%'=arrayCodigo(20)%>
Vendidos
COLECÇÃO / <%if pthOUT="Vendidos" then%> VENDIDOS <%elseif pthOUT="Mobiliario" then%> MOBILIÁRIO <%elseif pthOUT="Iluminacao" then%> ILUMINAÇÃO <%elseif pthOUT="Outros" then%> OUTROS <%elseif pthOUT="Pecas" then%> PEÇAS <%else%> <%end if%>
<%if iniOUT>1 then%> Página seguinte <%else%> Página anterior (desactivada) <%end if%>
<%if iniOUT+20 < contadorDentro then%> Página seguinte <%else%> Página anterior (desactivada) <%end if%>