|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
<% if request.querystring("sort")<>"" then sort=request.querystring("sort") else sort="DATA_INIZIO ASC" end if %> <% Dim RS, Conn Set Conn = Server.CreateObject ("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.Recordset") SQL = "SELECT * FROM CORSI WHERE DATA_INIZIO> NOW ORDER BY " & sort Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/DB_home.mdb") RS.open SQL,Conn,3 %> <% i = 0 while not RS.EOF if instr(RS("FARMACISTI"), "ECM") <> 0 or instr(RS("CHIMICI"), "ECM")<> 0 or instr(RS("BIOLOGI"), "ECM")<> 0 or instr(RS("VETERINARI"), "ECM")<> 0 then crediti = "accreditato ECM" else crediti = "" end if %> |
Per contattare la redazione di BiolabNews : press@biolab.it Per contattare il Centro di Formazione Biolab : formazione@biolab.it Per contattare l'ufficio stampa di Eurofins Biolab : press@biolab.it
|