ingen poster vist..

http://www.m-u-n-k.dk/frame/galleri.asp?level=1 der kan det ses :D

jeg har fået lidt hjælp troede jeg men nej.. min kode er rettet til dette:

<%
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("/db/database.mdb")
%>
<tr>
<td colspan="6"  bgcolor="#0099FF" align="center">
<%
if request.QueryString("level") = 1 then
%>
vælge hvilket Billed emne her under
<%
'vælger kilde
Set rs = CreateObject("ADODB.Recordset")
sql = "SELECT * FROM [emne] ORDER BY [id]"
rs.OPEN SQL, Conn, 0 ,1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
Do While Not rs.EOF And intRecCount > 0

        response.Write "<a href=galleri.asp?level=2&emne=" & rs("emne") & "class=link>" & rs("emne") & "</a><br>"
 
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=galleri.asp?level=1&page=" & intPage - 1 & ">&lt;&lt;&nbsp;</a>"
Else
    Response.Write "&lt;&lt;&nbsp;"
End If
For intNum = 1 To intPageCount
    Response.Write "<a href=galleri.asp?level=1&page=" & intNum & ">" & intNum & "</a> "
Next
If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=galleri.asp?level=1&page=" & intPage + 1 & ">&nbsp;&gt;&gt;</a> "
Else
    Response.Write "&nbsp;&gt;&gt;"
End If

ikke den store forskel men list er der :D

Prøv dette...

...
'vælger kilde
Set rs = CreateObject("ADODB.Recordset")
sql = "SELECT * FROM [emne] ORDER BY [id]"
rs.OPEN SQL, Conn, 1 ,3
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
...

samme resultat :S når jeg sletter paging virker det...

jeg har valgt at slette paging så virker det.. men når jeg vælger et af de generede link kommer følgende fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.

/frame/tekst/galleri.asp, line 35


koden er som følger:

<%
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("/db/database.mdb")
%>
<tr>
<td colspan="6"  bgcolor="#0099FF" align="center">
<%
if request.QueryString("level") = 1 then
%>
vælge hvilket Billed emne her under
<%
'vælger kilde
sql = "SELECT * FROM emne ORDER BY id"
Set rs = Conn.Execute(sql)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF

        response.Write "<a href=galleri.asp?level=2&emne=" & rs("emne") & " class=link>" & rs("emne") & "</a><br>"
 
    rs.MoveNext
    Loop
End If


elseif request.QueryString("level") = 2 then
%>
vælge hvilket Billed emne her under

<%
response.Write "<table><tr>"
var_tal = 1
'vælger kilde
Set rs = CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM galleri WHERE emne = " & request.querystring("emne") & ""
set rs = Conn.execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
if var_tal => 5 then
%>
<TD>
<img src="/billeder/billeder/<%=rs("sti1")%>" alt="<%=rs("alternativ1")%>" height="10%" width="10%"><br>
<a href="galleri.asp?level=3&emne=<%=rs("id")%>" class="link"><%=rs("alternativ1")%></a><br>
</TD>
<%
else
response.Write "</tr>"
var_tal = 1
end if
var_tal = var_tal + 1

    rs.MoveNext
    Loop
End If
End If
%>


Linie 35 er:
set rs = Conn.execute(SQL)


Når jeg udskriver SQL med en response.write får jeg
SQL = SELECT * FROM galleri WHERE emne = flint
hvilket burde være rigtigt... og i databasen findes der et emne under galleri der hedder flint

Id    emne    sti1      billedtekst      alternativ1
1    flint    munk1.jpg      hej      test
2    flint    munk2.jpg      test      fisk

løste den selv...