::::::::::: EmLinha na Internet

<%@ Language=VBScript %> <% Response.Expires = 0 Dim tBanner Dim p1Banner Dim p2Banner Dim p3Banner tBanner=GetTopBanner p1Banner=Get1ProductBanner p2Banner=Get2ProductBanner p3Banner=Get3ProductBanner 'Menu Dim main_menu Dim menu_proc Dim Rds Dim Rds1 Dim i Dim l_section Dim l_quiz Session("BackAddress")="pricelist.asp?p=" & Request("p") ' Menu main_menu=GetMenu menu_proc=GetMenuProc ' Login section l_section=GetLoginFrame l_quiz=GetQuiz Dim catid Dim cat Dim manid Dim man Dim prod Dim price1 Dim price2 Dim pplist Dim t Dim cnt Dim rpp Dim bcol rpp=10 Set Rds = server.CreateObject("ADODB.Recordset") Set Rds1 = server.CreateObject("ADODB.Recordset") Rds.Open "SELECT * FROM Products ORDER BY Abbreviation", Application("conStr"),1 if not Rds.EOF then Rds.MoveLast Rds.MoveFirst t=Rds.RecordCount pag=Request("p") if pag="" then pag=1 else if clng(pag)<=round(t/rpp+0.4) then cnt=rpp*clng(pag)-rpp+1 Rds.Move cnt-1 else pag=1 end if end if catid="" manid="" bcol="white" for i=1 to rpp if Rds.Fields("CategoryID")<>catid then Rds1.Open "SELECT * FROM Categories WHERE ID='" & Rds.Fields("CategoryID") & "'",Application("conStr") if not Rds1.EOF then cat=Rds1.Fields("Category") end if Rds1.Close catid=Rds.Fields("CategoryID") end if if Rds.Fields("ManufacturerID")<>manid then Rds1.Open "SELECT * FROM Manufacturers WHERE ID='" & Rds.Fields("ManufacturerID") & "'",Application("conStr") if not Rds1.EOF then man=Rds1.Fields("ManufacturerAbb") end if Rds1.Close manid=Rds.Fields("ManufacturerID") end if prod=Rds.Fields("Abbreviation") price1=FormatNumber(Rds.Fields("Price"),2,-2,-2,-2) if Now()>Rds.Fields("PromotionFrom") and Now()" prlist=prlist & "

" prlist=prlist & " " & left(prod,28) & "" prlist=prlist & "" & left(cat,18) & "" prlist=prlist & "" & price1 & " € " prlist=prlist & "" & price2 & " € " prlist=prlist & "" if bcol="e0e0eb" then bcol="white" else bcol="e0e0eb" end if cnt=cnt+1 Rds.MoveNext if rds.EOF then exit for end if next prlist=prlist & "
" if clng(pag)>1 then prlist=prlist & "" else prlist=prlist & "" end if if clng(pag)página seguinte" else prlist=prlist & "" end if end if Rds.Close Set Rds=Nothing Set Rds1=Nothing %> ::::::::::: EmLinha na Internet <%=menu_proc%> <%=main_menu%>

página anterior

	Anuncie Aqui !
	<%=tBanner%>

Anuncie Aqui !

<%=l_section%>

<%=prlist%>


Produto		Objectivo	Preço normal	Preço actual

<%=p1Banner%>

<%=p2Banner%>

<%=l_quiz%>

<%=p3Banner%>