<% vPage="partner.asp" vTitle="Partner di Stefano Luciani, Roma" vDescription="I Nostri Clienti, Partner e Convenzioni - Stefano Luciani a Roma, Servizi di Noleggio Conducente a Roma" 'Apro RecordSet SET RS = Server.CreateObject("ADODB.Recordset") %> <%=vTitle%> "> /<%=vPage%>"> /images/<%=Application("LogoFace")%>"> /<%=vPage%>">

Clienti, Partner e Convenzioni


<%=Application("LineColor")%>;">
<% StrSql="SELECT * FROM Partner ORDER BY Ordine, Partner" RS.Open StrSql, CN, 1 RecordsPerPagina = 100 PagineVisualizzate = 10 RecordCount = 0 TOTPagine = 0 Page = Request("page") 'v_Param = "&IDCategoria=" & Request("IDCategoria") & "&Testo=" & Request("Testo") IF Page="" THEN Page = 1 Page = CInt(Page) IF RS.Eof=True OR RS.Bof=True THEN '00AA%>



Non sono presenti Partner



<%ELSE '00AA C=0 'Inizializza la paginazione Call InitPaginazione(RS) FOR i=1 to RecordsPerPagina/4 'Do While NOT RS.EOF IF Not RS.EOF THEN%>
<%ELSE C=1 Exit For END IF RS.MoveNext%> <%IF Not RS.EOF THEN%> <%ELSE C=2 Exit For END IF RS.MoveNext%> <%IF Not RS.EOF THEN%> <%ELSE C=3 Exit For END IF RS.MoveNext%> <%IF Not RS.EOF THEN%>
<%ELSE C=4 Exit For END IF RS.MoveNext NEXT%> <%Select Case C%> <%Case 1%> <%Case 2%>
<%Case 3%>
<%Case 4%>
<%End Select%>
<%IF 1<>1 THEN%>

<% Call StampaPagine() %>
<%END IF%> <%RS.close%>
<%END IF '00AA%>
Stefano Luciani, stringe accordi, convenzioni e partnership di sicuro vantaggio con uffici pubblici e privati, pubbliche amministrazioni, studi professionali, cliniche private, associazioni ed enti.

Se appartieni ad una di queste categorie, mettiti in contatto con il nostro staff e tu, il tuo ufficio, i tuoi dipendenti e/o collaboratori viaggerete con Stefano Luciani a tariffe speciali.
Torna SU
<%SET RS=Nothing CN.Close SET CN=Nothing%>