modifyphone.aspx

www.gsmlanka.com is a website for trading of mobile phone with a source code.

<%@ Page Explicit="True" Language="VB" Debug="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %>


<!--#include file="config.aspx" -->
<!--#include file="UBBC.aspx" -->
<!--#include file="phone_update.aspx" -->

<script runat="server">


Sub Page_Load( s As Object, e As EventArgs )

if session("AdminID")="" then
session("adminlog")=true
response.Redirect("adminlogin.aspx")

else
lbladmin.text=session("adminID")
call filldata
if not page.ispostback then
call finddetails

end if


end if
End Sub

sub finddetails
dim fillSQL as string

fillSQL="select phoneID,network,phone_details.man_ID,date_pub,status,dimension,weight,Disp_type,Disp_size,rng_type,custamization,vibration,phn_book,call_rec,card_slot,GPRS,HSCSD,EDGE,status_3g,WLAN,Blootooth,Infrared,USB,OS,Messeging,Browser,Clock,Games,Colors,Lang_stat,Camara,Other_features,Bat_type,Bat_standby,bat_talk,Price,Quantity,Reorder_lvl,BigImg,Smallimg,Thumnail,man_name from phone_Details,manufacturer where phone_details.man_Id=manufacturer.man_iD and phoneID= '" & cstr(request.querystring("phoneID")) & "'"

mcmd=new sqlcommand(fillSQL,bcon)
bcon.open
objreader=mcmd.executereader
objreader.read

txtPhnID.text=cstr(objreader("phoneID"))
txtNet.text=objreader("Network")
cboMan.SelectedItem.Text=objreader("man_name")
txtpub.text=objreader("date_pub")
cboStatus.items.add(objreader("status"))
cboStatus.SelectedItem.Text=objreader("status")
txtDimension.text=objreader("dimension")
txtWeight.text=objreader("weight")
txtDtype.text=objreader("Disp_type")
txtSize.text=replace(objreader("Disp_size"),"<br>", chr(13))
txtRtype.text=objreader("rng_type")
txtCustom.text=objreader("custamization")
cbovibtion.items.add(objreader("vibration"))
cboVibtion.selecteditem.text=objreader("vibration")
txtPbook.text=replace(objreader("phn_book"),"<br>", chr(13))
txtCrec.text=objreader("call_rec")
txtCslot.text=replace(objreader("card_slot"),"<br>", chr(13))
txtGprs.text=objreader("GPRS")
cboHSCSD.items.add(objreader("HSCSD"))
cboHSCSD.selecteditem.text=objreader("HSCSD")
cboEDGE.items.add(objreader("EDGE"))
cboEDGE.selecteditem.text=objreader("EDGE")
cbo3G.items.add(objreader("status_3g"))
cbo3G.selecteditem.text=objreader("status_3g")
cboWLAN.items.add(objreader("wlan"))
cboWLAN.selecteditem.text=objreader("WLAN")
txtBlue.text=objreader("Blootooth")
cboInfra.items.add(objreader("infrared"))
cboInfra.selecteditem.text=objreader("Infrared")
txtUsb.text=objreader("USB")
txtOs.text=objreader("OS")
txtMsg.text=objreader("Messeging")
txtBrowser.text=objreader("Browser")
cboClock.selecteditem.text=objreader("Clock")
txtGames.text=objreader("Games")
txtcolors.text=objreader("Colors")
txtLangs.text=objreader("Lang_stat")
txtCam.text=replace(objreader("Camara"),"<br>", chr(13))
txtOtherf.text=replace(objreader("Other_features"),"<br>", chr(13))
txtBtyp.text=objreader("Bat_type")
txtBstan.text=objreader("Bat_standby")
txtTalk.text=objreader("bat_talk")
txtPrice.text=objreader("Price")
txtQty.text=objreader("Quantity")
txtRE.text=objreader("Reorder_lvl")
txtfull.text=objreader("BigImg")
txtdet.text=objreader("Smallimg")
txtthumb.text=objreader("Thumnail")

objreader.close

bcon.close

end sub



sub updatephone( sender As Object, e As System.Web.UI.ImageClickEventArgs)


		
	if page.isvalid then	
		

		If  Not IsDate(txtpub.text) then
			lblerror.text="Invalid date"
			lblerror.visible=true
			
		else
			lblerror.text=""
			lblstatus.text=""
			lblstatus.visible=false
			
		call dbcon
				dim updateSQL as string
 				dim manIDcheck as integer
 
		 bcon.open
		 mcmd=new sqlcommand("select man_id from manufacturer where man_name='" & cboMan.SelectedItem.Text & " ' ",bcon)
		 dr=mcmd.executereader
		 
		 while dr.read
		 manidcheck=dr("man_ID")
		 end while
		 bcon.close

		
		
		bcon.open

