<% mon=Trim(Request.Form("month")) yea=Trim(Request.Form("year")) Set connection = Server.CreateObject("ADODB.Connection") connection.Open("customers") SQL="SELECT * FROM Phone WHERE MONTH(Contract_Date)='"&mon&"' AND YEAR(Contract_Date)='"&yea&"' ORDER BY Contract_Date ;" Set list=connection.Execute(SQL) %> Cellular Advice NI LTD

<% color="#E6E6E6" Do WHILE NOT list.EOF SQL="SELECT Company_Name FROM Customer WHERE ID_Customer like '"&list.Fields("ID_Customer")&"';" Set list2=connection.Execute(SQL) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") list.movenext() 'We change the color for the new row if color="#E6E6E6" then color="#FFFFFF" else color="#E6E6E6" end if Loop %>
Date
Name
Number
IMEI
SIM
Phone
Tariff
Upg. Ref.
Comm.
Profit
 
"&list.Fields("Contract_Date")&""&list2.Fields("Company_Name")&""&list.Fields("Phone_Number")&""&list.Fields("IMEI")&""&list.Fields("SIM")&""&list.Fields("Model")&""&list.Fields("Tariff")&""&list.Fields("Upg_Ref")&""&list.Fields("Commission")&""&list.Fields("Profit")&"Details

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