<%
if Request.QueryString("product")="" then
pro = "general"
else
pro = Request.QueryString("product")
end if
FileName = Server.MapPath("cgi_bin\faq.mdb")
strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & FileName
Set db=Server.CreateObject("ADODB.Connection")
db.Open strProvider
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM faq_table WHERE((faq_table.PRODUCT)= '" & pro & "')",db,3,2
' rs.Open "SELECT * FROM faq_table WHERE((faq_table.PRODUCT)= あつめて☆ミール)",db,3,2
c = rs.recordcount
if c>0 then
Response.Write c & " 件 あります。
"
Do While not rs.EOF
Response.Write "
"
Response.Write rs("QUESTION")
Response.Write "
"
Response.Write rs("DATE")
Response.Write "
"
Response.Write rs("ANSWER")
Response.Write "
"
rs.MoveNext
Loop
else
response.write "現在、該当する項目はありません。"
end if
rs.close
%>