 |
<%
Dim rsFAQ, faqnb
Set rsFAQ = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT ID, Question FROM FAQ"
rsFAQ.Open strSQL, Application("strConn"), 1, 2, 1
if Request("faqnb") <> "" then
faqnb = Request("faqnb")
else
faqnb = 1
end if
%>
|
<%
Dim conFAQ, strSQL
Set rsFAQ = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Question, Answer, Views FROM FAQ WHERE ID="&faqnb
rsFAQ.Open strSQL, Application("strConn"), 1, 2, 1
rsFAQ("Views")=rsFAQ("Views")+1
rsFAQ.update
%>
<%=rsFAQ("Question")%>
<%=rsFAQ("Answer")%>
<%rsFAQ.Close%>
|
|
