addhandsetkeyfeatures

<%
if session("isadminloggedin")=true then
userid = 1
end if
conn.open MyDsn
Manufacturer = Request.Form("manufact")
HandsetId = Request.Form("phName")
HandsetKeyFeatures = Replace(Request.Form("ph_key"), "'", "''")

If Request.Form("submit") <> "" Then
sql="Exec [dbo].[USP_AddUpdHandsetKeyFeatures] 1,"& HandsetId &",'"& HandsetKeyFeatures &"','" & userid & "',1"
msg="Handset KeyFeatures added successfully for handset id= "& HandsetId
conn.execute sql
End if
%>
Admin Pannel :







<%=msg%>

Add New Phone

Manufacturer Select Manufacturer<% sqlManu="select distinct comp_name,comp_id from saf_company where comp_status='YES' and comp_id in(select comp_id from saf_phone sp where sp.manufacturer = comp_name and ph_id not in (select distinct handsetId from tblHandsetKeyfeatures ) )" set rs_comp=conn.execute(sqlManu) while not rs_comp.eof %><%=rs_comp("comp_name")%>" <%if cstr(Manufacturer) = cstr(rs_comp("comp_name")) then%> selected="selected"<%end if%>><%=rs_comp("comp_name")%><% rs_comp.movenext wend rs_comp.close set rs_comp = nothing %> Handset name <% if Request.form("manufact") <>"" then sqlPHn="select distinct ph_id, ph_name from saf_phone where ph_id not in (select handsetId from tblHandsetKeyFeatures where manufacturer = '"& manufacturer &"') and manufacturer='"&Request.form("manufact")&"' order by ph_name asc" else sqlPHn="select distinct ph_id,ph_name from saf_phone where ph_Id=0" end if set rsPhn=conn.execute(sqlPHn) %> Select Model<%while not rsPhn.eof%> <%=rsPhn("ph_id")%>"><%=rsPhn("ph_name")%><% rsPhn.movenext wend rsPhn.close set rsPhn = nothing %> Phone KeyFeatures

<%conn.close%>

<% set conn = nothing %>