<% f1=Trim(Request.Form("f1")) f2=Trim(Request.Form("f2")) f3=Trim(Request.Form("f3")) t1=Trim(Request.Form("t1")) t2=Trim(Request.Form("t2")) t3=Trim(Request.Form("t3")) phonenumber=Trim(Request.Form("phonenumber")) ' Function that converts a date to universal format yyyy/mm/dd Function dbDate(dt) dbDate = year(dt) &"/"& right("0" & month(dt), 2) &_ "/"& right("0" & day(dt),2) End Function dfr=f1&"/"&f2&"/"&f3 dto=t1&"/"&t2&"/"&t3 Set connection = Server.CreateObject("ADODB.Connection") connection.Open("customers") SQL="SELECT * FROM Usage WHERE Usage_Date >= #"&dbDate(dfr)&"# AND Usage_Date <= #"&dbDate(dto)&"# AND Phone_Number like '"&phonenumber&"';" Set list=connection.Execute(SQL) %> Cellular Advice NI LTD

Calculate Usage

Usage of the phone number <%Response.Write(phonenumber)%> from <%Response.Write(dfr)%> to <%Response.Write(dto)%> :


<% dim tmin dim tmes tmin=0 tmes=0 Do while NOT list.EOF Response.Write("") Response.Write("
Date Minutes Messages
"&list.Fields("Usage_Date")&""&list.Fields("Minutes")&""&list.Fields("Messages")&"
") tmin=tmin+cdbl(list.Fields("Minutes")) tmes=tmes+cdbl(list.Fields("Messages")) list.movenext() Loop %>
  Total Minutes Total Messages
 
<%Response.Write(tmin)%>
<%Response.Write(tmes)%>


Click here to see the details of this phone

 

©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  >  showcalcus.asp