• User

    Codice per db

    Ciao ragazzi,
    ho il codice asp che non gira:

    <!-- #include file="adovbs.inc" -->
    <%
    Response.Expires = 0
    Dim rs, cn, sql
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set cn = Server.CreateObject("ADODB.Connection")

    sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"
    cn.Open "DSN=news;"
    Set rs.ActiveConnection = cn

    rs.CursorType = adOpenStatic
    rs.LockType = adLockOptimistic
    rs.Source = "tbNews"
    rs.Open sql, cn

    x = 0
    Do until(x=5)
    x = x + 1
    Response.Write("titolo"&x&"="&rs("Titolo")&"&link"&x&"="&rs("Link"))
    rs.MoveNext
    If x<5 then Response.Write("&")
    Loop

    rs.Close
    Set rs=Nothing
    %>

    Nella stessa cartella ho messo un db access con nome news e il file adovbs.inc.
    Dove sta l'errore che non riesco a trovare?

    ps: il file preleva le info dal db e crea delle stringhe che servono successivamente per un sito in flash.

    Grazie


  • Moderatore

    Se ci dici con più precisione che errore ed in che riga del codice possiamo darti una mano 😉

    Comunque ti consiglio di aggiungere questo al codice:

     Do until (x=5 Or Rs.Eof)
    

    Ciao


  • User

    E' stato creato il DSN a cui fa riferimento il codice?

    La tua affermazione lascia intendere che tu non abbia creato il DSN e credo possa essere questo il problema.

    My 2 cents.


  • Moderatore

    E già se non hai creato il DSN chiamto News allora dovrai sostituire la riga

    
    cn.Open "DSN=news;"
    
    

    con la seguente:

    
    cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/myDB.mdb")
    
    

    Ovviamente scriverai il nome corretto del tuo Database (al posto di myDB.mdb)

    :ciauz: