<%@LANGUAGE="VBSCRIPT"%> <% ' Create Conneciton Object to database and allow all recordsets to use it Option Explicit Response.Expires = 0 ' Define all variables to be used in the object Dim objconn1, RSStar, RSRed Dim strConnection1, StrQ1, strq2 Set objConn1 = Server.CreateObject("ADODB.Connection") strConnection1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("../../databases/db2.mdb") objConn1.Open strConnection1 Set RSStar = Server.CreateObject("ADODB.Recordset") Set RSStar.ActiveConnection = objConn1 strQ1 = "SELECT * FROM Products WHERE Rating = '4' " RSStar.Open strQ1 Set RSRed = Server.CreateObject("ADODB.Recordset") Set RSRed.ActiveConnection = objConn1 strQ2 = "SELECT * FROM products WHERE saveprice > 0 order by saveprice DESC" RSRed.Open strQ2 %>

 

	Welcome to our site: we are currently revising our prices and will back online shortly please call our store on 01472 35 44 44 for the lastest prices!

<% RSred.close RSStar.close objConn1.close %>