<% 'on error Resume Next RstblSitePreferences.open "select * from tblSitePreferences",bisconn,2,2 LangID = RstblSitePreferences("CurrentLangID") ATMT = RstblSitePreferences("ATMT") RstblSitePreferences.Close LangID=1 RstblPages.Open "select * from tblpages where ParentID=0 Order by SequenceNo",BISCONN,0,1 if not RstblPages.eof then defaultPage = RstblPages("PID") end if RstblPages.Close if Request.Querystring("pgid") ="" then pgId = defaultPage else pgId = Request.querystring("pgID") End if if Request.Querystring("pgid") ="1" then response.Redirect("index.asp") End if RstblPages.Open "select * from tblpages where PID=" &pgId,BISCONN,0,1 PageTitle = rsTblPages("PageTitle") Keywords = rsTblPages("MetaKeywords") parentid = rsTblPages("parentid") MetaDescription = rsTblPages("MetaDescription") PageHeading = rsTblPages("PageHeading") PageContent = rsTblPages("PageContent") PageBgColor = rsTblPages("PageBgColor") HasProduct = rsTblPages("HasProduct") HasForm = rsTblPages("HasForm") HasServices=rsTblPages("HasServices") pgdir = "ltr" RstblPages.Close set rslinks = server.CreateObject("ADODB.Recordset") %> <% Response.Write "" &vbcrlf &"" &vbcrlf &"" &vbcrlf Response.Write "" &VbCrlf %>

	Search :     Member Login   user name :     password :           Event & News Copyright @ 2008 Enterprise Innovation All Rights Reserved.