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