<% option explicit %> <% dim cnn dim strSql dim nom,cognom,num,pob dim rsAdv dim primer dim texto Set cnn = Server.CreateObject("ADODB.Connection") cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("125adv1029.mdb") set num= Request.QueryString("num") if num <> empty then strSql = "Select * From collegiats where numcol = " + num +" " else strSql = "Select * From collegiats " end if set rsAdv = cnn.execute(strSql) %> Documento sin título  
DADES DEL COL·LEGIAT

<% response.Write("") %> <% response.Write("") %> <% response.Write("") %> <% response.Write("") %> <% response.Write("") %> <% response.Write("") %> <% response.Write("") %> <% response.Write("") %> <% response.Write("") %> <% response.Write("") %> <% response.Write("") %>
Dades  Resultat Fitxa 
Nom:  " & rsAdv("nom").value &"
Cognoms:  " & rsAdv("cognoms").value &"
Número de Col.legiat:  " & rsAdv("numcol").value &"
Domicili:  " & rsAdv("adreca").value &"
Població:  " & rsAdv("poblacio").value &"
Codi Postal:  " & rsAdv("codipostal").value &"
Telèfon:  " & rsAdv("telefon").value &"
Mòbil:  " & rsAdv("mobil").value &"
Fax:  " & rsAdv("fax").value &"
Email:  " & rsAdv("email").value &"
Estat:  " & rsAdv("estat").value &"

 

<% rsAdv.close set rsAdv=nothing %>