I see.
1st there is the list page.
Dim rsSearchResult
Dim rsSearchResult_numRows
Set rsSearchResult = Server.CreateObject("ADODB.Recordset")
rsSearchResult.ActiveConnection = MM_datab_STRING
rsSearchResult.Source =
"SELECT custname, town, description,
FROM seller
WHERE Selection LIKE '%" + Replace(rsList__MMColParam, "'", "''") + "%'
AND cattitle LIKE '%" + Replace(rsList__MMColParam2, "'", "''") + "%'
AND location LIKE '%" + Replace(rsList__MMColParam3, "'", "''") + "%'"
rssearchresult.CursorType = 0
rssearchresult.CursorLocation = 2
rssearchresult.LockType = 1
rssearchresult.Open()
rssearchresult_numRows = 0
Then the detail page
Dim rscustomerdetails
Dim rscustomerdetails_numRows
Set rscustomerdetails = Server.CreateObject("ADODB.Recordset")
rscustomerdetails.ActiveConnection = MM_datab_STRING
rscustomerdetails.Source = "SELECT * FROM seller"
rscustomerdetails.CursorType = 0
rscustomerdetails.CursorLocation = 2
rscustomerdetails.LockType = 1
rscustomerdetails.Open()
rscustomerdetails_numRows = 0
|