% 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) %>