<% Dim oConn Dim oRS dim errore dim ssql errore=0 Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sibm.mdb")) ssql="select * from tbl_pw " set oRS=oconn.execute(ssql) if request.form("txtPW")<>ors.fields("password") then errore=1 end if if errore=0 then %>
 

The MEDITS project

 

 Geographical area

 

Partnership

 

Reports

 

 

Publications

 

Photos gallery

 

Instruction manuals

 

Links

 

Reserved Area

 

Copyright statement

Information and photographs presented here are reserved for personal use and cannot be redisseminated or used for commercial purposes.
Moreover, we remind users that the simple capture of personal information, for example, to enrich databases used for commercial or advertising ends is illegal and liable to sanctions.