<%
Id=request.QueryString("HandsetId")
conn.open MyDsn
HandsetId = Request.Form("phName")
If Request.Form("submit") <> "" Then
HandsetKeyFeatures = Replace(Request.Form("keyFeature"), "'", "''")
sql="Update tblHandsetKeyFeatures set UpdatedOn='" & now()& "' , HandsetKeyFeature='" & HandsetKeyFeatures & "' where HandsetId="&Id
conn.execute(sql)
response.Redirect("veiwHandsetKeyFeatures.asp?msg=Updated Successfully.")
end if
sql="select * from tblHandsetKeyFeatures where HandsetId="&Id
set rs = conn.execute(sql)

%>







<%=msg%>
Add
New Phone

<%
sql="select ph_name from saf_phone where ph_id="&rs("handsetid")
set rsPh =conn.execute(sql)
%>

<%set rsPh = nothing
%>

Handset Id	name="phid" type="text" class="field" id="phid" value="<%=rs("handsetid")%> " size="40" readonly="readonly"
Handset Name	input name="phname" type="text" class="field" id="phname" value="<%=rsPh("ph_name")%> " size="40" readonly="readonly"
Phone KeyFeatures	<%=replace(rs("HandsetKeyFeature"),"<BR>",vbcrlf)%>

<%
conn.close
set conn = nothing
%>