<% Line1 = "" Line2 = "" Line3 = "" Line4 = "" Addr = "Naslov" Phone_home = "Telefon doma" Phone_work = "Telefon služba" Phone_gsm = "Mobilni telefon" Fax = "Faks" EMail = "E-Mail" HomePage = "Domača stran" SourceLang = "Prevaja" 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") ' Osnovni podatki o clanu SQL = "SELECT * FROM tbl_clani WHERE UID="& id Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn, 3, 3 if not rs.BOF then rs.movefirst end if if not rs.EOF then d_addr = rs("ulica") &", "& rs("posta") &" "& rs("kraj") d_phone_home = rs("tel_doma") d_phone_work = rs("tel_sluzba") d_phone_gsm = rs("tel_gsm") d_fax = rs("fax") d_ime = rs("Ime") &" "& rs("Priimek") d_email = rs("E-Mail") d_homepage = rs("HomePage") end if %>
 <%= d_ime %> 
<%= Line1 %> <%= Addr %> <%= Line2 %> <%= d_addr %> <%= Line3 %> <%= Phone_home%> <%= Line4 %> <%= d_phone_home %> <%= Line3 %> <%= Phone_work%> <%= Line4 %> <%= d_phone_work %> <%= Line3 %> <%= Phone_gsm%> <%= Line4 %> <%= d_phone_gsm %> <%= Line1 %> <%= Fax%> <%= Line2 %> <%= d_fax %> <%= Line3 %> <%= EMail%> <%= Line4 %> <%= d_email %> <%= Line1 %> <%= HomePage %> <%= Line2 %> <%= d_homepage %> <%= Line3 %> <%= SourceLang %> <%= Line4 %>
<% ' Zapremo prejsnji recordset rs.Close set rs = nothing ' SQL za jezike in stroke SQL1 = "SELECT DISTINCT tbl_prevaja.*, sif_jeziki.JEZIK as Jez1, sif_jeziki_1.JEZIK as Jez2, sif_stroke.Stroka as Stroka " SQL1 = SQL1 & "FROM ((sif_jeziki INNER JOIN tbl_prevaja ON sif_jeziki.LID = tbl_prevaja.IDJez1) " SQL1 = SQL1 & "INNER JOIN sif_jeziki AS sif_jeziki_1 ON tbl_prevaja.IDJez2 = sif_jeziki_1.LID) " SQL1 = SQL1 & "INNER JOIN sif_stroke ON tbl_prevaja.IDStroke = sif_stroke.SID " SQL1 = SQL1 & "WHERE UID="& id & " ORDER BY tbl_prevaja.Rang ASC" set rs_1 = Conn.Execute(SQL1) if rs_1.EOF then response.write " " end if if not rs_1.BOF then rs_1.movefirst end if t_Jez1 = "" t_Jez2 = "" first = true while (NOT rs_1.EOF) if first then t_jez1 = rs_1("Jez1") t_jez2 = rs_1("Jez2") t_smer = rs_1("IDSmerPrev") t_tolmac = rs_1("Tolmac") t_sodtolmac = rs_1("SodTolmac") t_lektor = rs_1("Lektor") izpisi = true first = false response.write "
    " end if if (t_jez1 <> rs_1("Jez1")) or (t_jez2 <> rs_1("Jez2")) then t_jez1 = rs_1("Jez1") t_jez2 = rs_1("Jez2") t_smer = rs_1("IDSmerPrev") t_tolmac = rs_1("Tolmac") t_sodtolmac = rs_1("SodTolmac") t_lektor = rs_1("Lektor") izpisi = true end if if izpisi = true then response.write "

  "& rs_1("Jez1") ' smer prevajanja in ustrezna ikona if t_smer=1 then response.write " " else response.write " " end if response.write rs_1("Jez2")&"" response.write "  " if t_tolmac then response.write "tolmač, " end if if t_sodtolmac then response.write "sodni tolmač, " end if if t_lektor then response.write "lektor, " end if response.write "
    " izpisi = false end if response.write " "& rs_1("Stroka") &"," rs_1.movenext wend rs_1.Close set rs_1=nothing %>
<% conn.close set conn=nothing %>