<%@LANGUAGE="VBSCRIPT" CODEPAGE="28592"%>
<%
%>
Katalogi stron
<%
set objk = server.CreateObject("adodb.recordset")
objk.open "select * from t_katalogi where id_linku="&request.QueryString("id"),conn,1,3
nazwa = objk("link")
if request.form.count > 0 then
if Request.Form("submit")="TAK" then
objk("data_usuniecia") = now
objk("login_usuniecia") = crmhnd_id_handlowca
objk.update
objk.close
response.write("Usunięto")
response.end
end if
end if
objk.close
%>