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

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

Please fill the details of usage:


Date
(dd/mm/yyyy)		 / /
Minutes
Messages

 

 


 

 

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