<%@LANGUAGE="VBSCRIPT" CODEPAGE="28592"%>
<%
if session("defjezyk")<>"" then
defjezyk = session("defjezyk")
'response.write "aa"
else
defjezyk = 1
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")
jezyk = request.form("jezyk")
set obj = Server.CreateObject("ADODB.RecordSet")
select case jezyk
case "1"
sql = "SELECT id_jezyka_katalogu FROM t_katalogi_jezyki WHERE nazwa_jezyka_katalogu LIKE 'A%'"
obj.open sql, conn, 1, 3
do while(not obj.EOF)
jezyk = jezyk & "," & obj("id_jezyka_katalogu")
obj.MoveNext()
loop
obj.Close()
case "5"
sql = "SELECT id_jezyka_katalogu FROM t_katalogi_jezyki WHERE nazwa_jezyka_katalogu LIKE 'B%'"
obj.open sql, conn, 1, 3
do while(not obj.EOF)
jezyk = jezyk & "," & obj("id_jezyka_katalogu")
obj.MoveNext()
loop
obj.Close()
case "6"
sql = "SELECT id_jezyka_katalogu FROM t_katalogi_jezyki WHERE nazwa_jezyka_katalogu LIKE 'C%'"
obj.open sql, conn, 1, 3
do while(not obj.EOF)
jezyk = jezyk & "," & obj("id_jezyka_katalogu")
obj.MoveNext()
loop
obj.Close()
case "65"
sql = "SELECT id_jezyka_katalogu FROM t_katalogi_jezyki"
obj.open sql, conn, 1, 3
do while(not obj.EOF)
jezyk = jezyk & "," & obj("id_jezyka_katalogu")
obj.MoveNext()
loop
obj.Close()
end select
set obj = nothing
if jezyk<>"" then
session("defjezyk") = jezyk
' response.write "sess:"&session("defjezyk")
end if
katforum = request.form("katforum")
wymlpostow = request.form("wymlpostow")
lpostow = request.form("lpostow")
katlogin = request.form ("katlogin")
kathaslo = request.Form ("kathaslo")
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
if isnull(jezyk) or isempty(jezyk) then
jezyk = defjezyk
end if
%>
Katalogi stron
<%=auth_header%>
<%
for each x in Session.Contents
'Response.Write x & Session(x) & " "
next
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT id_handlowca FROM t_handlowcy_crm WHERE nazwisko='"&Session("crmhnd_nazwisko")&"'", conn, 1, 3
id_handlowca = rs("id_handlowca")
rs.Close() : set rs = nothing
set objk = server.CreateObject("adodb.recordset")
if request.form.count > 0 and request.Form("sprawdzone")="1" then
if request.Form("check_simi")="0" 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
if(inStr(jezyk,",") > 0) then
objk("id_jezyka") = split(jezyk,",")(0)
else
objk("id_jezyka") = jezyk
end if
objk("data_dodania") = now
objk("login_dodania") = id_handlowca
objk("kategoria_forum") = katforum
objk("wymagana_lpostow") = wymlpostow
if isnumeric(lpostow) then
objk("liczba_postow") = cint(lpostow)
else
objk("liczba_postow") = null
end if
objk("katalog_login") = katlogin
objk("katalog_haslo") = kathaslo
objk.update
objk.close
else
objk.open "select * from t_katalogi_duplikaty where 1=2",conn,1,3
objk.addnew
objk("link") = nazwa
objk("data") = now
objk.update
objk.close
end if
response.redirect "katalogi.asp"
end if
%>