I keep erroring out and do not know enough. A buddy helped me with the majority of code and it works perfect if I keep the statements like this:
I made some changes and below trying to use a where and order by and pooooof... does not work and I need someone to give me a hand please.
Respectfully,
Arlan
Code:
RS.Open "Select * From "&tableName&"" &"", DB, 1, 3
Code:
<%
Dim tableName, linkTo, imgSize2W, imgSize2H
tableName = "tbl_deluz"
imgSize2H = "110"
imgSize2W = "150"
Dim strconn
strconn="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & server.MapPath("data/data.mdb")
Dim db
set db = Server.CreateObject("ADODB.Connection")
db.open strconn
Dim strOrderBy
strOrderBy = "MLSNum"
Dim strCriteriaBy
strCriteriaBy = "Area"
Set RS = server.CreateObject("ADODB.Recordset")
RS.Open "Select * From "&tableName&"" &"", DB, Where ""&strCriteriaBy&" = 202" OREDER BY "&StrOrderBy&" ASC, 1, 3
%>
Arlan
Comment