<%
Set BT = Server.CreateObject("MSWC.BrowserType")
NowMonth=request.querystring("Month")
if NowMonth = Empty then
NowMonth = cint(Month(Date))
end if
set Conn=server.createobject("ADODB.Connection")
Conn.Open Session("dbConnection")
Set RsNews = Server.CreateObject("ADODB.Recordset")
SQL = "Select DateS From dbNewsContent Where IsShow='Y' Order By DateS"
RsNews.Open SQL, conn, 1, 1
MonthS = cint(Month(RsNews("DateS")))
RsNews.Close
%>
Interserv game
