<%@LANGUAGE="VBSCRIPT" CODEPAGE="28592"%>
<%
if request.form.count > 0 then
set objf=server.CreateObject("adodb.recordset")
dim frazy_id(6), ile_fraz
ile_fraz = 0
for i=1 to 5
fserwis = request.Form("serwis"&i)
if i=1 then
Response.Cookies("fserwis") = fserwis
end if
ffraza = request.Form("fraza"&i)
if fserwis>0 and ffraza<>"" then
objf.open "select * from t_katalogi_frazy where id_serwisu="&fserwis&" and fraza='"&ffraza&"' AND (usuniete IS NULL OR usuniete=0)", conn,1,3
if objf.eof then
objf.addnew
objf("id_serwisu")=fserwis
objf("fraza")=ffraza
objf.update
end if
id_frazy = objf("id_frazy")
objf.close
ile_fraz=ile_fraz+1
frazy_id(ile_fraz)=id_frazy
end if
next
session("ile_fraz") = ile_fraz
for i=1 to ile_fraz
session("frazyid"&i) = frazy_id(i)
next
if request.Form("niedodane")="1" then
Response.Cookies ("kataloginiedodane") = "1"
else
Response.Cookies ("kataloginiedodane") = "0"
end if
if request.Form("filtrowanie")="1" then
Response.Cookies ("filtrowanie") = "1"
else
Response.Cookies ("filtrowanie") = "0"
end if
if request.Form("losowo")="1" then
Response.Cookies ("losowo") = "1"
else
Response.Cookies ("losowo") = "0"
end if
if request.Form("all_platne")="1" then
Response.Cookies ("all_platne") = "1"
end if
if request.Form("all_bezplatne")="1" then
Response.Cookies ("all_bezplatne") = "1"
end if
if request.Form("szablon")="1" then
Response.Cookies ("szablon") = "1"
elseif request.Form("szablon")="2" then
Response.Cookies ("szablon") = "2"
end if
session("jezyk") = request.Form("jezyk")
session("jezyk_nazwa") = conn.execute("select nazwa_jezyka_katalogu from t_katalogi_jezyki where id_jezyka_katalogu="&request.Form("jezyk"))(0)
if request.Form("filtrowanie")="1" then
session("jezyk") = request.Form("sfiltr")
if (request.Form("sfiltr")="1,5,65,67") then
session("jezyk_nazwa") = "bezpłatne"
else
session("jezyk_nazwa") = "płatne"
end if
end if
id_f = Session("frazyid1")
Session("frazyid2") = Session("frazyid1")
set rs_serwis = Server.CreateObject("ADODB.Recordset")
rs_serwis.open "SELECT * FROM t_katalogi_frazy WHERE id_frazy="&id_f, conn, 1, 3
id_s = rs_serwis("id_serwisu")
rs_serwis.close
rs_serwis.open "SELECT * FROM t_katalogi_frazy WHERE id_serwisu="&id_s, conn, 1, 3
Session("frazyid1") = ""
first = true
while not rs_serwis.eof
if first=false then
Session("frazyid1") = Session("frazyid1")&","
end if
Session("frazyid1") = Session("frazyid1")&rs_serwis("id_frazy")
first = false
rs_serwis.movenext
wend
rs_serwis.close
response.Redirect("katalogiadd.asp")
end if
if request.Cookies("kataloginiedodane")="1" then
niedodane = 1
else
niedodane = 0
end if
if request.Cookies("filtrowanie")="1" then
filtrowanie = 1
else
filtrowanie = 0
end if
if request.Cookies("losowo")="1" then
losowo = 1
else
losowo = 0
end if
%>
Katalogi stron
<%=auth_header%>