<%@LANGUAGE="VBSCRIPT" CODEPAGE="28592"%>
<%
if request.Cookies("ksieginiedodane")="1" then
niedodane = 1
else
niedodane = 0
end if
%>
<%
if request.QueryString("idk")<>"" and request.QueryString("idf")<>"" then
conn.execute("insert into t_katalogi_dodane(id_katalogu, id_frazy, kiedy,kto) values ("&request.QueryString("idk")&","&request.QueryString("idf")&", getdate(),"&crmhnd_id_handlowca&" )")
response.Redirect("katalogiadd2.asp?s="&request.QueryString("s"))
end if
if request.QueryString("u")<>"" then
conn.execute "delete from t_katalogi where id_linku="&request.QueryString("u")
response.Redirect("katalogi.asp")
end if
if request.QueryString("all")="1" then
op_wszystkie = true
else
op_wszystkie = false
end if
sprawdzone = false
if request.form.count > 0 then
nazwa = request.Form("nazwa")
kategoria = request.Form("kategoria")
opis = request.Form("opis")
pr = request.Form("pr")
fraza = request.Form("fraza")
id_jezyka = Request.Form("id_jezyka")
sprawdzone = true
if request.Form("sprawdzone")="0" then
nazwa_test = nazwa
if left(nazwa_test,7) = "http://" then
nazwa_test = right(nazwa_test,len(nazwa_test)-7)
end if
if left(nazwa_test,4) = "www." then
nazwa_test = right(nazwa_test,len(nazwa_test)-4)
end if
check_simi = 0
if conn.execute("select count(*) from t_katalogi where replace(replace(link, 'http://', ''), 'www.', '') = '"&nazwa_test&"'")(0) > 0 then
check_simi = 3
end if
if check_simi =0 then
if Instr(nazwa_test, "?") > 0 then
nazwa_test = left(nazwa_test, Instr(nazwa_test, "?")-1)
end if
if conn.execute("select count(*) from t_katalogi where link like '%"&nazwa_test&"%'")(0) > 0 then
check_simi = 2
end if
if check_simi =0 then
if Instr(nazwa_test, "/") > 0 then
nazwa_test = left(nazwa_test, Instr(nazwa_test, "/")-1)
end if
if conn.execute("select count(*) from t_katalogi where link like '%"&nazwa_test&"%'")(0) > 0 then
check_simi = 1
end if
end if
end if
end if
end if
%>
<%
set objk = server.CreateObject("adodb.recordset")
%>
<% if not sprawdzone and not op_wszystkie then %>
<%
dim frazy_id(6), frazy_sid(6), frazy_snazwa(6), frazy_nazwa(6),frazy_dodane(6),ile_fraz
if isnumeric(request.QueryString("s")) then
strona=request.QueryString("s")
else
strona=0
end if
set objf = server.CreateObject("adodb.recordset")
set objdd = server.CreateObject("adodb.recordset")
if niedodane=1 then
wyklucz_dodalem = " id_linku not in (select id_katalogu from t_katalogi_dodane where id_frazy="&session("frazyid1")&" and kiedy>'2005-11-01') and"
else
wyklucz_dodalem = ""
end if
objk.open "select * from t_katalogi where "&wyklucz_dodalem&" kategoria=3 and (opis='') and id_jezyka="&session("id_jezyka")&" order by pr desc, id_linku desc ",conn,1,3
'Response.Write objk.Source
if isnull(strona) then
Page = 0
Else
Page = cint(strona)
End If
objk.PageSize=1
AllPages = objk.PageCount
If AllPages=0 Then
AllPages = 1
end if
if Not objk.EOF AND Not objk.BOF Then
objk.AbsolutePage=strona+1
end if
id_katalogu = objk("id_linku")
ile_fraz = session("ile_fraz")
for i=1 to ile_fraz
frazy_id(i) = session("frazyid"&i)
objf.open "select * from v_katalogi_frazy where id_frazy="&frazy_id(i),conn,1,3
if objf.eof then
response.write "Błąd!"
response.end
else
frazy_sid(i) = objf("id_serwisu")
frazy_snazwa(i) = objf("nazwa_serwisu")
frazy_nazwa(i) = objf("fraza")
objdd.open "select * from t_katalogi_dodane where id_katalogu="&id_katalogu&" and id_frazy="&frazy_id(i)&" and kiedy>'2005-11-01'",conn,1,3
if objdd.eof then
frazy_dodane(i)=null
else
frazy_dodane(i)=objdd("kiedy")
end if
objdd.close
end if
objf.close
next
%>
<% end if %>
Katalogi stron
<%=auth_header%>
<%
if request.form.count > 0 and request.Form("sprawdzone")="1" then
objk.open "select * from t_katalogi where 1=2",conn,1,3
objk.addnew
objk("link") = nazwa
objk("kategoria") = kategoria
objk("opis") = opis
objk("pr") = pr
objk("fraza") = fraza
objk.update
objk.close
response.redirect "katalogi.asp"
end if
%>