Eventi RGS

RGS al FORUM P.A.

<% SQLQuery = "select top 1 id, szurl, szdir from dirs where lnumfather=2542 and ngroup=30 order by npriority" Set RSRarchivio = Server.CreateObject("ADODB.Recordset") RSRarchivio.Open SQLQuery, OBJdbConnectionRGS, 1, 3 if not RSRarchivio.eof then percorso = RSRarchivio("szdir") & RSRarchivio("szurl") end if RSRarchivio.close set RSRarchivio = nothing response.redirect(percorso) %>