<% response.Buffer = True %> :::Tecnobeer::: ideazione e realizzazione di colonne modulari in acciaio Inox per la spillatura automatica delle bevande. Ha sede a Tezze sul Brenta (VI) birra
  <<<<<


<% xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/tb.mdb") & ";" set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str select case request("az") case ""%> <% set rs = conn.execute("Select * from referenze ") %> <%n = 1 do while not rs.eof%> <%n = n + 1 if n > 3 then response.write "" n = 1 end if rs.movenext loop rs.close set rs = nothing %>
<%case "dettaglio" if request("id")="" then id = 0 else id = request("id") end if set rs = conn.execute("Select * from referenze where id = "&id) do while not rs.eof %>
" alt="<%=rs("titolo")%>">
<%=rs("titolo")%>
Dettaglio
<%=rs("titolo_eng")%>
<% rs.movenext loop rs.close set rs = nothing end select conn.close set conn = nothing %>