<%@ Language="VBScript" %> <% Dim conn,rs,sql '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 tv,objRs2 ip=Request.ServerVariables("REMOTE_ADDR") if request.QueryString("id")<>"" Then strq="select * from ask_se where id_num="&Request.QueryString("id") Set objRs2=objConn.execute(strq) End if %> Organic Spam.com



<% While not objRs2.eof tv=Cint(objRs2("total_view"))+1 %>
Posted on : <%=objRs2("sdate")%>  
Total Views : <%=tv%>

Subject : <%=objRs2("subject")%>
Name : <%=objRs2("pname")%>
Email : <%=objRs2("email")%>
Search Engine : <%=objRs2("se")%>
Question : <%=objRs2("comments")%>
 
<% objRs2.movenext Wend objRs2.close Set objRs2=nothing objConn.execute("update ask_se set total_view="&tv&" where id_num="&request.QueryString("id")) %>

 
<% 'close connection and recordset... rs.Close set rs = nothing conn.Close set conn = nothing %>