<% imei=Request.QueryString("imei") Set connection = Server.CreateObject("ADODB.Connection") connection.Open("stock") SQL = "SELECT * FROM Product WHERE IMEI like '"&imei&"';" Set list = connection.Execute(SQL) ' We check if the product exists in the database If list.EOF then Response.Redirect("../stock/prodnotfound.asp") End If %> Cellular Advice NI LTD

Sell Product

Here you have the details of the product:


Company <%Response.Write(list.Fields("Company"))%>
Name <%Response.Write(list.Fields("Name"))%>
Surname <%Response.Write(list.Fields("Surname"))%>
IMEI <%Response.Write(imei)%>
Phone Model <%Response.Write(list.Fields("Model"))%>
Supplier <%Response.Write(list.Fields("Supplier"))%>
Price <%Response.Write(list.Fields("Price"))%> £
Date in <%Response.Write(list.Fields("Date_in"))%>
Date out <%Response.Write(list.Fields("Date_out"))%>

 

 

 

©2005 Cellular Advice NI LTD

e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.


SISTEMA DE INFORMACIÓN INTEGRAL PARA EMPRESAS APLICANDO TECNOLOGÍAS DE INFORMACIÓN Y VPNS

: Salvago Hidalgo, Raúl
: Ingeniería Telecomunicación
Contenido del proyecto: