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

Det var så lite så!

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

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

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