%@ language=VBScript %>
<%
dim strSQL, section1, section2, section3
set conn = server.createobject ("adodb.connection")
'conn.open "Driver={MySQL ODBC 3.51 Driver}; Server=mysql02.iomart.com; Database=allemax; UID=allemax; PWD=Marky21; Option=3"
'set Connection=server.createobject("adodb.connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath(".") & "\data\data.mdb"
'Set rsList = CreateObject("adodb.recordset")
strSQL = "Select * from products where category='Ecotex'"
set rstdata = conn.Execute(strSQL)
%>
Stain Resistant & Dirt Resistant Blinds