MEDITS

<% 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 Data access Photos gallery Links

	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.

<%end if if errore=1 then response.write("Attenzione,tornare indietro con il tasto del browser e ridigitare la password") end if oConn.Close Set oRS = Nothing Set oConn = Nothing %>