<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsDisplay__MMColParam
rsDisplay__MMColParam = "1"
if (Request.QueryString("Num") <> "") then rsDisplay__MMColParam = Request.QueryString("Num")
%>
<%
set rsDisplay = Server.CreateObject("ADODB.Recordset")
rsDisplay.ActiveConnection = MM_conNot_STRING
rsDisplay.Source = "SELECT Num, Title, HTCode FROM Not2k1 WHERE Num = " + Replace(rsDisplay__MMColParam, "'", "''") + ""
rsDisplay.CursorType = 0
rsDisplay.CursorLocation = 2
rsDisplay.LockType = 3
rsDisplay.Open()
rsDisplay_numRows = 0
%>
Government Notice No.<%=(rsDisplay.Fields.Item("Num").Value)%>
Government Gazette
<%=(rsDisplay.Fields.Item("HTCode").Value)%>
<%
rsDisplay.Close()
%>