<%@ 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")="Send Message" 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 server.Transfer("post_contact_us.asp") End if %> Organic Spam.com



Raise your Voice

Use the form below to Raise your voice

Read and Edit Messages
Subject:
Message:
  Your signature will be added from the information you'll provide.
   
Name:
Email:
Street:
City:
State/Region:
Zip:
   
 
   
  (* = Required)
 

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