#include file="../fpdb/openconn.inc" <% Dim strCategoria Dim Npag,PagCor Npag = 0 strCategoria=Request.QueryString("cat") 'response.write strCategoria If strCategoria = "" Then strCategoria = "Software" End If Page=CInt(Request.QueryString("page")) strSQL=strSQL&"WHERE" strSQL=strSQL&" categoria = '"&strCategoria&"'" rstUtenti.open strSQL, ConnString ,1 'apro il recorset %> Consult
 
Italia BPath Network
 
 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 %>

 
Copyright ©2000 mmgsoft.com, Inc. All rights reserved.