<%@language="VBScript"%> <% Response.buffer = false %> <% Response.Expires = 0 %> <% Server.ScriptTimeout = 900 function gen_odkaz(nazev) text3 = nazev %> <% end function set f = server.createobject("scripting.filesystemobject") Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT odkaz, foto_pocet, id_zbozi FROM zbozi WHERE id_zbozi > 0 AND id_zbozi <= 100000 AND odkaz LIKE '%)%' ORDER BY id_zbozi" rs.Open strSQL, conn, 1, 3 'response.write rs.recordcount & "

" 'do while not rs.eof 'odkaz_stary = rs("odkaz") 'odkaz_novy = gen_odkaz(rs("odkaz")) 'response.write odkaz_stary & " / " & "" & odkaz_novy & "
" 'rs.movenext 'loop 'response.end do while not rs.eof start3 = start3 + 1 'přejmenování zboží odkaz_stary = rs("odkaz") odkaz_novy = gen_odkaz(rs("odkaz")) 'response.write odkaz_stary & " / " & odkaz_novy 'response.end rs("odkaz") = odkaz_novy rs.update 'přejmenování fotografií odkaz_stary_obr = "../obr_zbozi/" & session("server") & "/" & odkaz_stary odkaz_novy_obr = "../obr_zbozi/" & session("server") & "/" & odkaz_novy odkaz_stary_obr_smazano = "../obr_zbozi/" & session("server") & "/smazano-" & odkaz_stary for start = 1 to rs("foto_pocet") start2 = start2 + 1 if start = 1 then if f.fileexists(Server.MapPath(odkaz_stary_obr & ".jpg")) = true then if f.fileexists(Server.MapPath(odkaz_novy_obr & ".jpg")) = false then f.movefile Server.MapPath(odkaz_stary_obr & ".jpg"), Server.MapPath(odkaz_novy_obr & ".jpg") else f.movefile Server.MapPath(odkaz_stary_obr & ".jpg"), Server.MapPath(odkaz_stary_obr_smazano & ".jpg") end if end if cislo = "" else cislo = start end if if f.fileexists(Server.MapPath(odkaz_stary_obr & "-m" & cislo & ".jpg")) = true then if f.fileexists(Server.MapPath(odkaz_novy_obr & "-m" & cislo & ".jpg")) = false then f.movefile Server.MapPath(odkaz_stary_obr & "-m" & cislo & ".jpg"), Server.MapPath(odkaz_novy_obr & "-m" & cislo & ".jpg") else f.movefile Server.MapPath(odkaz_stary_obr & "-m" & cislo & ".jpg"), Server.MapPath(odkaz_stary_obr_smazano & "-m" & cislo & ".jpg") end if end if if f.fileexists(Server.MapPath(odkaz_stary_obr & "-v" & cislo & ".jpg")) = true then if f.fileexists(Server.MapPath(odkaz_novy_obr & "-v" & cislo & ".jpg")) = false then f.movefile Server.MapPath(odkaz_stary_obr & "-v" & cislo & ".jpg"), Server.MapPath(odkaz_novy_obr & "-v" & cislo & ".jpg") else f.movefile Server.MapPath(odkaz_stary_obr & "-v" & cislo & ".jpg"), Server.MapPath(odkaz_stary_obr_smazano & "-v" & cislo & ".jpg") end if end if if f.fileexists(Server.MapPath(odkaz_stary_obr & "-kasa.jpg")) = true then if f.fileexists(Server.MapPath(odkaz_novy_obr & "-kasa.jpg")) = false then f.movefile Server.MapPath(odkaz_stary_obr & "-kasa.jpg"), Server.MapPath(odkaz_novy_obr & "-kasa.jpg") else f.movefile Server.MapPath(odkaz_stary_obr & "-kasa.jpg"), Server.MapPath(odkaz_stary_obr_smazano & "-kasa.jpg") end if end if if f.fileexists(Server.MapPath(odkaz_stary_obr & "-bez-vodoznaku" & cislo & ".jpg")) = true then if f.fileexists(Server.MapPath(odkaz_novy_obr & "-bez-vodoznaku" & cislo & ".jpg")) = false then f.movefile Server.MapPath(odkaz_stary_obr & "-bez-vodoznaku" & cislo & ".jpg"), Server.MapPath(odkaz_novy_obr & "-bez-vodoznaku" & cislo & ".jpg") else f.movefile Server.MapPath(odkaz_stary_obr & "-bez-vodoznaku" & cislo & ".jpg"), Server.MapPath(odkaz_stary_obr_smazano & "-bez-vodoznaku" & cislo & ".jpg") end if end if next response.write start3 & " - " & rs("id_zbozi") & ", " & odkaz_stary & ", " & odkaz_novy & "
" rs.movenext loop rs.close conn.close %>