<% id=Request.QueryString("id") Set connection = Server.CreateObject("ADODB.Connection") connection.Open("customers") SQL="SELECT * FROM Phone WHERE ID_Customer like '"&id&"' ORDER BY Contract_Date;" Set list=connection.Execute(SQL) %> Cellular Advice NI LTD

Customer's Phone List

List of phone(s):


<% Do while NOT list.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") list.movenext() Loop %>
Phone Number Model Contract Date  
"&list.Fields("Phone_Number")&""&list.Fields("Model")&""&list.Fields("Contract_Date")&"


 


©2005 Cellular Advice NI LTD

<% connection.Close() %> 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:
Directorio raíz  >  Sitio Web  >  customers  >  listphone.asp