<%@ 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 strq2
ip=Request.ServerVariables("REMOTE_ADDR")
if Request.Form("submit")="Submit" Then
'set objRs=Server.CreateObject(ADODB.recordset)
strq2= "exec ossp_ins_feedback '"&request.Form("pname")&"','"&request.Form("email")&"','"&request.Form("comments")&"','"&date&"','"&ip&"' "
'response.Write(strq)
objConn.execute strq2
End if
%>
<%
Dim htmltxt,i
ip=Request.ServerVariables("REMOTE_ADDR")
if Request.Form("submit")="Submit" Then
Dim myMail
Set myMail=Server.CreateObject("CDONTS.NewMail")
myMail.From="contact@organicspam.com"
myMail.To="webmaster@organicspam.com"
if Request.Form("send_me")="yes" Then
End if
myMail.Subject="Feedback - Organic Spam"
myMail.Bodyformat=0
myMail.mailformat=0
htmltxt="Untitled Document" & _
"
"
myMail.Body=htmltxt
myMail.Send
Set myMail=Nothing
server.Transfer("post_feedback.asp")
End if
%>
Feedback Form
Feedback
Let us know what you feel about this site. Your
feedback is valuable to us and will help us improve in our endeavors
to reach out to the online community
<% 'close connection and recordset...
rs.Close
set rs = nothing
conn.Close
set conn = nothing
%>