<% dim id,rs,exec,rstt,exectt,tt,tt2 id = Server.Htmlencode(request.querystring("id")) if id = "" or not isnumeric(id) then set rs=server.createobject("adodb.recordset") exec="select * from cases order by id desc" rs.open exec,conn,1,1 titlefl = "Successful Cases" else set rstt=server.createobject("adodb.recordset") exectt="select * from cases_fl where id="&id rstt.open exectt,conn,1,1 titlefl = rstt("etitle") if rstt.eof then rstt.close set rstt = nothing conn.close set conn = nothing response.write "" response.end end if set rs=server.createobject("adodb.recordset") exec="select * from [cases] where ssfl="&id&" order by id desc" rs.open exec,conn,1,1 end if %> <%=titlefl%>-<%=config("etitle")%> " /> " />