<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> <% '================================================= '----- DB接続 '================================================= Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= c:\Acc_Faq\collective\accasp.mdb" StrSQL = "select * from M_大分類 " Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 ID = Request("ID") ID_C = Request("ID_C") if len(ID) = 0 then ID = 0 end if if len(ID_C) = 0 then ID_C = 0 end if %> コレクティブプランテクニカルFAQ - レンタルサーバー・ホスティングのアキュラック

  レンタルサーバー・ホスティングのアキュラック

スペーストップ料金プランサーバ機能サポート窓口お申し込みよくあるご質問ご利用までの流れスペース
サポート窓口

 コレクティブプラン・テクニカルFAQ

<% Do until ObjRS.EOF %> <% if cint(ID)=ObjRS.Fields("ID_dai") then %> <% end if %> <% ObjRS.MoveNext loop %>
オンラインマニュアル
"><%=ObjRS.Fields("大分類")%>
<% StrSQL2 = "select * from (T_FAQ a inner join M_大分類 b on a.大分類 = b.ID_dai) " StrSQL2 = StrSQL2 & " inner join M_中分類 c on a.中分類 = c.ID_chu where a.大分類 = " & ID StrSQL2 = StrSQL2 & " order by a.中分類 " Set ObjRS2 = Server.CreateObject("ADODB.Recordset") ObjRS2.Open StrSQL2, ObjConn,3,3 %> <% Do until ObjRS2.EOF Id_chu = ObjRS2.Fields("ID_chu") if strcomp(Id_chu,ic) <> 0 then %> <% ic = ObjRS2.Fields("ID_chu") end if ObjRS2.MoveNext loop %>
&ID=<%=ObjRS2.Fields("ID_dai")%>"><%=ObjRS2.Fields("中分類")%>

<% StrSQL = "select * from (T_FAQ a inner join M_大分類 b on a.大分類 = b.ID_dai) " StrSQL = StrSQL & " inner join M_中分類 c on a.中分類 = c.ID_chu where a.中分類 = " & ID_C StrSQL = StrSQL & " order by a.中分類 " Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 Dim que Dim ans Dim ten %>
<% if not ObjRS.EOF then %>
<% end if %> <% Do until ObjRS.EOF que = ObjRS("質問") ans = ObjRS("回答") ten = ObjRS("転送") %> <% if instr(ten,"http")>0 then %>

Q.<% = que %>

A.<% = ans %>

転送 : <% = ten %>


<% else %>

Q.<% = que %>

A.<% = ans %>


<% end if %> <% ObjRS.MoveNext loop %>
FAQにて解決できない場合は、問い合わせフォームよりお問い合わせください。



TOP料金プランサーバ機能サポート窓口お申し込みよくある質問ご利用までの流れ
アキュラック会社情報 | 個人情報について契約約款 | 

レンタルサーバー・ホスティングのアキュラック <% '================================================= '----- DB閉じる '================================================= ObjConn.Close Set ObjConn = Nothing %>