% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLLinkLog, RSLinkLog, FID If Request.QueryString("id") <> "" AND Request.QueryString("id") <> "0" AND IsNumeric(Request.QueryString("id")) = True Then FID = Request.QueryString("id") Else FID = 0 End If SQLLinkLog = " DELETE * FROM [LinkLog] WHERE [ID] = "& cInt(FID) &"" Set RSLinkLog = Server.CreateObject("ADODB.Recordset") RSLinkLog.Open SQLLinkLog, Conn, 1, 3 Set RSLinkLog = Nothing %>
|