---
title: "Några frågor ang. asp och databaser m.m."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/80335-några-frågor-ang-asp-och-databaser-m-m/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Coccozz"
published: "2003-06-23T09:21:17.000Z"
updated: "2003-06-24T19:56:18.000Z"
replies: 23
views: 529
page: 2
pages: 2
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/80335-några-frågor-ang-asp-och-databaser-m-m"
---

# Några frågor ang. asp och databaser m.m.

_Sida 2 av 2._

## #21 — KoTTeN, 2003-06-24T11:15Z

Det var så lite så!

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

## #22 — Coccozz, 2003-06-24T12:29Z

Mycket för mig, ifall ja skulle gjort d själv asså :) 
Tack igen :birp

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

## #23 — Coccozz, 2003-06-24T17:55Z

Har fått mer problem när jag gjorde en annan sak...
Jag har satt ihop en kod för att visa innehåll i en kategori som är gjord för olika recept. Dock kommer skriptet ursprungligen från Åsa Gruvsjös skämtdatabas...
Felmeddelandet jag får är:

```
ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/FOOOD/kat.asp, line 24
```

Här är koden som jag har på den sidan...\[kat.asp\] :

```

<%If Request.QueryString("kat") = "" Then%>

<%End If 
If Request.QueryString("kat") <> "" Then

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

Const skps1 = 5
Sidan = Request.QueryString("sida")
Kat = Request.QueryString("kat")
If Sidan = "" then 
   sida = 1 
Else 
   sida = Sidan 
End If 

With rs
  .CursorLocation = 3
  .CacheSize = skps1
End With

SQL = "SELECT * FROM skamt Where kategori=" & Kat
rs.Open SQL, MinCon

If rs.EOF Then%>
        <tr>
          <td width="100%" valign="top" colspan="2">Inga recept i denna kategori ännu!</td>
        </tr>
<%Else

With rs
  .MoveFirst 
  .PageSize = skps1
  .AbsolutePage = sida
End With

Sidor =  rs.PageCount
x = 0 
Do While Not rs.EOF And x < rs.PageSize%>

  <tr> 
    <td width="75%"><a href="rec.asp?id=<%=rs("id")%>"><%=rs("rubrik")%></a></td>
	<td width="25%"><%=rs("diff")%>
</td>
</tr>
   <tr>
      <td height="1" valign="top"><hr color="#737373"></td>
    </tr>
  <tr>
<%x=x+1 
rs.MoveNext
Loop
rs.Close%>
  <tr>
     <td valign="top">
<%If Sidor <> 1 Then

For Sid = 1 To Sidor
  If (Int(Sid)) = (Int(sida)) Then%><b><%=Sid%></b><%Else%> <a href="kat.asp?kat=<%=Request.QueryString("kat")%>&sida=<%=Sid%>"><%=Sid%></a> <%End If
Next%> 

<%End If
End If
End If%>
```

//Coccozz

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

## #24 — solbulle, 2003-06-24T19:56Z

Om kat är tal så kan du pröva med:

Kat = Cint(Request.QueryString("kat"))

Sen kan du ju ta bort detta för det gör väl ingen nytta:

```
If Request.QueryString("kat") = "" Then%>

<%End If
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/80335-några-frågor-ang-asp-och-databaser-m-m/page2  
Föregående sida: https://www.webforum.nu/amne/asp/80335-några-frågor-ang-asp-och-databaser-m-m.md