<% @Language = "VBScript"%> <% Option Explicit on error resume next %> SYSMAN COMPUTERS PVT. LTD.(Administration Console) <% 'Retreive Form Value dim newsid newsid = Request.QueryString("NewsID") dim RExp : set RExp = new RegExp with RExp .Pattern = "^[0-9]*$" .IgnoreCase = True .Global = True end with dim splchr : set splchr = new RegExp with splchr .Pattern = "^[#$%&]*$" .IgnoreCase = True .Global = True End with 'Retrieve what page we're currently on 'Retreive News item from database dim sqlst If Not RExp.test(newsid) or splchr.test(newsid) then Response.Write("

Invalid Page Number

") Else sqlst = "select news_date, news_head, news_detail from News where pk_newsid = " & newsid End if oRs.Open sqlst, oConn %>
<%close_connection%>

HOME > NEWS > Detail News


News


<%=oRs("news_head")%>

<%=oRs("news_date")%>
<%=oRs("news_detail")%>

Back