<% action = request.querystring("action") if action = "Delete" then ls_id = request.querystring("ls_id") qryDel = "delete from lifestyle where ls_id = "& ls_id &"" set rsDel = conn.execute(qryDel) set rsDel = nothing end if %>
Edit Delete Detail
<% 'qry = "select Month(ls_record) from news" 'set rc = conn.execute(qry) 'do while not rc.eof 'response.write rc(0) & "
" 'rc.movenext 'loop 'set rc = nothing qryNews = "select * from lifestyle order by ls_id desc" set rsLS = conn.execute(qryNews) response.write "Found : " & rsLS.recordcount & " Item(s)" if not rsLS.eof then if request("no") ="" then pageno =1 else pageno=request("no") end if total = rsLS.recordcount pagesize= 10 totalpage = total\pagesize if (total mod pagesize) <> "0" then totalpage= totalpage+1 else totalpage = 0 end if rsLS.Move pagesize*(pageno-1) a=1 if trim(pageno) <> trim(totalpage) then endrecord = pagesize else endrecord=(total mod pagesize) end if For a=1 to endrecord %> <% rsLS.movenext next set rsLS = nothing end if %>
Life Style
 Head  Preview  Country
Picture
Function
 <%=rsLS("ls_head")%>
 <%=rsLS("ls_preview")%>   <% qryCT = "select * from country where ct_id = "& rsLS("ct_id") &"" set rsCT = conn.execute(qryCT) if not rsCT.eof then response.write rsCT("ct_name") end if set rsCT = nothing %>   <% if len( rsLS("ls_picture")) > 0 then response.write imgsrc("../" & rsLS("ls_picture"), rsLS("ls_picturex"), rsLS("ls_picturey"), 50, 0) else response.write "-" end if %>
');return document.MM_returnValue"> &action=Delete');return document.MM_returnValue"> ','Detail','scrollBars=yes,toolbar=no,status=yes,resizable=yes,width=768,height=550')">

<%For b=1 to totalpage%> <%=b%> <%Next%>