<%@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) 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&"'", 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 response.Redirect("katalogiadd3.asp") end if if request.Cookies("kataloginiedodane")="1" then niedodane = 1 else niedodane = 0 end if %> <%=auth_header%>

<% set objserw= server.CreateObject("adodb.recordset") objserw.open "select * from t_katalogi_serwisy order by nazwa", conn, 1, 3 %> <% for i=1 to 5 %> <% next %> <% objserw.close %>

Wszystkie katalogi, Katalogi SMS
Na jakich frazach będziesz pracować?
<%=i%>.	Wybierz serwis... <% objserw.movefirst while not objserw.eof %> "><%=objserw("nazwa")%> <% objserw.movenext wend %>
checked<% end if %>> Pokazuj tylko nie dodane