<% 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









Photos gallery


Instruction manuals




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.