<%@language="VBScript"%> <% Response.buffer = false %> <% Response.Expires = 0 %>

záznamů

<% Server.ScriptTimeout=1000 Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zbozi_kat FROM zbozi_kat" rs2.Open strSQL, conn, 1, 1 do while not rs2.eof Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT razeni FROM zbozi_kat WHERE strom LIKE '%," & rs2("id_zbozi_kat") & "'" rs.Open strSQL, conn, 2, 3 start = 0 do while not rs.eof start = start + 1 rs("razeni") = start rs.update rs.movenext loop rs.close rs2.movenext loop rs2.close conn.close %>