% on error resume next pse=request("pse") mai=request("mai") BASDON="DBQ=" & server.MapPath("based2/ids.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};" Set CONBASDON=server.createObject("ADODB.Connection") CONBASDON.Open BASDON Set ficpas=server.createObject("ADODB.recordSet") ficpas.open "SELECT * FROM adherent where adhpse='" & pse & "' and adhmai='" & mai & "';",CONBASDON if ficpas.eof=true then aut="" end if %>
![]() |
||||||
|
|
||||||
|
|
||||||
|
||||||