viewhadnsetkeyfeatures

<%
if request.QueryString("act")<>"" then
HandsetId=request.QueryString("HandsetId")
sqlid="update tblHandsetKeyFeatures set HKStatus= CASE when HKstatus='True' then 'False' when HKstatus='False' then 'True' end where HandsetId=" & HandsetId
conn.Open MyDsn
conn.execute(sqlid)
conn.close
set conn = nothing
if request.QueryString("act")="True" then
msg= "Phone Deactivated."
else
msg= "Phone Activated."
end if
response.Redirect("veiwHandsetKeyFeatures.asp?msg=" & msg)
end if
sqlrecord="select * from tblHandsetKeyFeatures order by KeyFeatureId"
Dim RecordPagecount,next10,Prev10,CurrPage
set rs = Server.CreateObject("ADODB.Recordset")
ConnectionLess rs, sqlrecord
%>

Admin Pannel :.

<%
xx=1
Do Until rs.AbsolutePage <> CurrPage OR rs.Eof
xx=xx+1
if xx mod 2=0 then
bgcol="#E5E5E5"
else
bgcol="#FFFFFF"
End If
sql="select ph_name from saf_phone where ph_id="&rs("HandsetId")
Conn.open MyDsn
set rsPh = Conn.execute(sql)
if not rsPh.eof then
ph = rsPh("ph_name")
end if
conn.close
%>

td<%=bgcol%>" class="header4"> <%=rs("HandsetId")%>
td<%=bgcol%>" class="header4"> <%=ph%>
<%=bgcol%>" class="header4"><%=replace(rs("HandsetKeyFeature"),"
",vbcrlf)%>
<%=bgcol%>" class="header4"><%=rs("UpdatedOn")%>
<%=bgcol%>" class="header4"><"veiwHandsetKeyFeatures.asp?act=<%=trim(rs("HKStatus"))%>&psize=<%=psize%>&PageNo=<%=CurrPage%>&HandsetId=<%=rs("HandsetId")%>">
<% if rs("HKStatus")="True" then %>

<% else %>

<% end if %>

<%=bgcol%>"><%=psize%>&PageNo=<%=CurrPage%>&HandsetId=<%=rs("HandsetId")%>" class="header3">Update
<%
rs.movenext
loop
%>

<%=msg%>
HandsetId	HandsetName	HandsetKeyFeatures	UpdatedDateTime	Status	Update
<%=PageNoShow("veiwHandsetKeyFeatures.asp?")%>

<%
rs.close
set rs=nothing
set conn = nothing%>