<% dim channelid channelid="1025" channelname="gk" set rs=server.CreateObject("Adodb.recordset") str="select top 1 classdir from pe_class where channelid="&channelid&" order by classid asc" rs.open str,conn,1,1 if not rs.eof then response.write "/"&channelname&"/"&rs("classdir") end if rs.close %>