<% if rscz.bof and rscz.eof then response.write "ｹﾜﾀ橳ｱﾔﾝﾊｱﾃｻﾓﾐﾌ晴ﾓｷｿﾔｴ!" else while not rscz.eof%> <% rscz.movenext wend end if rscz.close set rscz=nothing %>

<% if rscs.bof and rscs.eof then response.write "ｹﾜﾀ橳ｱﾔﾝﾊｱﾃｻﾓﾐﾌ晴ﾓｷｿﾔｴ!" else while not rscs.eof%> <% rscs.movenext wend end if rscs.close set rscs=nothing %>

無料お問い合わせフォーム

会社名
代表者
担当者
住所
FAX
E-mail
ご要望

<% set rsTOP=server.createobject("adodb.recordset") sqlTOP="select top 6 * from news where mytype='ﾈﾈｵ耙ﾂﾎﾅ' order by lls desc" rsTOP.open sqlTOP,conn,3,3 for i=1 to 10 %> <% rsTOP.movenext if rsTOP.eof then exit for next rsTOP.close %>

<% set rsnew=server.createobject("adodb.recordset") sqlnew="select top 6 * from news where mytype='ｷｿｲ昻ﾂﾎﾅ' order by id desc" rsnew.open sqlnew,conn,3,3 for i=1 to 10 %> <% rsnew.movenext if rsnew.eof then exit for next rsnew.close %>

<% dim t Set RsSmall=Server.Createobject("ADODB.Recordset") RsSmallSrt="select top 14 * from news where mytype='ｷｿｲ晗ｪﾊｶ' order by id desc" RsSmall.Open RsSmallSrt,Conn,1,3 %> <% t=0 while not RsSmall.eof %> <% t=t+1 if t=2 then t=0 %><% end if RsSmall.movenext wend %>