<% 'Om '--- Connect to Alumni Database dim rs,myerr,slno,j,thumb,photo,pdesc,pid,t 'site_root=devserver/websites4/ramendra Set rs = Server.CreateObject("ADODB.Recordset") 'if Request.QueryString("iam") <> "ami" then ' Response.End() 'end if myerr="" pid=trim(Request.QueryString("pid")) t=trim(Request.QueryString("t")) if t<>"" then t=cint(t) end if if pid="" or isNumeric(pid)=false then myerr="No records found" elseif CInt(pid)<=0 then myerr="No Records found" else pid=CInt(pid) Set rs = Server.CreateObject("ADODB.Recordset") end if set rs=conn.execute("select file1,file2 from news where slno=" & pid) if rs.bof then myerr="No Records Found" else if cint(t)=1 then photo= "newsfiles/" & rs("file1") elseif cint(t)=2 then photo="" photo= "newsfiles/" & rs("file2") ' response.write rs("file2") end if 'pdesc=rs("photo_description") end if rs.close 'end if if myerr<>"" then Response.End() end if %> www.nitrkl.ac.in
<%'replace(pdesc,"",chr(39))%>