Zaměstanci odboru

<% REF=Request.QueryString("idodb") 'Naetení tabulky referátu fp_sQry2 = "select * from sez_odbor where ID=" + REF REF=REF+0 'nový tel. seznam s jinými indexy set fp_rs2 = CreateObject("ADODB.Recordset") fp_rs2.Open fp_sQry2, Conn If Err.Description <> "" Then Response.Write "Databazova chyba : " + Err.Description + "" End If REFT=fp_rs2("nazev") & "" ODK=fp_rs2("ODK_VS") & "" ODK_AKT=fp_rs2("ODK_AKT") & "" REF_ZKR=fp_rs2("zkratka") & "" REF_OS=fp_rs2("os") & "" REF_JEODBOR=fp_rs2("odbor") fp_rs2.Close set fp_rs2 = Nothing 'Naetení tabulky oddilení fp_sQry2 = "select * from cat where owner=" + cstr(REF) + " order by pos,caption" set fp_rs2 = CreateObject("ADODB.Recordset") fp_rs2.Open fp_sQry2, MyConnK If Err.Description <> "" Then Response.Write "Databazova chyba : " + Err.Description + "" End If function convertfromiso(istr) For i=1 To Len(istr) if mid(istr,i,1)="ą" then istr=mid(istr,1,i-1)+"š"+mid(istr,i+1) if mid(istr,i,1)="ľ" then istr=mid(istr,1,i-1)+"ž"+mid(istr,i+1) if mid(istr,i,1)="»" then istr=mid(istr,1,i-1)+"ť"+mid(istr,i+1) if mid(istr,i,1)="©" then istr=mid(istr,1,i-1)+"Š"+mid(istr,i+1) if mid(istr,i,1)="®" then istr=mid(istr,1,i-1)+"Ž"+mid(istr,i+1) if mid(istr,i,1)="«" then istr=mid(istr,1,i-1)+"Ť"+mid(istr,i+1) Next convertfromiso=istr end function function converttoiso(istr) For i=1 To Len(istr) if mid(istr,i,1)="š" then istr=mid(istr,1,i-1)+"ą"+mid(istr,i+1) if mid(istr,i,1)="ž" then istr=mid(istr,1,i-1)+"ľ"+mid(istr,i+1) if mid(istr,i,1)="ť" then istr=mid(istr,1,i-1)+"«"+mid(istr,i+1) if mid(istr,i,1)="Š" then istr=mid(istr,1,i-1)+"©"+mid(istr,i+1) if mid(istr,i,1)="Ž" then istr=mid(istr,1,i-1)+"®"+mid(istr,i+1) if mid(istr,i,1)="Ť" then istr=mid(istr,1,i-1)+"«"+mid(istr,i+1) Next converttoiso=istr end function %>

<%Response.Write (REFT&"")%>

<% PRVNI=true Do Until fp_rs2.EOF 'Naetení tabulky osob fp_sQry3 = "select * from items where items.cat=" + CStr(fp_rs2("idx")) + " order by pos,data1" set fp_rs3 = CreateObject("ADODB.Recordset") fp_rs3.Open fp_sQry3, MyConnK If Err.Description <> "" Then Response.Write "Databazova chyba : " + Err.Description + "" End If %> <% PRVNI=false %> <% Do Until fp_rs3.EOF %> <% fp_rs3.MoveNext Loop fp_rs3.Close set fp_rs3 = Nothing fp_rs2.MoveNext Loop fp_rs2.Close set fp_rs2 = Nothing %>
  <% If PRVNI Then Response.Write "

Č. kanc." Else Response.Write " " End If%>

<% If PRVNI Then Response.Write "

Telefon" Else Response.Write " " End If %>

<%Response.Write convertfromiso(cstr(fp_rs2("caption")))%>

 

  <% If fp_rs3("data5") & "" <> "" Then %>"><% End If Response.Write convertfromiso(fp_rs3("data1"))%> <%Response.Write convertfromiso(fp_rs3("data2")) If Trim(fp_rs3("data3") & "") <> "" Then Response.Write ", "&CStr(fp_rs3("data3")) End If If Trim(fp_rs3("data4") & "") <> "" Then Response.Write ", "&CStr(fp_rs3("data4")) End If If Trim(fp_rs3("data5") & "") <> "" Then %><% End If %>

<%Response.Write convertfromiso(fp_rs3("descr"))%>

<%Response.Write fp_rs3("data6")%>

<% If fp_rs3("data8") & "" = "" Then Response.Write " " Else Response.Write fp_rs3("data8") End If %>

Zpět