<% Response.ContentType = "application/rss+xml" %> <% SQLserveradr="localhost" SQLdatabase="cheatersmambo2" SQLlogin="root" SQLpassword="yqeaqj" Set session("db") = Server.CreateObject("ADODB.Connection") conStr = "driver={MySQL ODBC 3.51 Driver};server="& SQLserveradr &";database="& SQLdatabase conStr = conStr & ";uid="& SQLlogin &";pwd="& SQLpassword & ";OPTION=16386" Session("db").Open conStr function formatDato(D) if isdate(d) then formatDato = Year(D) & "-" & Month(D) & "-" & Day(D) else formatDato = "" end if end function function formatTid(T) if T <> "" then formatTid = Hour(T) & ":" & Minute(T) & ":" & Second(T) else formatTid = "" end if end function function TxtTilDB(txt) TxtTilDB = Replace(Replace(replace(replace(txt,"'","''"),"\'","\ '"),"^\","^ \"),"/^","/ ^") end function function TxtFraDB(txt) TxtFraDB = replace(replace(replace(txt,"''","'"),"^ \","^\"),"/ ^","/^") end function function TxtFraDBTilHTML(txt) TxtFraDBTilHTML = replace(replace(replace(replace(txt,"''","'"),chr(13),"
"),"^ \","^\"),"/ ^","/^") end function function StripText(txt) StripText = Replace(TxtFraDB(txt),"'","") end function Sub UpdateStat(word,hits) Set RecordSet = Server.CreateObject("ADODB.RecordSet") sSQL = "Select * from statistik where searchword='" & word & "'" RecordSet.open sSQL, Session("db"), 1, 3 Dato = Year(Now()) &"-"& Month(Now()) &"-"& Day(Now()) if not RecordSet.eof then sSQL = "update statistik set searches=" & RecordSet("searches")+1 & " ,hits=" & hits & ",lastmodifyed = '" & Dato & "' where searchword='" & word & "'" else sSQL = "insert into statistik(searchword,hits,lastmodifyed,searches) values('" & word & "',"& hits &",'" & Dato & "',1)" end if session("db").execute(sSQL) RecordSet.close Set RecordSet = nothing end Sub Sub ClearStat(fromdate) sSQL = "delete from statistik where lastmodifyed <= '" & fromdate & "'" session("db").execute(sSQL) end Sub Sub ClearPoster() dim taeller,xtaeller Dim fso, msg ZipDBFolder = server.mappath("/FileDB") Set fso = CreateObject("Scripting.FileSystemObject") Set rRecordSet = Server.CreateObject("ADODB.RecordSet") sSQL = "Select * from poster where filnavn <> ' '" ' sSQL = "Select * from poster where filnavn like '%ucf%'" rRecordSet.open sSQL, Session("db"), 1, 3 do while not rRecordSet.Eof Path = server.mappath(rRecordSet("filnavn")) Filename = fso.GetfileName(Path) If (fso.FileExists(ZipDBFolder&"/"&Filename)) Then taeller = taeller +1 else response.write rRecordSet("id")&"-> "& rRecordSet("filnavn") &"
" xtaeller = xtaeller +1 end if ' taeller = taeller +1 ' response.write rRecordSet("id")&"-> "& rRecordSet("filnavn") &"
" rRecordSet.movenext loop response.write "Poster med eksisterende filer: "&Taeller&"
" response.write "Poster med uden eksisterende filer: "&xTaeller rRecordSet.close Set rRecordSet = nothing end Sub %> http://www.cheaters-heaven.com NewsFeed for Cheats, Trainers, FAQs and much more at Cheaters Heaven - www.cheaters-heaven.com - Currently <% Set Record = Server.CreateObject("ADODB.RecordSet") Sql = "SELECT * FROM mos_ch_poster where titel is not null and titel != '' and published = 1 ORDER BY 'id' DESC LIMIT 0, 1" Record.open SQL, Session("db"), 1, 3 do while not Record.eof %> <%=INT(Record("id")*6.3)%> <% Record.Movenext loop set record = nothing %> Cheats en-us Copyright 2005 http://www.cheaters-heaven.com/cheats.rss <% Set Record = Server.CreateObject("ADODB.RecordSet") Sql = "SELECT * FROM mos_ch_poster where titel is not null and titel != '' and published = 1 ORDER BY 'id' DESC LIMIT 0, 100" Record.open SQL, Session("db"), 1, 3 do while not Record.eof %> http://www.cheaters-heaven.com/?ID=<%=Record("id")%> <%=WeekDayName(WeekDay(Record("dato")), True)%>, <% Response.write DatePart("D",Record("dato")) %><% Response.write " " %><%=MonthName(Month(Record("dato")), True)%><% Response.write " " %><%=Year(Record("dato"))%><% Response.write " " & FormatDateTime(Time(), vbShortTime) %> GMT <%=StripText(Record("posttype"))%>: <%=StripText(Record("titel"))%>. Platform: <%=StripText(Record("platform"))%>. Click for the cheat. /Top/Games/Video_Games/Cheats_and_Hints http://www.cheaters-heaven.com/?ID=<%=Record("id")%> <% Record.Movenext loop set record = nothing %>