<%@ Language="VBScript" %>
<% Dim conn,rs,sql,objRs
'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
ip=Request.ServerVariables("REMOTE_ADDR")
if Request.form("submit")="Add Comment" Then
strq="insert into fft_comments (question_id,comment,name,email,sdate,ip) values('"&request.form("qid")&"','"&request.form("comment")&"','"&request.form("name")&"','"&request.form("email")&"','"&date&"','"&ip&"') "
'response.Write(strq)
objConn.execute(strq)
End if
%>
<%
strq="select top 3 * from fft order by id_num desc"
'response.Write(strq)
Set objRs=objConn.execute(strq)
%>
Organic Spam.com-Comments for Food for Thought