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

費用について

【初期費用】
ＶＯＩＰゲートキーパーレンタル費用　　１万円/月
ＶＯＩＰゲートキーパー初期工事費　３万～５万円
１日８時間稼動で月２０日勤務　　８万円（中国人）
１日８時間稼動で月２０日勤務　１５万円（日本人）
が目安になります。
＊アポイントの内容等により多少変動する事があります。

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