• 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?


  • User

    Scusami poi ho un'altra domanda.
    Puoi andare a vedere feiimmobiliare.it/prova_link2.asp
    Volevo includere quei file in una tabella.. ma guarda che casino.
    Ma che ho combinato?????


  • User Attivo

    Se non mi posti il codice, non posso dirti nulla...


  • User

    Ah è vero, che scema!! 😊
    <%
    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("immobili/db/immobili.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
    %>
    <%
    Dim titolo
    titolo=rs("titolo")
    Dim id
    id=rs("id")
    %>
    <%
    lbl_vendita = "Vendita"
    %>
    <td width="879" align="center"><table width="879" border="0">
    <tr>
    <td width="147" bgcolor="#0f1229"> </td>
    <td width="563" align="center" bgcolor="#0f1229"><a href="vendita-ville-casali-toscana-lusso.asp?id=<%=id %>"><%=lbl_vendita%> <%=titolo %></a> - 
    <%
    RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn=Nothing
    %></td>
    <td width="147" bgcolor="#0f1229"> </td>
    </tr>
    </table>


  • User Attivo

    Non vedo il tag <table>.
    Forse lo hai messo fuori dal codice, cmq in questo modo ho poche indicazioni.

    Prova a creare prima del tuo codice quello che vorresti fare in modalità grafica (senza codice asp) magari anche solo tre risultati di esempio.