%@Language=VBScript %> <% response.buffer = true%> <% Dim Conn Dim ConnString Dim Recordset 'Dim sql ConnString="DRIVER={SQL Server};SERVER=209.160.40.49;UID=muda;" & _ "PWD=2!o97s#;DATABASE=MUDAWEB" Set Conn = Server.CreateObject("ADODB.Connection") Set Recordset = Server.CreateObject("ADODB.Recordset") Conn.Open ConnString if session("User")<>"" and session("LID")<>"" then sqlpermission="select * from User_Login where Login_Id="&session("LID")&"" set rspermission=server.createobject("ADODB.RecordSet") rspermission.open sqlpermission,conn,adopenstatic end if %> <% 'InternetExplorer.AddressBar=false Dim sql if conn.state = 0 then conn.open sql= "select NB_ID,NB_Heading,NB_Desc from index_noticeboard" set rs=server.createobject("ADODB.Recordset") rs.open sql,conn,adopenstatic %>