|
If cFlRagg = "G" Then
cOrd = " order by DataApp"
Else
cOrd = " order by IdMedico AND DataApp AND OraApp"
End If
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("data/ambulatori.mdb")
Dim rsApp
Set rsApp = Server.CreateObject("ADODB.Recordset")
rsApp.Open "select * from Appuntamenti"&cOrd, conn
__________________
Mik BZ8
|