<%
id=Request.Form("id")
nid=cdbl(id)
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open("customers")
SQL="SELECT * FROM Customer WHERE ID_Customer ="&nid
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
