[asp]Server.Execute

[paragon]

Ik dacht even handig te zijn door gebruik te maken van Server.Execute ipv het gebruik maken van een include. Het scheelt me erg veel code want ipv van een steeds groter wordende Select Case Page is ern u alleen de volgende regel nodig: Server.Execute "inc/"+Page+".inc"

Alleen nu slik krijg ik dus een error op het volgende stukje code uit een bestand dat ge-execute wordt.: adoRs.CursorLocation = adUseClient Bij het gebruik van inlude werkt het dus wel gewoon

De error bij gebruik van Server.Execute:
ADODB.Recordset error '800a0bb9'

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

/beta/inc/home.inc, line 25

code:

<div class="page">HOME</div>
<div class="text">
<%
    Dim adoConn     
    Dim adoRs       
    Dim database        
    Dim Index
    Dim strSQL
    Dim offset
    Dim prev
    Dim numRecs
    Dim totalRecs

    database = Server.Mappath("db/content.mdb")
    offset = Request.QueryString("offset")
    numRecs = 5

    strSQL = "SELECT Topic,Content,Posted FROM tblContent ORDER BY Posted DESC"
            
    Set adoConn = Server.CreateObject("ADODB.Connection")
    adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & database


    Set adoRs = Server.CreateObject("ADODB.Recordset")
    adoRs.CursorLocation = adUseClient
    adoRs.Open strSQL, adoConn,,adLockReadOnly, adCmdText

    totalRecs = adoRs.RecordCount

    'Response.Write totalRecs

    adoRs.absolutePosition = 1
    If offset > 1 Then
        adoRs.absolutePosition = offset+1
    End If

    prev = offset-numRecs
    'Response.Write "prev = " &prev& "<br />"
    offset = offset+numRecs
    %>
    <table class="browse"><tr>
    <td>
    <%
    If prev >= 0 Then
        %>
        <a href="./?offset=<%=prev%>">previous</a>
        <%
    Else
        Response.Write "previous"       
    End If
    %>
    </td>
    <td>
    <%
    If offset < totalRecs Then
        %>
        <a href="./?offset=<%=offset%>">next</a>
        <%
    Else
        Response.Write "next"
    End If
    %>
    </td>
    </tr>
    </table>
    <div>
    <%

    'loop throug database
    Dim y
    FOR y=1 to numRecs
    'WHILE NOT adoRs.EOF
    %>
    <div class="topic"><%=adoRs("topic")%> | <%=adoRs("posted")%></div>
    <div class="content"><%=adoRs("Content")%></div>    
    <%
    adoRs.Movenext
    'WEND
    If adoRs.EOF Then Exit For
    next
    adoRs.Close
    adoConn.Close
    %>
    </div>
</div>

[kvdveer]

Voor mensen die liever een errormelding zien:

"ADODB.Recordset error '800a0bb9'.
The application is using arguments that are of the wrong type, are out
of acceptable range, or are in conflict with one another".

Ik kan je verder helaas niet echt helpen.

[whoami]

Het heeft te maken met uw sql string.
Die foutmelding geeft Access ook als je bv. columnnames of tablenames in uw sql string verkeerd gespeld hebt.
Maar aangezien je zegt dat, als je een include gebruikt het wel werkt, zal het misschien wel ergens anders aan liggen..... Maar waar.... Geen idee.

[ Voor 34% gewijzigd door whoami op 28-01-2003 10:59 ]

[paragon]

@kdveer:Wat bedoel je voor met voor mensen die leiver een error melding zien?

Kan me niet voorstellen dat het aan de SQL string ligt want: hetzelde bestand werkt wel als include zoals al uitgelegd staat in mijn post. <- je had het ook al door

Maar eignelijk is het heel erg vervelend omdat bij het gebruik van include alle includes geladen worden en dat kost natuurlijk veel meer dan een enkele Server.Execute.

[ Voor 86% gewijzigd door paragon op 28-01-2003 11:02 ]

[Verwijderd]

Je dient wellicht adovbs.inc opnieuw te includen, of bepaalde constanten (adUseClient, adLockReadOnly, adCmdText) opnieuw te definiëren.

[Gert]

Juist.

Tip: zet boven aan elke pagina die geen include is <% Option Explicit %> dan weet je tenminste welke variabelen ontbreken.

[ Voor 6% gewijzigd door Gert op 28-01-2003 13:33 ]

[paragon]

het was dus het opnieuw includen van adovbs.inc dat het hem deed.

@Gert: als je in een pagina meerdere includes hebt die ongeveer de zelfde code hebben dan oet je in elke include alle varibalen anders noemen dan een andere include option explicit was dus geen optie in dit gevaal. echter met Server.Execute kan het weer wel.

[Annie]

Bij een include worden de bestanden eerst samengevoegd voor deze door de parser gaan. Eigenlijk heb je dus gewoon 1 enkel bestand wat uitgevoerd wordt. Vandaar ook dat je de beschikking hebt over alle gedefinieerde constanten

Bij Server.Execute voer je een ander bestand uit op de server waarna je terugkeert naar het "caling" script. De twee bestanden staan dus los van elkaar.

b.t.w. Option Explicit is inderdaad geen oplossing tot het probleem, maar vaak wel een manier om sneller tot de oplossing te komen. M.a.w. neem de tip van Gert toch maar ter harte.

[paragon]

Annie ik weet wel hoe het erkt met het includen daarom ben ik voor de Server.Execute gegaan. en ik weet ook wat option explicit doet...Ik heb dat er normaal ook latijd instaan maar nu dus niet omdat ik eerst die includes had en dus alle variabelen moest gaan hernoemen wat ik in mijn vorige post ook al aangaf.