<% id=Request.Form("id") 'If id is empty, we should use get method If id="" then id=Request.QueryString("id") End If Set connection = Server.CreateObject("ADODB.Connection") connection.Open("customers") SQL="SELECT * FROM Customer WHERE ID_Customer like '"&id&"';" Set list=connection.Execute(SQL) 'Separation of the date of birth in several parts birth1=Day(list.Fields("BirthDate")) birth2=Month(list.Fields("BirthDate")) birth3=Year(list.Fields("BirthDate")) %> Cellular Advice NI LTD

Customer's Details

This customer has the following details :


Company Name <%Response.Write(list.Fields("Company_Name"))%>
Name <%Response.Write(list.Fields("Name"))%>
Surname <%Response.Write(list.Fields("Surname"))%>
Address <%Response.Write(list.Fields("Address"))%>
Postal Code <%Response.Write(list.Fields("Postal_Code"))%>
Location <%Response.Write(list.Fields("Location"))%>
Date of Birth <%Response.Write(birth1)%>/<%Response.Write(birth2)%>/<%Response.Write(birth3)%>
Email <%Response.Write(list.Fields("Email"))%>
Contact Phone <%Response.Write(list.Fields("Contact_Phone"))%>
Fax <%Response.Write(list.Fields("Fax"))%>
Network <%Response.Write(list.Fields("Vendor"))%>


<% SQL="SELECT * FROM Notes WHERE ID_Customer like '"&id&"';" Set list=connection.Execute(SQL) 'We count the number of phones that the customer has dim counter counter=0 While NOT list.EOF counter=counter+1 list.movenext() Wend %>

This customer has <% Response.Write(counter)%> note(s). Click here to see details.

Click on the button to add a new note

<% SQL="SELECT * FROM Phone WHERE ID_Customer like '"&id&"';" Set list=connection.Execute(SQL) 'We count the number of notes that the customer has counter=0 While NOT list.EOF counter=counter+1 list.movenext() Wend %>

This customer has <% Response.Write(counter)%> phone(s). Click here to see details.

Click on the button to add a new 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: