      <%set rs=server.CreateObject("adodb.recordset")
      rs.Open "select * from shop_imagelinks  where weizhi=2 and xianshi=1 order by linkidorder",conn,1,1
      do while not rs.EOF
      response.Write "<a href="&trim(rs("linkurl"))&" target=_blank><img src="&trim(rs("imagelinks"))&"  border=0></a><table width=100% border=0 cellspacing=0 cellpadding=0 height=5><tr><td></td></tr></table>"
      rs.MoveNext
      loop
      rs.Close
      set rs=nothing
      %>