Visualizzazione dei risultati da 1 a 6 su 6

Discussione: problema con codice

  1. #1

    problema con codice

    Ciao a tutti,
    non sono molto bravo in asp perciò chiedo il vostro prezioso aiuto... ho il seguente coduce... mi sapreste dire cosa non va


    <%
    Response.Expires = 0
    Dim rs, cn, sql
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set cn = Server.CreateObject("ADODB.Connection")


    Set rs = Server.CreateObject("ADODB.Connection")
    rs.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("/mdb-database/news.mdb")


    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
    %>


    ciao e grazie
    Gianfry

  2. #2
    Utente di HTML.it L'avatar di 99eros9
    Registrato dal
    Jan 2003
    Messaggi
    2,637
    che tipo di errore ricevi?
    Tala är silver men tiga är guld!
    Pubblica il tuo curriculum
    Segnala il tuo sito
    Ancl

  3. #3
    purtroppo mi da solo:

    Impossibile visualizzare la pagina
    Gianfry

  4. #4
    codice:
     
    <% 
    Response.Expires = 0 
    Dim rs, cn, sql 
    Set rs = Server.CreateObject("ADODB.Recordset")   
    Set cn = Server.CreateObject("ADODB.Connection") 
    
    
    Set rs = Server.CreateObject("ADODB.Connection")   
    cn .Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("/mdb-database/news.mdb") 
    
    
    sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC" 
    cn.Open "DSN=news;" 'questa riga non ci va 
    Set rs.ActiveConnection = cn 
    rs.CursorType = adOpenStatic 
    rs.LockType = adLockOptimistic 
    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 
    cn.close
    set cn=nothing
    %>
    ti ho evidenziat gli errori, poi per evitare che ti venga "impossibile visualizzare la pagina fai così:

    inestra di explorer->strumenti->opzioni internet->avanzate->togli la spunta da "errori http brevi"
    Purtroppo bisogna imparare che il computer non sbaglia...fa solo quello che gli dici di fare

    www.netpolaris.it

  5. #5
    funziona tutto bene ora gazie mille ciao
    Gianfry

  6. #6
    Purtroppo bisogna imparare che il computer non sbaglia...fa solo quello che gli dici di fare

    www.netpolaris.it

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.