<%@ Language=VBScript %> <% Application("Stats_ConnectionString") = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "db\LJK_DB.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;User Id=Admin;PASSWORD=;" Application("Stats_ConnectionTimeout") = 15 Application("Stats_CommandTimeout") = 30 Application("Stats_CursorLocation") = 3 Application("Stats_RuntimeUserName") = "" Application("Stats_RuntimePassword") = "" Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.ConnectionTimeout = Application("Stats_ConnectionTimeout") DBConn.CommandTimeout = Application("Stats_CommandTimeout") DBConn.CursorLocation = Application("Stats_CursorLocation") DBConn.Open Application("Stats_ConnectionString"), Application("Stats_RuntimeUserName"), Application("Stats_RuntimePassword") Set rsAction = Server.CreateObject("ADODB.Recordset") Set rsAction = DBConn.Execute("select main,radio from stats")%>

hits: <%=rsAction.Fields("main")%> <%=chr(211)%>  2002-2006  loger.net