<% action = request.querystring("action") if action = "Delete" then band_id = request("band_id") qryDel = "delete from bands where band_id = "& band_id &"" set rsDel = conn.execute(qryDel) set rsDel = nothing reponse.redirect "bands.asp" end if %>
Edit Delete
<% 'qry = "select Month(news_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 bands order by band_id desc" set rsBnd = conn.execute(qryNews) response.write "Found : " & rsBnd.recordcount & " Item(s)" if not rsBnd.eof then if request("no") ="" then pageno =1 else pageno=request("no") end if total = rsBnd.recordcount pagesize= 10 totalpage = total\pagesize if (total mod pagesize) <> "0" then totalpage= totalpage+1 else totalpage = 0 end if rsBnd.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 %> <% rsBnd.movenext next set rsBnd = nothing end if %>
Bands
 Band id
 Band Name  Logo  Group
Function
 <%=rsBnd("band_id")%>
 <%=rsBnd("band_name")%>
  <% if len( rsBnd("band_picture")) > 0 then response.write imgsrc("../" & rsBnd("band_picture"), rsBnd("band_picturex"), rsBnd("band_picturey"), rsBnd("band_picturex")/2, 0) else response.write "-" end if %>
  <% qryGrp = "select * from groups where grp_id = "& rsBnd("grp_id") &"" set rsGrp = conn.execute(qryGrp) if not rsGrp.eof then response.write rsGrp("grp_name") end if %>