Quality

#include file="../fpdb/openconn.inc" <% Dim strCategoria Dim Npag,PagCor Npag = 0 strCategoria=Request.QueryString("cat") response.write strCategoria If strCategoria = "" Then strCategoria = "Laboratory Instrument" End If Page=CInt(Request.QueryString("page")) strSQL=strSQL&"WHERE" strSQL=strSQL&" categoria = '"&strCategoria&"'" rstUtenti.open strSQL, ConnString ,1 'apro il recorset %>


	Products - Suggestions - Search - Register - About TechnoGate - Advertising - announcements - Contact us - Opportunities

<% if rstUtenti.EOF then ' Nessun record %>

Nessun record trovato

<% Else if Page<=0 Then Page=1 End If if Page>rstUtenti.PageCount Then Page=rstUtenti.PageCount End If rstUtenti.AbsolutePage = Page %>

<% recCount = 0 do if rstUtenti.EOF then exit do if recCount >= rstUtenti.PageSize then exit do %> <% recCount=recCount+1 rstUtenti.movenext loop End If %>

*Web Address*	*Description*	*E-Mail Address*
"><%=rstUtenti.fields("nome")%>	<%=rstUtenti.fields("Description")%>	"><%=rstUtenti.fields("Email")%>

<% PagCor=Page do if Npag = rstUtenti.PageCount then exit do Npag=Npag+1 If Npag = PagCor Then response.write(Npag) Else%> <%response.write(Npag)%> <%End if loop %>