<%
if request.QueryString("OPE") = "W" then

    on error resume next

    ' PERCORSO DEL DATABASE
    url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/dbpesca.mdb")

    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open url_DB

    Set RS = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT * FROM coordinate"
    RS.Open SQL, conn, adOpenStatic, adLockOptimistic

    RS("X") = request.QueryString("X")
    RS("Y") = request.QueryString("Y")

    RS.Update

    RS.Close

    conn.Close

    set RS = nothing
    set conn = nothing

    if err.number <> 0 then response.Write(Err.Description + " ----> " + Err.Source) else response.Write("OK, stai muovendo.")

elseif request.QueryString("OPE") = "R" then

    on error resume next

    ' PERCORSO DEL DATABASE
    url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/dbpesca.mdb")

    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open url_DB

    Set RS = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT * FROM coordinate"
    RS.Open SQL, conn, adOpenStatic, adLockReadOnly

    X = trim(cstr(RS("X")))
    Y = trim(cstr(RS("Y")))

    RS.Close

    conn.Close

    set RS = nothing
    set conn = nothing

    c = ""

    for i = len(X) to 9
        c = c + "0"
    next

    c = c + X

    for i = len(Y) to 9
        c = c + "0"
    next

    c = c + Y

    if err.number <> 0 then
        response.Write(Err.Description + " ----> " + Err.Source)
    else
        response.Write(c)
    end if


end if

%>