<% 'kontrola přihlášení if session("zakaznik_id") = "" then response.clear response.redirect "zakaznik-prihlaseni.asp" end if Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik WHERE id_zakaznik = " & clng(session("zakaznik_id")) rs.Open strSQL, conn, 1, 1 Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik_adr WHERE id_zakaznik = " & clng(session("zakaznik_id")) & " AND fakturacni = 0" rs2.Open strSQL, conn, 1, 1 Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik_adr WHERE id_zakaznik = " & clng(session("zakaznik_id")) & " AND fakturacni = 1" rs3.Open strSQL, conn, 1, 1 if not rs3.eof then jmeno = rs3("jmeno") firma = rs3("firma") ulice = rs3("ulice") mesto = rs3("mesto") psc = rs3("psc") ico = rs3("ico") dic = rs3("dic") end if %>

Zákaznické centrum

<% if request("ulozeno") = "1" then %> <% end if %> <% if not request("chyba") = "" then %> <% end if %> <% rs.close rs2.close rs3.close conn.close %>