|
| <%
set rs=conn.execute("select * from serveinfo where ServeOrder=2")
if not rs.eof then
response.write rs("ServeContent")
end if
rs.close
set rs=nothing
%> |
|
|
|
| ニュース |
|
|
|
<%
sql="select top 5 * from news order by id desc"
set rec= Server.CreateObject("adodb.recordset")
rec.open sql,conn,1,1
%>
<%i=0
do while not rec.eof%>
<%rec.movenext
i=i+1
loop
rec.close %> |
| パートナー |
|
|
<% sql0 = "select top 6 * from brand order by Stock "
Set Rs0=server.CreateObject("adodb.recordset")
Rs0.open sql0,Conn,1,1%>
<% while not rs0.eof %>
| <%if not rs0.eof then%>
<%rs0.movenext
end if%> |
<%if not rs0.eof then%>
<%rs0.movenext
end if%> |
<%
i=i+1
wend%>
|
|
|
| 當社の強み |
|
|
<%
Set Rs = Conn.Execute("Select * From Class Where LagID = 0 Order By Classorder")
IF Not (Rs.EOF AND Rs.BOF) Then
While not rs.eof%>
<%
Rs.MoveNext
Wend
End IF
Rs.Close
Set Rs = Nothing
%>
|
|
