paging med db conn i include file

Er det bare din db-conn du har i en include eller er det også din SQL-sætning..?

Kun min DB forbindelse.
Hvor efter jeg bruger SQL="blajajsdflj"
conn.execute(sql)
set rs = conn.execute(sql)

Jeg bruger altid bare den her:
http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

Hvor jeg såbare har skrabet det ned til den her (også min inlcude med db-conn)

                                   
                      ' Vores SQL-forespørgsel vi ønsker page
                        Sql = "SELECT * FROM main Where grp = '" & strGrp & "'"

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

                        rs.PageSize = 8
                          rs.Open(Sql), Conn, 1, 3

Jeg havde set den og afprøvet.
Men nu prøver jeg dit skrab, og det kører fint :)
men
Hvis jeg så klikker på side 2 for jeg denne fejl :

Microsoft JET Database Engine error '80040e14'

Syntax error in FROM clause.
Line 43 = rs.Open(Sql), Conn, 1, 3
Her må jeg indrømme, at jeg ved IKKE
hvad rs.Open(Sql), conn, 1, 3 gør ?????

I min incl. fil bruger jeg nemlig :
Set conn = Server.CreateObject("ADODB.Connection")

Hmm.. Kan du ikke prøvet copy/paste hele din conn-include fil...

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\vcvcvc.mdb;"

Det fatter jeg ikkefor jeg kører med denher:

Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("..") &"/nogetfx.dk/db/kloster_db.mdb"

1:Jeg ved ikke helt hvad "Conn, 1, 3" er, udover det er måden den bliver åbnet på, og lad vær' med at pille ved det.. hehe

2: Vølg om conn skal være med stor eller lille c...

3: Ellers prøv at paste hel din kode ind...

Jeg kikker på det!
(skal spise)

Ellers her bruger jeg det og det virker..!
Conn -include:

<%

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open="DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath("..") &"/nogetfx/db/nogetfx_db.mdb"

%>
Paging:
<%
                    ' Først finder vi ud af hvad vores paging side er på nu
                        Page = Trim(Request("page"))
                        If Page = "" Then Page = 1                       
                                   
                      ' Vores SQL-forespørgsel vi ønsker page
                        Sql = "SELECT * FROM main Where grp = '" & strGrp & "'"

                        Set rs = Server.CreateObject("ADODB.Recordset")
                        rs.CursorType = adOpenStatic
                   
                        rs.PageSize = 3
                   
                          rs.Open(Sql), Conn, 1, 3
                       
                       

                      ' et lille trick der gør at hvis ens forespørgsel er tom, så får man ikke en fejl
                        If Not rs.EOF Then
                              rs.AbsolutePage = cINT(Page)
                              rowCount = 1
                        Else
                            rowCount = 0
                        End If

            %>           
                <table cellpadding="0" cellspacing="0" border="0" width="500" height="90%">
                    <tr>   
                        <td height="30" class="h2" colspan="2">
                            <%=Query("head")%></td>
                    </tr>
                    <tr>
                        <td height="2" bgcolor="#566783">
                            <img src="pic/space.gif" height="2" width="1" border="0"></td>
                        <td width="50%" align="left">
                            <img src="pic/streg.gif" border="0" height="2"></td>
                    </tr>
                    <tr>
                        <td align="left" valign="top" colspan="2">
                <%
                   
                        ' her laver vi en løkke der henter vores records ud
                        While Not rs.EOF and rowCount < rs.PageSize    
   
                        counter=counter+1                                                 
                %>

Jo tak!
Jeg for server timeout fejl, og/eller den beder om WEND.

Der må mangle noget!

Den klager sig også over <%=Query("head")%>
Hvor er den defineret!

Beklager jeg havde ikke fået det støvsuget ordentligt for andre ting.

