Paging strul när sökningen retunerar NULL

6 svar · 206 visningar · startad av SteveP 2 maj 2003

StevePMedlem sedan mars 2003772 inlägg

Frågan2 maj 2003 00:50#1

Halloj,

Jag använder ett pagingscript som fungerar utmärkt till en söksida när sökningen hittar 1 eller flera matches.

Men hittar den inget i sökningen så får jag felet

ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
search.asp, line 33

Line 33 är fetstil

sok = Request.Form("Sok")

SQL = "Select * from DollsNyheter Where DollsNyheter.Nyhet Like '%" & sok & "%' OR DollsNyheter.NyhetsRubrik LIKE '%" & sok & "%' order by NyhetsDatum ASC"

Set RsSok = Server.CreateObject("ADODB.Recordset")

intPageSize = 5
intPage = Request.QueryString("page")

If intPage = "" Then intPage = 1

RsSok.PageSize = intPageSize
RsSok.Open SQL, Connect, 3, 1
[b]RsSok.AbsolutePage = intPage[/b]
intTotalPages = RsSok.PageCount

crisse6Medlem sedan dec. 20002 526 inlägg

2 maj 2003 01:28#2

du far gora en If-sats som kollar om det ar tomt:

sok = Request.Form("Sok")

SQL = "Select * from DollsNyheter Where DollsNyheter.Nyhet Like '%" & sok & "%' OR DollsNyheter.NyhetsRubrik LIKE '%" & sok & "%' order by NyhetsDatum ASC"

Set RsSok = Server.CreateObject("ADODB.Recordset")

If RsSok.eof then
response.write "Inget matchade"
Else

intPageSize = 5
intPage = Request.QueryString("page")

If intPage = "" Then intPage = 1

RsSok.PageSize = intPageSize
RsSok.Open SQL, Connect, 3, 1
RsSok.AbsolutePage = intPage
intTotalPages = RsSok.PageCount
'.......... resten av koden
End IF

StevePMedlem sedan mars 2003772 inlägg

2 maj 2003 01:32#3

Lägger jag den där får jag felet

Operation is not allowed when the object is closed.

Jag får error om ja lägger den efter jag öppnar också

SebbeMedlem sedan jan. 20032 285 inlägg

2 maj 2003 08:56#4

Testa med den här.

sok = Request.Form("Sok")

SQL = "Select * from DollsNyheter Where DollsNyheter.Nyhet Like '%" & sok & "%' OR DollsNyheter.NyhetsRubrik LIKE '%" & sok & "%' order by NyhetsDatum ASC"

Set RsSok = Server.CreateObject("ADODB.Recordset")

intPageSize = 5
intPage = Request.QueryString("page")

If intPage = "" Then intPage = 1

RsSok.Open SQL, Connect, 3, 1
If RsSok.EOF Then
  Response.Write("Inga matchningar.")
Else
  RsSok.PageSize = intPageSize
  RsSok.AbsolutePage = intPage
  intTotalPages = RsSok.PageCount

StevePMedlem sedan mars 2003772 inlägg

2 maj 2003 18:07#5

Detdär funka bra Sebbe, jag trodde jag hade testat att lägga det direkt efter jag öppnade recordsettet men tydligen inte.

Hur gör jag på bästa sätt för att skriva ut
Response.Write("Inga matchningar.") mitt på sidan?`

Som det står nu så skrivs det högst upp på sidan.

SebbeMedlem sedan jan. 20032 285 inlägg

2 maj 2003 18:31#6

Du kan ju göra såhär.

sok = Request.Form("Sok")

SQL = "Select * from DollsNyheter Where DollsNyheter.Nyhet Like '%" & sok & "%' OR DollsNyheter.NyhetsRubrik LIKE '%" & sok & "%' order by NyhetsDatum ASC"

Set RsSok = Server.CreateObject("ADODB.Recordset")

intPageSize = 5
intPage = Request.QueryString("page")

If intPage = "" Then intPage = 1

RsSok.Open SQL, Connect, 3, 1
If RsSok.EOF Then
  blnTom = True
Else
  RsSok.PageSize = intPageSize
  RsSok.AbsolutePage = intPage
  intTotalPages = RsSok.PageCount

[b]Mitt på sidan:[/b]

If blnTom Then
  Response.Write("Inga matchningar.")
End If

StevePMedlem sedan mars 2003772 inlägg

3 maj 2003 01:04#7

Super! Tack så hemskt mycket!