<% months=Request.Form("months") Set connection = Server.CreateObject("ADODB.Connection") connection.Open("customers") dlim=DateAdd("m","-"&months,date) ' Function that converts to universal format yyyy/mm/dd Function dbDate(dt) dbDate = year(dt) &"/"& right("0" & month(dt), 2) &_ "/"& right("0" & day(dt),2) End Function SQL="SELECT * FROM Phone WHERE Contract_Date <= #"&dbDate(dlim)&"# ORDER BY Contract_Date;" Set list=connection.Execute(SQL) %> Cellular Advice NI LTD

List of phones by contract

List of phone(s) which contract is <%Response.Write(months)%> month(s) or more older:


<% Do while NOT list.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") 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  >  phones  >  listcontracts.asp