<% phonenumber=Request.Form("phonenumber") 'If phonenumber is empty, we should use get method If phonenumber="" then phonenumber=Request.QueryString("phonenumber") End If Set connection = Server.CreateObject("ADODB.Connection") connection.Open("customers") SQL="SELECT * FROM Usage WHERE Phone_Number like '"&phonenumber&"' ORDER BY Usage_Date;" Set list1=connection.Execute(SQL) If list1.EOF then Response.Redirect("../usage/usagenotfound.asp?phonenumber="&phonenumber) End If SQL="SELECT ID_Customer FROM Phone WHERE Phone_Number like '"&phonenumber&"';" Set list2=connection.Execute(SQL) SQL="SELECT Name,Surname,Company_Name FROM Customer WHERE ID_Customer like '"&list2.Fields("ID_Customer")&"';" Set list2=connection.Execute(SQL) %> Cellular Advice NI LTD

List Usage.
<% Response.Write(list2.Fields("Name")&" "&list2.Fields("Surname")&" ("&list2.Fields("Company_Name")&")")%>. Phone: <% Response.Write(phonenumber)%>

Here you have the details of usage:

<% Do while NOT list1.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
Date Minutes Messages  
"&list1.Fields("Usage_Date")&""&list1.Fields("Minutes")&""&list1.Fields("Messages")&"
") list1.movenext() Loop %>

 

 

©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  >  usage  >  listusage.asp