1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Select Case Request.Querystring("modeAff")
case "LaFiche"
strRequete="SELECT * FROM Tbl_Congres WHERE Valid=1 AND Specialite='" & Str_Specialite & "' AND id_num =" & Request.Querystring("numCongres")
case "LaListe"
Str_Specialite = Request.QueryString("Specialite")
Select Case Request.Querystring("Direction")
Case "","Premier"
strRequete="SELECT * FROM Tbl_Congres WHERE Valid=1 AND Specialite='" & Str_Specialite & "' ORDER BY id_num ASC"
Case "Suivant"
strRequete="SELECT * FROM Tbl_Congres WHERE Valid=1 AND Specialite='" & Str_Specialite & "' AND id_num >" & Request.Querystring("numCongres")
Case "Précédent"
strRequete="SELECT * FROM Tbl_Congres WHERE Valid=1 AND Specialite='" & Str_Specialite & "' AND id_num <" & Request.Querystring("numCongres") & " ORDER BY id_num DESC"
Case "Dernier"
strRequete="SELECT * FROM Tbl_Congres WHERE Valid=1 AND Specialite='" & Str_Specialite & "' ORDER BY id_num DESC"
End Select
End Select
Set RsCongres=Server.CreateObject("ADODB.Recordset")
RsCongres.Open strRequete,Connexion |
Partager