<%@ 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_contact_us '"&request.Form("pname")&"','"&request.Form("email")&"','"&request.Form("url")&"','"&request.Form("contact_add")&"','"&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="Contact us - Organic Spam"
myMail.Bodyformat=0
myMail.mailformat=0
htmltxt="Untitled Document" & _
"