<% id2=Request("id2") sql "select * from news" if id2<>"" then sql "select * from news where serviciu="&id2 & " and (news_lang=1 or news_lang=3 )" vv=0 if id2="" then vv2=" - toate lucrarile" vv=7 end if if rs.RecordCount<1 then con.Close Response.Redirect "index.html" end if items=7 nrpag=1 pag=Request("pag") if pag="" then pag=1 else pag=Int(pag) end if nrrec=rs.RecordCount nrpag=Int(nrrec/items) if nrrec mod items<>0 then nrpag=nrpag+1 %>
 
EXPERIENTA  <%=vv2%> <%if vv=0 then%> <%if id2=1 then%> instalatii termice <%end if%> <%if id2=2 then%> instalatii de gaz <%end if%> <%if id2=3 then%> apa si canalizare <%end if%> <%end if%>
Instalatii termice
Instalatii de gaz
Apa si canalizare
Adresa :
Str. Florea Gheorghe, nr. 17, sector 5, Bucuresti
Telefoane :
+40 21 - 450.33.09.
+40 21 - 450.15.03.
+40 0745 - 75.70.16
+40 0744 - 37.74.63.
 

<% rs.Move (pag-1)*items for i=1 to items if not rs.Eof then %> <% if not rs.Eof then rs.MoveNext else i=items+1 end if end if next %>
<%if rs("news_picture")<>"" then %> " WIDTH="80" BORDER="1"> <% else %> <% end if %>
<%=rs("news_title")%>

<%=rs("news_body")%> ...
 
 
page: <% if pag=1 then else %> <%end if%> <% for i=1 to nrpag if pag=i then %> <%=i%> <% if i=nrpag then else %> - <%end if%> <% else %> <%=i%> <% end if next %> <% if pag=nrpag then else %> <%end if%>
 © AGV INSTAL TEAM 2003