<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload



For each file In mySmartUpload.Files
	start = start + 1
	If not file.IsMissing Then
		if not lcase(file.fileext) = "jpg" and not lcase(file.fileext) = "gif" and not lcase(file.fileext) = "swf" then
			chyba = chyba & "Obrázek " & start & " nemá správný formát JPG, GIF nebo Flash" & "\n"
		else
			set f = server.createobject("scripting.filesystemobject")
			'smazání starého baneru
			cesta = Server.MapPath("../data_shopy/baner_uvod/" & session("server") & "/") & "\"
			if f.fileexists(cesta & start & "." & mySmartUpload.Form("pripona" & start).values) = true then
				f.deletefile (cesta & start & "." & mySmartUpload.Form("pripona" & start).values), true
			end if
			'uložení nového baneru
			file.SaveAs(cesta & start & "." & lcase(file.fileext))
			'uložení přípony
			Set rs = CreateObject("ADODB.RecordSet")
			strSQL = "SELECT pripona FROM reklama_uvod WHERE id_reklama_uvod = " & start
			rs.Open strSQL, conn, 2, 3
			rs("pripona") = lcase(file.fileext)
			rs.update
			rs.close
		end if
	End If
Next



'uložení údajů do databáze
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM reklama_uvod ORDER BY id_reklama_uvod"
rs.Open strSQL, conn, 2, 3
do while not rs.eof
	'generování odkazu
	text3 = mySmartUpload.Form("nazev" & rs("id_reklama_uvod")).values
 %>	<!--#include file="inc/gen-odkaz.asp" -->
<% 

	rs("nazev") = mySmartUpload.Form("nazev" & rs("id_reklama_uvod")).values
	rs("odkaz") = gen_odkaz & "-" & rs("id_reklama_uvod") & "_uv"
	if mySmartUpload.Form("zobrazit" & rs("id_reklama_uvod")).values = "1" then rs("zobrazit") = true else rs("zobrazit") = false end if
	rs("zbozi") = mySmartUpload.Form("zbozi" & rs("id_reklama_uvod")).values
	rs("popis") = mySmartUpload.Form("popis" & rs("id_reklama_uvod")).values
	rs("odkaz_druh") = mySmartUpload.Form("odkaz_druh" & rs("id_reklama_uvod")).values
	rs("odkaz2") = mySmartUpload.Form("odkaz2" & rs("id_reklama_uvod")).values
	rs.update
	rs.movenext
loop
rs.close
conn.close



set mysmartupload = nothing
set f = nothing


if chyba = "" then chyba = "Uloženo" end if


session("reload") = "1"
Response.clear
response.redirect "obch-reklama.asp?chyba=" & chyba
 %>