<%
                    ' Først finder vi ud af hvad vores paging side er på nu
                        Page = Trim(Request("page"))
                        If Page = "" Then Page = 1                       
                                   
                      ' Vores SQL-forespørgsel vi ønsker page
                        Sql = "SELECT * FROM main Where grp = '" & strGrp & "'"

                        Set rs = Server.CreateObject("ADODB.Recordset")
                        rs.CursorType = adOpenStatic
                   
                        rs.PageSize = 3
                   
                          rs.Open(Sql), Conn, 1, 3
                       
                       

                      ' et lille trick der gør at hvis ens forespørgsel er tom, så får man ikke en fejl
                        If Not rs.EOF Then
                              rs.AbsolutePage = cINT(Page)
                              rowCount = 1
                        Else
                            rowCount = 0
                        End If
               

                   
                        ' her laver vi en løkke der henter vores records ud
                        While Not rs.EOF and rowCount < rs.PageSize    
   
                        counter=counter+1                                                 
                %>
                            <br>
                            <table cellpadding="0" cellspacing="0" border="0">
                                <tr>
                                    <td rowspan="2" width="220" align="center" valign="top">
                                    <% If rs("site") <> "" Then %>   
                                        <a href="<%=rs("site")%>" target="_blank" claas="h2page" onMouseOver="window.status='<%=rs("head")%>';return true" onMouseOut="window.status='<%=rs("head")%>';return true" onClick="window.status='<%=rs("head")%>';return true">
                                    <% End If %>
                                            <img src="pic/screen/<%=rs("img")%>" border="0"></a></td>
                                    <td width="300" valign="top" class="h2" height="20">
                                    <% If rs("site") <> "" Then %>
                                        <a href="<%=rs("site")%>" target="_blank" class="h2" onMouseOver="window.status='<%=rs("head")%>';return true" onMouseOut="window.status='<%=rs("head")%>';return true" onClick="window.status='<%=rs("head")%>';return true">
                                    <% End If %>       
                                            <%=rs("head")%></a></td>
                                </tr>
                                <tr>
                                    <td valign="top">
                                        <%=rs("text")%></td>
                                </tr>
                                <% If rs("xlink") <> "" Then%>
                                <tr>
                                    <td>
                                        &nbsp;</td>
                                    <td height="10" valign="middle" align="center">
                                        <a href="<%=rs("xlink")%>" target="_blank" class="forside">
                                            <%=rs("linktext")%></td>
                                </tr>
                                <% End If%>
                            </table>
                <%       
                   
                        rowCount = rowCount + 1
                            rs.Movenext
                        Wend
                       

                            If Page > 1  Then
                                If page = rs.AbsolutePage Then
                                    Response.Write "<a href=default.asp?fla=" & fla & "&grp=" & strGrp & "&id=" & id & "&page=" & Page - 1 & " class='arrowtext'>Til Forrige side</a>"
                                End If
                                Response.Write "<a href=default.asp?fla=" & fla & "&grp=" & strGrp & "&id=" & id & "&page=" & Page - 1 & " class=arrow>&lt;&lt;</a>"
                            Else
                                Response.Write "&nbsp;"
                            End If

                            Response.Write "&nbsp;"

                            If Clng(Page) < Clng(rs.PageCount) Then
                                If page = 1 Then
                                    Response.Write "<a href=default.asp?fla=" & fla & "&grp=" & strGrp & "&id=" & id & "&page=" & Page + 1 & " class='arrowtext'>Til n&aelig;ste side&nbsp;</a>"
                                End If
                                Response.Write "<a href=default.asp?fla=" & fla & "&grp=" & strGrp & "&id=" & id & "&page=" & Page + 1 & " class=arrow>&gt;&gt;</a>"
                            Else
                                Response.Write "&nbsp;"
                            End If

                            Response.Write "&nbsp;&nbsp;&nbsp;"
                            rs.close%>

Kan du se pointen..? rs(etellerandet) er bare mine DBfelter..

Ja, jeg kan nu se.
Jeg er ved at prøve det, men får fejl på side 2.

Jeg bruger kun én querystring("page")

Microsoft JET Database Engine error '80040e14'

Syntax error in FROM clause.

/addsog.asp, line 27
Line 27 = set rs = conn.execute(sql) (nej, hvor er jeg træt!)

Hvilken fejl får du..?

Du skriver den vel også forkert, hvis jeg skal læse alt det efter 27=
CopyPaste det her:

                    ' Vores SQL-forespørgsel vi ønsker page
                        Sql = "SELECT * FROM main Where grp = '" & strGrp & "'"

                        Set rs = Server.CreateObject("ADODB.Recordset")
                        rs.CursorType = adOpenStatic
                   
                        rs.PageSize = 3
                   
                          rs.Open(Sql), Conn, 1, 3

OK!
Men jeg får denne fejl :
Microsoft VBScript compilation error '800a03fa'

Expected 'Wend'

hvor der står :
rs.close ' til sidst. ??

Og du har skrevet:

                        rowCount = rowCount + 1
                            rs.Movenext
                        Wend

10000000 tak for hjælpen!
-men den klager over (igen) rs.Open(Sql), Conn, 1, 3
Min forbindelse er som din. (bare i incl.)

Men funker det ikke..?

Nej!
Jeg skulle måske se <!-- #include File="/adovbs.inc" -->
Har du den liggende ?

Jeg har fundet filen, og NU kører det!

Det var godt...