Sort By
&sortBy=Price">Price
Filer By
+white+gold">White Gold
+platinum">Platinum
+gold">Yellow Gold
|
<%
'0=======================================
'0========Shows the selected products=========
'0=======================================
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
Conn.Open "xxx", "xxx", "xxx"
sortBy = Request.Querystring("sortBy")
if sortBy <> "" then
sortBy = Request.Querystring("sortBy")
else
sortBy = "ID"
end if
arrWords=split(request.querystring("q")," ")
strWhere=""
for each strWord in arrWords
if strWord<>"" then
if strWhere<>"" then strWhere = strWhere & " AND "
strWord=replace(strWord,"'","''")
strWhere= strWhere & " (productItemId LIKE '%" & strWord & "%' OR " &_
" design LIKE '%" & strWord & "%' OR " &_
" smalldesc LIKE '%" & strWord & "%' OR " &_
" productTypeID LIKE '%" & strWord & "%' OR " &_
" productCategoryID LIKE '%" & strWord & "%' OR " &_
" catalogID LIKE '%" & strWord & "%' OR " &_
" name LIKE '%" & strWord & "%')"
end if
next
if strWhere<>"" then strWhere = " WHERE " & strWhere
sql = "SELECT * FROM productItem " & strWhere & " order by " & sortBy & " ASC"
'set rs = Conn.execute(sql)
'response.write sql
rs.Open sql, Conn, 3, 3
intPage = Request.QueryString("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
'if NOT rs.eof then
if rs.eof then
response.write "No standard items containing all your search terms were found.
"
response.write "Your search - "&request.querystring("q")&" - did not match any documents.
"
response.write "Suggestions:
"
response.write "- Make sure all words are spelled correctly.
"
response.write "- Try different keywords.
"
response.write "- Try more general keywords.
"
response.write "- Try fewer keywords."
else
rs.PageSize = 12 'Number of item in one page
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
intCounter = 0
Do While Not rs.EOF And intRecCount > 0
intRecCount = intRecCount - 1
intCounter = intCounter + 1
%>
```
och sedan kan jag inte fa next och previous lankarna att funka, skulle va tacksam for hjalp...
Permalänk: https://www.webforum.nu/p/134447
## #2 — emission, 2005-09-17T16:02Z
Det kan du inte. Du måste göra sökningen innan du gör page-navigationen.
Permalänk: https://www.webforum.nu/p/1672908
## #3 — Gimbo, 2005-09-17T16:05Z
och hur skulle det se ut?
Permalänk: https://www.webforum.nu/p/1672910
## #4 — emission, 2005-09-17T16:18Z
Prova själv först :)
Permalänk: https://www.webforum.nu/p/1672915
## #5 — Gimbo, 2005-09-17T16:25Z
jag forsoker hela tiden, men jag forstor hela sidan bara, eftersom det jag vill skriva ut nar sokningen inte hittar ngt blir placerad fel.
Permalänk: https://www.webforum.nu/p/1672919
## #6 — J.N., 2005-09-19T13:20Z
HEJ!
> **emission skrev:**
>
> Det kan du inte. Du måste göra sökningen innan du gör page-navigationen.
Jag tror att emission menar att du måste flytta din fråga ovanför din paging.
Då vet du hur många sidor du ska länka till osv.
Permalänk: https://www.webforum.nu/p/1673284
## #7 — Gimbo, 2005-09-19T16:37Z
det ar det jag gor... har flyttat det over pagingen, men det ar da jag vill kontrollera om inget finns i databasen dvs da rs.eof som det strular, rs.eof hamnar i tabellen dar pagingen skrivs ut och hela sidan ser konstig ut :(
Permalänk: https://www.webforum.nu/p/1673380
## #8 — Gimbo, 2005-09-19T16:52Z
fick det att funka, men hur gor jag sa att next och last lankarna skall fungera?
Permalänk: https://www.webforum.nu/p/1673390
## #9 — emission, 2005-09-19T19:01Z
Next = länk till (intPage+1) som endast ska visas om intPage\1
Permalänk: https://www.webforum.nu/p/1673430
## #10 — Gimbo, 2005-09-19T21:07Z
ok man tackar!
Permalänk: https://www.webforum.nu/p/1673466
---
Tråden på webben: https://www.webforum.nu/amne/asp/134447-paging-igen
|
