|
If cFlRagg = "G" Then
cOrd = "ORDER BY DataApp AND OraApp"
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
Prova così...
altrimenti
rsApp.Open "select * from Appuntamenti & cOrd", conn
|