updatesql="update phone_details set  phoneID=@phoneID,network=@network,man_ID=@man_id,date_pub=@date_pub,status=@status,dimension=@dimension,weight=@weight,Disp_type=@disp_type,rng_type=@rng_type,custamization=@custamization,vibration=@vibration,phn_book=@phn_book,call_rec=@call_rec,card_slot=@card_slot,GPRS=@GPRS,HSCSD=@HSCSD,Edge=@EDGE,status_3g=@status_3g,WLAN=@WLAN,blootooth=@blootooth,infrared=@infrared,USB=@USB,OS=@OS,messeging=@messeging,Browser=@browser,Clock=@clock,games=@games,colors=@colors,lang_stat=@lang_stat,camara=@camara,other_features=@other_features,bat_type=@bat_type,bat_standby=@bat_standby,bat_talk=@bat_talk,price=@price,quantity=@quantity,Reorder_lvl=@Reorder_lvl,bigimg=@BigImg,smallImg=@smallImg,thumnail=@thumnail where phoneID=" & "'"  & cstr(request.QueryString("phoneID")) &  " '"



tcmd=new sqlcommand(updateSQL,bcon)
'adding parameters	
TCmd.Parameters.Add(New sqlParameter("@phoneID", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@Network", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@man_id", sqlDbType.int))
TCmd.Parameters.Add(New sqlParameter("@date_pub",sqlDbType.datetime))
TCmd.Parameters.Add(New sqlParameter("@status", sqlDbType.Varchar,50))
TCmd.Parameters.Add(New sqlParameter("@dimension", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@weight", sqlDbType.Varchar,50))
TCmd.Parameters.Add(New sqlParameter("@Disp_type", sqlDbType.char,100))
TCmd.Parameters.Add(New sqlParameter("@Disp_size", sqlDbType.Varchar,200))
TCmd.Parameters.Add(New sqlParameter("@rng_type", sqlDbType.char,100))
TCmd.Parameters.Add(New sqlParameter("@custamization", sqlDbType.char,100))
TCmd.Parameters.Add(New sqlParameter("@vibration", sqlDbType.char,20))
TCmd.Parameters.Add(New sqlParameter("@phn_book", sqlDbType.char,100))
TCmd.Parameters.Add(New sqlParameter("@call_rec", sqlDbType.char,20))
TCmd.Parameters.Add(New sqlParameter("@card_slot", sqlDbType.Varchar,200))
TCmd.Parameters.Add(New sqlParameter("@GPRS", sqlDbType.varchar,100))
TCmd.Parameters.Add(New sqlParameter("@HSCSD", sqlDbType.char,50))
TCmd.Parameters.Add(New sqlParameter("@EDGE", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@status_3g", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@WLAN", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@Blootooth", sqlDbType.char,50))
TCmd.Parameters.Add(New sqlParameter("@Infrared", sqlDbType.char,50))
TCmd.Parameters.Add(New sqlParameter("@USB", sqlDbType.char,50))
TCmd.Parameters.Add(New sqlParameter("@OS", sqlDbType.Varchar,200))
TCmd.Parameters.Add(New sqlParameter("@Messeging", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@Browser", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@Clock", sqlDbType.char,10))
TCmd.Parameters.Add(New sqlParameter("@Games", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@Colors", sqlDbType.char,100))
TCmd.Parameters.Add(New sqlParameter("@Lang_stat", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@Camara", sqlDbType.Varchar,500))
TCmd.Parameters.Add(New sqlParameter("@Other_features", sqlDbType.Varchar,200))
TCmd.Parameters.Add(New sqlParameter("@Bat_type", sqlDbType.Varchar,200))
TCmd.Parameters.Add(New sqlParameter("@Bat_standby", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@bat_talk", sqlDbType.Varchar,100))
TCmd.Parameters.Add(New sqlParameter("@Price", sqlDbType.decimal))
TCmd.Parameters.Add(New sqlParameter("@Quantity", sqlDbType.int))
TCmd.Parameters.Add(New sqlParameter("@Reorder_lvl", sqlDbType.int))
TCmd.Parameters.Add(New sqlParameter("@BigImg", sqlDbType.Varchar,300))
TCmd.Parameters.Add(New sqlParameter("@Smallimg", sqlDbType.Varchar,300))
TCmd.Parameters.Add(New sqlParameter("@Thumnail", sqlDbType.Varchar,300))


'assigning values


TCmd.Parameters("@phoneID").Value=cstr(txtPhnID.text)
TCmd.Parameters("@Network").Value=cstr(txtNet.text)
TCmd.Parameters("@man_id").Value=manIDcheck
TCmd.Parameters("@date_pub").Value=cstr(txtpub.text)
TCmd.Parameters("@status").Value=cstr(cboStatus.SelectedItem.Text)
TCmd.Parameters("@dimension").Value=cstr(txtDimension.text)
TCmd.Parameters("@weight").Value=cstr(txtWeight.text)
TCmd.Parameters("@Disp_type").Value=cstr(txtDtype.text)
TCmd.Parameters("@Disp_size").Value=cstr(Replace(txtSize.text, CStr(chr(13)), "<br>"))
TCmd.Parameters("@rng_type").Value=cstr(txtRtype.text)
TCmd.Parameters("@custamization").Value=cstr(txtCustom.text)
TCmd.Parameters("@vibration").Value=cstr(cboVibtion.selecteditem.text)
TCmd.Parameters("@phn_book").Value=cstr(Replace(txtPbook.text, CStr(chr(13)), "<br>"))
TCmd.Parameters("@call_rec").Value=cstr(txtCrec.text)
TCmd.Parameters("@card_slot").Value=cstr(Replace(txtCslot.text, CStr(chr(13)), "<br>"))
TCmd.Parameters("@GPRS").Value=cstr(txtGprs.text)
TCmd.Parameters("@HSCSD").Value=cstr(cboHSCSD.selecteditem.text)
TCmd.Parameters("@EDGE").Value=cstr(cboEDGE.selecteditem.text)
TCmd.Parameters("@status_3g").Value=cstr(cbo3G.selecteditem.text)
TCmd.Parameters("@WLAN").Value=cstr(cboWLAN.selecteditem.text)
TCmd.Parameters("@Blootooth").Value=cstr(txtBlue.text)
TCmd.Parameters("@Infrared").Value=cstr(cboInfra.selecteditem.text)
TCmd.Parameters("@USB").Value=cstr(txtUsb.text)
TCmd.Parameters("@OS").Value=cstr(txtOs.text)
TCmd.Parameters("@Messeging").Value=cstr(txtMsg.text)
TCmd.Parameters("@Browser").Value=cstr(txtBrowser.text)
TCmd.Parameters("@Clock").Value=cstr(cboClock.selecteditem.text)
TCmd.Parameters("@Games").Value=cstr(txtGames.text)
TCmd.Parameters("@Colors").Value=cstr(txtcolors.text)
TCmd.Parameters("@Lang_stat").Value=cstr(txtLangs.text)
TCmd.Parameters("@Camara").Value=cstr(Replace(txtCam.text, CStr(chr(13)), "<br>"))
TCmd.Parameters("@Other_features").Value=cstr(Replace(txtOtherf.text, CStr(chr(13)), "<br>"))
TCmd.Parameters("@Bat_type").Value=cstr(txtBtyp.text)
TCmd.Parameters("@Bat_standby").Value=cstr(txtBstan.text)
TCmd.Parameters("@bat_talk").Value=cstr(txtTalk.text)
TCmd.Parameters("@Price").Value=cdec(txtPrice.text)
TCmd.Parameters("@Quantity").Value=cint(txtQty.text)
TCmd.Parameters("@Reorder_lvl").Value=cint(txtRE.text)
TCmd.Parameters("@BigImg").Value=cstr(txtfull.text)
TCmd.Parameters("@Smallimg").Value= cstr(txtdet.text)
TCmd.Parameters("@Thumnail").Value=cstr(txtthumb.text)



		TCmd.ExecuteNonQuery
		txtphnID.text=""
		response.Redirect("dbsuccess.aspx")
		end if
		bcon.close
		end if
end sub








</script>






<html>
<head>

<title>GSMLanka - Phone Manager- Modify Phones</title>
<link href="stylesheet.css" rel="stylesheet" type="text/css" />


<SCRIPT language=JavaScript 
src="javascript.js"></SCRIPT>
<style type="text/css">
<!--
.borderTable {padding: 0px 0px 0px 0px;
border: 1px solid #cccccc;
}
.borderTable {padding: 0px 0px 0px 0px;
border: 1px solid #CCCCCC;
}
-->
</style>

<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style3 {color: #CC3300}
.style4 {color: #999999}
.style6 {color: #FF9900}
.style7 {
	color: #000000;
	font-size: 12px;
}
.style8 {color: #336699}
.style9 {color: #003366#336699}
.style11 {color: #FF6600}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>

<body onLoad="MM_preloadImages('buttons/addnewphn2.gif','buttons/ModiyPhone2.gif','buttons/User-Management2.gif','buttons/Orders2.gif','buttons/sign_out1.gif')">
<form runat="server">
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr>
    <td width="112" rowspan="2" valign="top"><img src="imagenew/sg_logo.jpg" alt="Logo" width="112" height="38" /></td>
    <td width="269" height="25">&nbsp;</td>
    <td width="317"></td>
    <td width="101" rowspan="2" valign="bottom"><span class="address"><span class="style3">GSM</span> <span class="style4">Lanka <span class="style6">Home</span> </span></span></td>
  </tr>
  <tr>
    <td height="16" valign="top" class="redfont">Welcome Administrator: 
      <asp:Label ID="lblAdmin" runat="server"  Font-Bold="true"/></td>
    <td></td>
    </tr>
</table>
<br>