<% set conn=server.createobject("adodb.connection") DSNtemp = "DRIVER={Microsoft Access Driver (*.mdb)}; PWD=SuperUser;" DSNtemp = DSNtemp & "DBQ="& db_path & "/clani.mdb" conn.Open DSNtemp ID = Request.QueryString("ID") SQL = "SELECT DISTINCT * FROM tbl_clani WHERE Priimek like '"& ID &"%' AND Arhiv = false AND IzjavaInet=true ORDER BY Priimek" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn, 3, 3 %> <% if rs.eof then response.write "

Prevajalec ne obstaja!" else all_count = 0 rs.movefirst while NOT rs.EOF all_count = all_count + 1 response.write "

" rs.movenext wend end if rs.close set rs=nothing conn.close set conn=nothing %>
<%= ID %> ( <%= rs.RecordCount %> members )
"& rs("PRIIMEK") &" "& rs("IME")&"