<%
dim F_ID,F_Title,F_Name,F_Class,F_Content,F_Connect,FoundErr,F_AddTime,F_RepTime,F_Reply
F_ID=Trim(Request("F_ID"))
sSql="Select * From FaqData Where F_ID =" &F_ID&" Order By F_ID Desc"
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
F_ID=oRs("F_ID")
F_Title=oRs("F_Title")
F_Name=oRs("F_Name")
F_Class=oRs("F_Class")
F_Content=oRs("F_Content")
F_Connect=oRs("F_Connect")
F_AddTime=oRs("F_AddTime")
F_RepTime=oRs("F_RepTime")
F_Reply=oRs("F_Reply")
Else
FoundErr=True
'ErrMsg=ErrMsg & " "
End If
if FoundErr=True then
response.Redirect "index.asp"
end if
oRs.Close
%>
<%= F_Title %>--Shanghai Shibang Machinery CO., LTD.
FAQ -
<%
rssql="select C_ID,C_Name from FaqClass where C_ID="&F_Class
set rs=oConn.execute(rssql)
If Not Rs.Eof Then
abc = rs("C_Name")
response.Write rs("C_Name")
rs.close
end if
%>