• <%content=conn.execute("select content_jp from koba_News where leftlinkClass=18 ")(0) response.Write(content)%>

      <%Set rs = Server.CreateObject("ADODB.RecordSet") sql="select top 4 id,title_jp,pic from koba_Products order by up desc,Preface asc,id desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then%>
    • Not information!
    • <% else do while not rs.eof %>
    • <%=rs("title_jp")% border='0'>

      <%=rs("title_jp")%>

    • <% rs.MoveNext loop end if rs.Close Set rs = Nothing %>