<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim strMonth,strType
if Trim(Request.QueryString("txtMonth"))<>"" then
strMonth=Trim(Request.QueryString("txtMonth"))
else
strMonth="01"
end if
strType="1"
Dim rsCal
Set rsCal = Server.CreateObject("ADODB.Recordset")
rsCal.ActiveConnection = MM_conn1_STRING
rsCal.Source = "SELECT * FROM dbo.Calendar where selYear=2006 and selMonth="&strMonth&" and Sort='"&strType&"' ORDER BY ID DESC"
rsCal.CursorType = 1
rsCal.CursorLocation = 2
rsCal.LockType = 1
rsCal.Open()
%>
Meet-in-Shanghai.net
Authoritative Guide for Shanghai Tourist and Event Information
