<%@LANGUAGE="VBSCRIPT" CODEPAGE="28592"%> <% %> <% set objk = server.CreateObject("adodb.recordset") objk.open "select * from t_katalogi where id_linku="&request.QueryString("ed"),conn,1,3 nazwa = objk("link") kategoria = objk("kategoria") opis = objk("opis") pr = objk("pr") fraza = objk("fraza") auto = objk("auto") ilepodk = objk("ile_podkategorii") katlogin = objk("katalog_login") kathaslo = objk("katalog_haslo") id_jezyka = objk("id_jezyka") id_jezyka1 = objk("id_jezyka") cena = objk("cena") id_okresu = objk("id_okresu") katforum = objk("kategoria_forum") wymlpostow = objk("wymagana_lpostow") lpostow = objk("liczba_postow") if request.form.count > 0 then nazwa = request.Form("nazwa") opis = request.Form("opis") pr = request.Form("pr") id_jezyka = Request.Form("jezyk") cena = Request.Form("cena") if cena="" then cena=0 end if id_okresu = Request.Form("okres") katlogin = Request.Form("login") kathaslo = Request.Form("password") conn.execute("INSERT INTO t_katalogi_edycje (id_katalogu, jezyk_z, jezyk_do, kto, kiedy) VALUES ("&request.QueryString("ed")&", "&id_jezyka1&", "&id_jezyka&", "&crmhnd_id_handlowca&", GETDATE())") objk("link") = nazwa objk("opis") = opis objk("pr") = pr objk("id_jezyka") = id_jezyka if int(id_jezyka)=7 or int(id_jezyka)=75 then objk("cena") = cena objk("id_okresu") = id_okresu end if if int(id_jezyka)=6 or int(id_jezyka)=72 or int(id_jezyka)=73 then objk("katalog_login") = katlogin objk("katalog_haslo") = kathaslo end if objk.update objk.close if session("powrotkat")<>"" then response.redirect session("powrotkat") else response.redirect "katalogi.asp" end if end if objk.close %>

" method="post"> <% kolor = 0 %> <% if int(id_jezyka)=7 or int(id_jezyka)=75 then %> <% end if %> <% if int(id_jezyka)=6 or int(id_jezyka)=72 or int(id_jezyka)=73 then %> <% end if %>

"><< powrót
link	PR	uwagi	baza	cena (netto)	okres
			<% set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT * FROM t_katalogi_jezyki ORDER BY nazwa_jezyka_katalogu", conn, 1, 3 do while(not rs.eof) %>" <% if int(id_jezyka)=int(rs("id_jezyka_katalogu")) then %>selected="selected"<% end if %>><%=rs("nazwa_jezyka_katalogu")%><% rs.MoveNext() loop rs.Close() : set rs = nothing %>		<% set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT * FROM t_katalogi_okresy ORDER BY nazwa", conn, 1, 3 do while(not rs.eof) %>" <% if int(id_okresu)=int(rs("id_okresu")) then %>selected="selected"<% end if %>><%=rs("nazwa")%><% rs.MoveNext() loop rs.Close() : set rs = nothing %>		" style="color: red;" target="_blank">Usuń
Login:	Hasło:
http://<% end if %><%=nazwa%>" target="_blank"><%=nazwa%>