<% ' Fruibile - L'elemento CMS Open Source che mancava ' Copyright (C) 2002-2006 Roberto Scano ' ' Licensed under the terms of the GNU Lesser General Public License: ' http://www.opensource.org/licenses/lgpl-license.php ' ' For further information visit: ' http://www.fruibile.it/ ' ' File Author: ' Roberto Scano (mail@robertoscano.info) %> <% 'controllo sicurezza -------------- if Session("WEBGODLogin") <> "W3C_VALIDATOR" then If session("manutenzione")<> 1 Then response.Redirect "/backoffice/noentry.asp" end if end if '---------------------------------- 'Prevent your website from cross website attacks --------- refererUrl = Cstr(Request.ServerVariables("HTTP_REFERER")) serverName = Cstr(Request.ServerVariables("SERVER_NAME")) refererName = mid(refererUrl,8,len(serverName)) if refererName <> serverName then response.Redirect "/backoffice/noentry.asp" response.end end if '--------------------------------------------------------- %> <% If InStr(Request.ServerVariables("HTTP_ACCEPT"), "application/rdf+xml") > 0 Then Response.ContentType = "application/rdf+xml" Else Response.ContentType = "text/xml" End If Set rst = Server.CreateObject("ADODB.Recordset") Set cat = Server.CreateObject("ADOX.Catalog") ' Apre il catalogo Set cat.ActiveConnection = conn nTotalTables = CInt(cat.Tables.Count) 'tabelle response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf For t = 0 to nTotalTables -1 response.write "" & vbcrlf Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from " & cat.Tables(t).Name rs.open sql, conn, adOpenStatic, adLockOptimistic if rs.EOF AND rs.BOF Then else response.write "" while not rs.eof 'estrae dati For i = 0 to CInt(cat.Tables(t).Columns.Count) -1 if len(rs(cat.Tables(t).Columns(i).Name)) > 0 then select case cat.Tables(t).Columns(i).Type case 135 response.write "" & year(rs(cat.Tables(t).Columns(i).Name)) & "-" & month(rs(cat.Tables(t).Columns(i).Name)) & "-" & day(rs(cat.Tables(t).Columns(i).Name)) & " " & hour(rs(cat.Tables(t).Columns(i).Name)) & ":" & minute(rs(cat.Tables(t).Columns(i).Name)) & ":" & second(rs(cat.Tables(t).Columns(i).Name)) & "" case 200 response.write "" & server.HTMLencode(rs(cat.Tables(t).Columns(i).Name)) & "" case else response.write "" & rs(cat.Tables(t).Columns(i).Name) & "" end select else response.write "NULL" end if next RS.MoveNext Wend response.write "" & vbcrlf end if rs.close SET RS = nothing response.write "" & vbcrlf Next response.write "" & vbcrlf response.write "" conn.close set conn=nothing %>