<% response.expires=0 ooId="" %><% '' ***************************************************************** set rst=CreateObject("Adodb.recordset") set rst2=CreateObject("Adodb.recordset") if request("action")="change" then sql="select * from fotoSlider where fotoSliderId=" & request("oId") rst.open sql,"DSN=OHM",1,3 if not rst.eof then err.clear on error resume next if request("fotoSliderImg")<>"" then newfilename = mid(request("fotoSliderImg"),instrrev(request("fotoSliderImg"),"\")+1) rst.fields("fotoSliderImg")=newfilename end if rst.fields("fotoSliderRank")=request("fotoSliderRank") rst.fields("fotoSliderTitle")=request("fotoSliderTitle") rst.update if not err.Number=0 then %> <% else end if on error goto 0 end if rst.close %> <% elseif request("action")="new" then sql="select * from fotoSlider where fotoSliderId=0" rst.open sql,"DSN=OHM",1,3 rst.addnew err.clear on error resume next if request("fotoSliderImg")<>"" then newfilename = mid(request("fotoSliderImg"),instrrev(request("fotoSliderImg"),"\")+1) rst.fields("fotoSliderImg")=newfilename end if rst.fields("fotoSliderRank")=request("fotoSliderRank") rst.fields("fotoSliderTitle")=request("fotoSliderTitle") rst.update if not err.Number=0 then %> <% else ooId=rst.fields("agendaId") end if on error goto 0 rst.close %> <% elseif request("action")="delete" then sql="delete * from fotoSlider where fotoSliderId=" & request("oId") rst.open sql,"DSN=OHM",1,3 %> <% end if set rst=nothing %> <% %>