<%@ Language="VBScript" %> <% if request.querystring("qid")="" Then server.Transfer("page_not_found.asp") response.End() End if %> <% Dim conn,rs,sql,objRs2 'create connection set conn = server.CreateObject ("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("fpdb/engglas.mdb") 'query to select active data... sql = "SELECT * FROM title, vote where title.active = 'y' and title.id = vote.id" set rs = server.CreateObject ("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% Dim strq,ip,objRs strq="select top 3 * from fft order by id_num desc" 'response.Write(strq) Set objRs=objConn.execute(strq) %> <% Dim objRs3 ip=Request.ServerVariables("REMOTE_ADDR") strq="select * from fft where id_num="&Request.QueryString("qid")&"" 'response.Write(strq) Set objRs3 = objConn.execute(strq) While not objRs3.EOF %> Organic Spam.com - <%=objRs3("question")%>



Food for Thought


Thought: <%=objRs3("question")%>
<%=objRs3("answer")%>

<% objRs3.movenext Wend objRs3.close Set objRs3=nothing %>

<% Set objRs2=objConn.execute("select top 15 id_num,name,left(comment,100) as comment from fft_comments where question_id="&Request.QueryString("qid")&" order by id_num desc") %> <% While not objRs2.EOF %> <% objRs2.movenext Wend %>
Posted By Comment
<%=objRs2("name")%> <%=objRs2("comment")%> ... &qid=<%=request.QueryString("qid")%>" class="blue">more »
Post Your Comment
Name :
Email :
Comments :
" name="qid" m>
Disclaimer
 
<% 'close connection and recordset... rs.Close set rs = nothing conn.Close set conn = nothing %>