---
title: "Behöver ny hjälp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10901-behöver-ny-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "LordJens"
published: "2001-08-01T09:00:00.000Z"
updated: "2001-08-03T07:14:00.000Z"
replies: 12
views: 254
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10901-behöver-ny-hjälp"
---

# Behöver ny hjälp

## #1 — LordJens, 2001-08-01T09:00Z

Jag har frågat om det här en gång tidigare, men jag får det inte att fungera, nya problem uppstår bara.

```
   Set RecSet = Server.CreateObject("ADODB.Recordset")
   SokRes = "SELECT * FROM links WHERE namn LIKE '%"& Request.Form("sok") &"%' OR beskrivning LIKE '%"& Request.Form("sok") &"%' ORDER BY real_kat"
   RecSet.Open SokRes, Connect

   If RecSet.EOF Then %>

Hittade inga länkar.

<% Else %>

<B>SÖKRESULTAT</B><BR>
Sökord: <B><%=Request.Form("sok")%></B><P>

<% Do Until RecSet.EOF 

   Current_kat = RecSet("kategori")
%>

<B><%=RecSet("real_kat")%></B><BR>

<% Do While RecSet("kategori") = Current_kat %>

<%=RecSet("namn")%><BR>
<%=RecSet("url")%><BR>
<I><%=RecSet("beskrivning")%></I><P>

<% RecSet.MoveNext   
   Loop
   Loop
   RecSet.Close
   End If

   ElseIf Request.Form("kat_search") = "true" Then
   Set RecSet = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT * FROM links WHERE kategori = '" & Request.Form("kategorival") & "' ORDER BY kategori"
   RecSet.Open Visa, Connect 
%>

<b><%=RecSet("real_kat")%></b><BR>

<% Do Until RecSet.EOF %>
url: <%=RecSet("url")%><BR>
<I>"<%=RecSet("beskrivning")%>"</I><P>

<% RecSet.MoveNext
   Loop

   RecSet.Close
```

...är en sökmaskin, som fungerar nästan. Den ger de rätta resultaten, men i slutet får jag det irriterande felmeddelandet:

```
fel '80020009' 
Undantag inträffade. 
/kdrc/linktest.asp, rad 62
```

Permalänk: https://www.webforum.nu/p/10901

## #2 — Eclipse, 2001-08-01T09:17Z

Kolla på rad 62 och om den ser okej ut, kolla raden ovanför.

Permalänk: https://www.webforum.nu/p/279477

## #3 — LordJens, 2001-08-01T10:23Z

```
Current_kat = RecSet("kategori")
```

...är rad 62.

Permalänk: https://www.webforum.nu/p/279478

## #4 — LarsG, 2001-08-01T11:08Z

Vilken datatyp har kolumnen kategori?

Du kan ha råkat ut för problemet med pm/memo (eller text om du inte använder Access) datatypen. 

Om man har en kolumn med en sådan datatyp så kan man inte ha flera referenser till det fältet i recordsetet. Du kan ju testa att skriva så här i stället:

```
<% Do Until RecSet.EOF 

Current_kat = RecSet("kategori")
%>

<B><%=RecSet("real_kat")%></B><BR>

newKat = current_kat
<% Do While newKat = Current_kat %>

<%=RecSet("namn")%><BR>
<%=RecSet("namn")%><BR>
<%=RecSet("url")%><BR>
<I><%=RecSet("beskrivning")%></I><P>

<% RecSet.MoveNext 
if RecSet.eof then exit do
newKat = RecSet("kategori")
```

Permalänk: https://www.webforum.nu/p/279479

## #5 — LordJens, 2001-08-01T11:23Z

Jag fälten är av typen Text och jag använder Access, så det bör väl inte vara nåt problem.

Permalänk: https://www.webforum.nu/p/279480

## #6 — Eclipse, 2001-08-01T11:59Z

Defaultinställningen för fältet 'text' är 50 tecken. Välj mer om så behövs. Dessutom måste man markera valet 'tillåt noll-längd' om man vill att fältet ska kunna vara tomt.

Permalänk: https://www.webforum.nu/p/279481

## #7 — LordJens, 2001-08-01T12:09Z

Nu har jag ändrat allt så att det skall tillåta nollläge, men det funkar ändå inte :(.

Permalänk: https://www.webforum.nu/p/279482

## #8 — emission, 2001-08-01T12:33Z

Testa det som LarsG skrev.

Fältlängd och "nolltillåtelse" är inte intressant här, eftersom du bara plockar ut värden.

\[Redigerat av emission den 01 aug 2001\]

Permalänk: https://www.webforum.nu/p/279483

## #9 — Koplik, 2001-08-01T13:54Z

Jag gillar inte det där att du har 2 loopar när det inte behövs...

Nu drar jag bara ett liknande ur skallen,, men du listar nog ut likheten.

Curr_Kat = ""
Do While Not RS.EOF
If RS("Kategori") \<\> Curr_Kat Then
  Response.Write "\<b\>" & RS("Kategori") & "\</b\>"
End If

Response.Write RS("Namn") & ", " & RS("URL") & ", " & RS("Beskr")

Curr_Kat = RS("Kategori")
RS.MoveNext
Loop

Är jag helt ute och seglar...
Dålig läsare på massor med kod...
Blir så trött... :)
Sorry! :e

Permalänk: https://www.webforum.nu/p/279484

## #10 — LordJens, 2001-08-01T15:54Z

Till emission och LarsG:
Jag testade koden. Jag måste först komplettera den med lite Loop:ar, som du glömt. Din kod ger tyvärr samma resultat.

Till Koplik:
Jag är inte helt 100 på det, men jag tror nog att jag behöver två loopar. Det skall alltså lista så att först kommer en rubrik och sedan de poster som hör till rubriken. 
Den första loopen drar genom rubrikerna, den andra de underliggande posterna.

Permalänk: https://www.webforum.nu/p/279485

## #11 — Koplik, 2001-08-02T07:26Z

Kära LordJens.
Jag antar att Kategorirubrikerna ligger i samma recordset (efter kollat i koden så såg jag det) och då antar jag att Kategorirubrikerna finns med i varje post... Alltså så räcker det med att köra en loop som jag demonstrerade tidigare.
Jag använder ju en variant som innehåller föregående post's Kategorirubrik... och om den inte matchar mot nästa posts katrub så skriver den ut det, då är det ju en ny.
Och efter varje katrub så skriver den ju ut de underliggande posterna, utan katrub.

Men det är ju kanske inte så nog med att du måste ha 2 nästlade loopar, men jag tycker det är obehagligt när man måste använda sig av det och undviker det helst... men ibland så går det ju inte...

Lycka till med problemet iaf. :)

Permalänk: https://www.webforum.nu/p/279486

## #12 — LordJens, 2001-08-02T18:57Z

TUSEN TACK till alla som hjälpte, speciellt till Koplik. Nu fungerar det fint, tror jag i alla fall ;).

Permalänk: https://www.webforum.nu/p/279487

## #13 — Koplik, 2001-08-03T07:14Z

Anytime!

Permalänk: https://www.webforum.nu/p/279488

---

Tråden på webben: https://www.webforum.nu/amne/asp/10901-behöver-ny-hjälp