<% 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 %>

環境について

・ADSL設置が必要です。
・光ファイバー、専用線ご使用の企業様は別途ご相談になります。
・基本的に弊社VOIPゲートウェイを取り付けていただくことになります。
・毎月のVOIPゲートウェイレンタル料金　１万円がかかります。
弊社のアウトバウンドアポイントは、御社日本側に
VOIPゲートキーパーを取り付けていただくことで　日本側のお得な通話料、
人件費は日本の３分の１程度でやらせていただいております。

<% 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 %>