• User Attivo

    Ma tu che editor usi per scrivere il tuo codice???


  • User

    Dreamweaver... hai qualcosa da consigliarmi?


  • User Attivo

    No, l'editor va bene, ma mi dice che hai messo qualche carattere non valido nella connessione.
    Proviamo a fare qualche modifica:

    
    <%
    Dim Conn
    Set Conn = Server.CreateObject(?ADODB.Connection?) 
    conn.Open ?driver={Microsoft Access Driver (*.mdb)};dbq=? & server.mappath(?db.mdb?) 
    Dim rs, sql
    Set rs = Server.CreateObject(?ADODB.Recordset?) 
    sql = "select * from dati_immobile by id DESC"
    rs.Open sql, conn 
    Do while NOT RS.EOF 
    %>
    <p>
    <%
    Dim titolo
    titolo=rs(?titolo?) 
    response.write(titolo)
    %><br>
    <%
    Dim id
    id=rs(?id?)
    %>
    <a href=?vedita-ville-casali-toscana-lusso.asp?id=<% response.write(id) %>? target=?_blank?><% response.write(titolo) %> </a> 
    </p>
    <%
    RS.MoveNext
    Loop 
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn=Nothing
    %> 	
    
    

    sostituisci il tuo codice con il nuovo, e posta quando hai pubblicato, o comunque fammi sapere.


  • User

    Niente... sempre lo stesso errore.


  • User

    Un altra mia idea era di recuperarli dal file xml della sitemap. 🙂
    Il problema è che, a parte il fatto che ancora non sono riuscita a fare una sitemap che si aggiorna automaticamente 😞 (sai come si fa?), non ho idea di come fare a recuperarli.
    Poi credevo che non era così difficile farlo con quello script.. invece..😢


  • User Attivo

    Devi avere un pò di pazienza, e vedrai che alla fine otterrai il risultato giusto.
    Ti consiglio di non abbandonare questa strada: concludi questo problema, e poi passerai ad altre cose che mi hai postato prima.

    Se non vuoi abbandonare questa strada, facciamo un'ulteriore prova:

    [code]
    <%
    Dim Conn
    Set Conn = Server.CreateObject(?ADODB.Connection?)
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db.mdb")
    Dim rs, sql
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql = "select * from dati_immobile by id DESC"
    Response.write(sql)
    rs.Open sql, conn
    Do while NOT RS.EOF
    %>
    <p>
    <%
    Dim titolo
    titolo=rs("titolo")
    response.write(titolo)
    %><br>
    <%
    Dim id
    id=rs("id")
    %>
    <a href="vendita-ville-casali-toscana-lusso.asp?id=<% response.write(id) %>" target="_blank"><% response.write(titolo) %> </a>
    </p>
    <%
    RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn=Nothing

    %>
    :ciauz:


  • User

    Sempre uguale. :bho:
    Ma come mai? :mmm: Eppure sembra a logica che debba essere così.


  • User Attivo

    Senti, è tecnicamente e scientificamente provato che non potrà mai essere uguale.

    Come fa a darti l'errore sempre nella stessa riga di codice, quando io ti ho fatto spostare il codice???

    Prova a controllare se hai caricato il file sul server, o se hai fatto effettivamente le modifiche che ti ho detto.

    :ciauz:


  • User

    Io non so che dirti.. l'ho sempre caricato. Ma in quale riga è? Io non vedo il messaggio con la riga.


  • User

    Ah. Ok vista la riga.


  • User

    Ascolta ho cambiato le " perchè forse erano quelle e ora dice
    select * from dati_immobile by id DESC

    Microsoft OLE DB Provider for ODBC Driverserror '80040e14'
    [Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause. /prova_link.asp, line 9


  • User Attivo

    Senti, il problema, non è questo, io ti avevo chiesto di fare come ti avevo detto io, ma tu hai fatto diversamente, se reputi che il mio aiuto si superficiale, puoi sbrigartela da solo, io non ho tempo da perdere per giocare.

    :ciauz:


  • User

    No. Ti giuro che ho fatto come dici tu.. Non ho cambiato proprio nulla. Mi dispiace che te la sei presa. Spero tu mi creda. Io facevo copia e incolla del tuo codice da qui a dreamweaver e poi lo postavo sul server con filezilla, che mai posso aver cambiato?
    E poi non lo reputo assolutamente superficiale, se no avrei fatto da me, no? Mi sei di grande aiuto, io non ci capisco molto.. Se ho sbagliato qualcosa è solo per inesperienza..
    Comunque fai come vuoi.. Io non volevo farti arrabbiare.. Credimi.


  • User Attivo

    Non fa niente, non preoccuparti, credo nella tua sincerità, non sempre quando carichi un file soprattutto dinamico l'operazione va a buon fine.
    Comunque devi correggere questa riga di codice:

    sostituiscila con questa:

    sql = "select * from dati_immobile order by id DESC"

    Fammi sapere.
    :ciauz:


  • User

    Grazie.. ero dispiaciuta più per quello che mi avevi detto che per il fatto che non funzionava..:(
    Comunque ora è perfetto.. vai a vedere..
    L'unica cosa è che non vorrei vedere il titolo (quello scritto in nero), ma solamente il link. E poi come mai scrive:
    select * from dati_immobile order by id DESC
    è normale?

    GRAZIEEEEEEEEE..
    :yuppi:
    Senza te non ci sarei mai riuscita...
    💋


  • User

    Perfetto... il titolo (quello scritto in nero) l'ho tolto.. però ci sono ancora due problemini.

    1. vorrei vedere la lista dei link così:
      Ampio appartamento quartiere Stadio - Appartamento in quartiere Stadio (insomma non ogni volta link a capo, ma link trattino link)
    2. ho un'opzione nel database in cui posso decidere se l'immobile va online o no, nella lista vorrei vedere solo i link in cui ho detto online sì. Per intenderci dovrei mettere " where online=true ", ma dove????

  • User

    Wow.. :sun: non ci credo.. Ho risolto anche il trattino..
    Forse comincio a capirci qualcosa?????
    Mi manca solo quella faccenda dell'online..


  • User

    E mi sono anche accorta che devo cambiare un'altra cosa.
    Se c'è selezionato l'inglese.. allora i titoli devono essere inglesi e i link lo stesso:
    titolo_eng
    href="luxury-real-estate-tuscany.asp?id=<% response.write(id) %>


  • User Attivo

    Thanks, mi fa piacere che sei contenta, ma per fare funzionare correttamente lo script, devi stampare esattamente questo codice:

    
    <%
    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection") 
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db.mdb") 
    Dim rs, sql
    Set rs = Server.CreateObject("ADODB.Recordset") 
    sql = "select id, titolo from dati_immobile where online=true order by id DESC"
    rs.Open sql, conn 
    Do while NOT RS.EOF 
    %>
    <p>
    <%
    Dim titolo
    titolo=rs("titolo") 
    response.write(titolo)&"<br>"
    Dim id
    id=rs("id")
    %>
    <a href="vendita-ville-casali-toscana-lusso.asp?id=<%=id %>" target="_blank"><%=titolo %> </a> - 
    </p>
    <%
    RS.MoveNext
    Loop 
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn=Nothing
    
    %>
    
    ```Dovrebbe funzionare. Per la questione dell'inglese, il discorso è sempre lo stesso: 
    usi un'altro db o un'altra tabella? 
    Dove sono i titoli? 
    Come fai a sapere se l'utente ha selezionato l'inglese?
    
    :ciauz:

  • User

    Ok.. bravissimo!!!:yuppi:Grazie ancora.
    Ha funzionato!
    Ora provo a fare l'inglese. Vediamo se ho imparato!! 😉 Poi se c'è qualcosa mi aiuti? 😊
    :ciauz:

    Ps: mi dai qualche dritta per la sitemap dinamica? Ho visto che esiste una a pagamento (xml-sitemaps.com) la conosci? Che ne dici?