11.gif border=0>

<% id=trim(Request.QueryString("id")) sid=trim(Request.QueryString("sid")) if id<>"" then Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") conn.open Application("showmdb") rs.Open "select * from fl where fl="& id , conn, 1,3 do while Not RS.Eof Response.Write"
·"& rs("flname") &" " RS.MoveNext loop rs.close set rs=nothing conn.close set conn=nothing end if %>