22 settembre 2005 alle 21:56:52 Ciao a tutti) Ho inserito il codice per avere gli ultimi annunci del mercatino in homepage seguendo fedelmente le istruzioni, ed infatti questo compare in home...ma cliccando su un annuncio compare la seguente scritta:
ErroreSQL -2147217904: [Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1. SQL : UPDATE me_annuncio set cont = cont + 1 WHERE id=2
e subito sotto di essa comunque c'è la tabella con l'annuncio corrispondente proprio così come dovrebbe essere.Qualcuno sa da cosa può dipendere? Saluti!
22 settembre 2005 alle 22:32:34 Credo tu abbia scaricato una versione precedente del file zip, nella nuova versaione che puoi scaricare qui a lato nei TopDownloads, è stata eliminata la query di update. Ciauzz DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
22 settembre 2005 alle 22:44:37 Ciao dj, la versione precedente che avrei scaricato sarebbe quella del top-mercatino o del mercatino?perchè adesso mi sono accorto che questo problema me lo da anche quando accedo ad un annuncio passando dal menu, quindi non per il top mercatino, però sai..nello zip del top-mercatino c'era da sostituire un include con quello originale... Saluti Carlo
22 settembre 2005 alle 22:50:38 Nello zip del Top Mercatino, c'è il file mercatino-inc.asp che sostituisce l'originale, nel file è stata aggiunta una Sub Routine per la visualizzazione degli annunci in home page. In una precedente versione del file, avevo incorporato una query di aggiornamento che però dava errori come quello da te riscontrato, mentre, il file attualmente in download non da questo problema, lo puoi constatare dalla hom page del mio portale. Ciauzz DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
22 settembre 2005 alle 23:00:39 Ciao dj, ho risolto il problema... nello zip del modulo mercatino presente sul tuo sito non c'è la query update nel file mercatino-inc.asp, ma questa invece è presente nel file da sostituire con lo stesso nome presente nello zip top-mercatino! Quindi ho preso il file mercatino-inc.asp dallo zip mod mercatino e ho aggiunto:
' Display the top message mercatino list (links to message) ' IN : iTop (int) : number of results wanted ' : iCategory (int) : message mercatino category (table me_annunci, field arCategory) ' OUT : - Sub DisplayTopMessageMercatinoLinks(iTop, iCategory) Dim oCn, oRs, oRs2, oRs3, rSQL Dim sCategory, sTitleCat, iLoop, iRead, iRead2
Set oCn = DBConnexion(DB_MERCATINO)
If iCategory <> "" And iCategory <> 0 Then sCategory = "?cat=" & iCategory rSQL = "SELECT categoria FROM me_categoria WHERE id=" & iCategory Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then sTitleCat = " - " & Server.HTMLEncode(oRs(0)) End If oRs.Close Set oRs = Nothing End If
rSQL = "SELECT * FROM me_annuncio WHERE valido = 1 " If sCategory <> "" Then rSQL = rSQL & " AND me_categoria=" & iCategory End If rSQL = rSQL & " ORDER BY datainserimento DESC"
Set oRs = DBRecordSet(oCn, rSQL)
CreateTopTable "TopMessageMercatinoLinks", GetTranslation("LANG_TOP") & " " & iTop & " - " & GetTranslation("LANG_MESSAGE_TOP") & sTitleCat If Not oRs.EOF Then iLoop = 0 While Not oRs.EOF And iLoop < iTop rSQL = "SELECT * FROM me_categoria WHERE id = " & oRS("catID") Set oRs3 = DBRecordSet(oCn, rSQL) If Not oRs3.EOF Then iRead2 = oRs3("categoria") End If iRead = 0 rSQL = "SELECT login, datainserimento, titolo FROM me_annuncio WHERE tipo=" & oRs("id") Set oRs2 = DBRecordSet(oCn, rSQL)
22 settembre 2005 alle 23:04:40 Ho aperto in questo istante il file zip on-line e ripreso la Sub, ma, il file è modificato, come puoi vedere qui:
' Display the top message mercatino list (links to message) ' IN : iTop (int) : number of results wanted ' : iCategory (int) : message mercatino category (table me_annunci, field arCategory) ' OUT : - Sub DisplayTopMessageMercatinoLinks(iTop, iCategory) Dim oCn, oRs, oRs2, oRs3, rSQL Dim sCategory, sTitleCat, iLoop, iRead, iRead2
Set oCn = DBConnexion(DB_MERCATINO)
If iCategory <> "" And iCategory <> 0 Then sCategory = "?cat=" & iCategory rSQL = "SELECT categoria FROM me_categoria WHERE id=" & iCategory Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then sTitleCat = " - " & Server.HTMLEncode(oRs(0)) End If oRs.Close Set oRs = Nothing End If
rSQL = "SELECT * FROM me_annuncio WHERE valido = 1 " If sCategory <> "" Then rSQL = rSQL & " AND me_categoria=" & iCategory End If rSQL = rSQL & " ORDER BY datainserimento DESC"
Set oRs = DBRecordSet(oCn, rSQL)
CreateTopTable "TopMessageMercatinoLinks", GetTranslation("LANG_TOP") & " " & iTop & " - " & GetTranslation("LANG_MESSAGE_TOP") & sTitleCat If Not oRs.EOF Then iLoop = 0 While Not oRs.EOF And iLoop < iTop rSQL = "SELECT * FROM me_categoria WHERE id = " & oRS("catID") Set oRs3 = DBRecordSet(oCn, rSQL) If Not oRs3.EOF Then iRead2 = oRs3("categoria") End If iRead = 0 rSQL = "SELECT login, datainserimento, titolo FROM me_annuncio WHERE tipo=" & oRs("id") Set oRs2 = DBRecordSet(oCn, rSQL)
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,1601563 secondi.
MODULI AGGIUNTIVI
Problemi Top Mercatino
22 settembre 2005 alle 21:56:52 
