05 febbraio 2009 alle 09:56:53 Salve, dopo due giorni di attento studio di tutto il codice del mercatino, ho trovato per caso il bug che non consentiva al campo di ricerca di scorrere tra i records del database.
La modifica è semplice, scrivo sotto l'area da trovare, un pò più ampia...:
Ho scritto anche una riga che và bene, per poter trovare più agilmente l'area. Uso il notepad quindi non sò la riga. Cambiare la prima parte così: oRs.MoveNext iLoop = iLoop + 1 Wend
In pratica il Wend và dopo il Loop, altrimenti non scorre. Spero sia stato d'aiuto.. Geom. Giuseppe C
05 febbraio 2009 alle 11:45:08 Modificato il 05 febbraio 2009 alle 11:49:08Salve Dj, è un piacere aiutarti... Ma Mi sà che il mercatino ha qualche spirito... Ne aggiusto una e se ne crea un'altra... Ora l'errore è nell'inserimento delle categorie dal pannello di amministrazione. Anzi, le categorie le inserisce solo che dopo, nella prima schermata mi dà:
Microsoft VB Script runtime error '800a01a8' Object required: 'oRs3' /italia/includes/mercatino-inc.asp, line 135
mostra solo il nome categoria e manca "inserisci annuncio" Per adesso ho risolto inserendo le categorie direttamente da mysql, ma è assurdo... Devo rivedere pure il codice del admin_mercatino.asp e admin_mercatino_inc.asp Sicuramente non inserisce bene i parametri.. E ora che ci penso, anche l'invio dei messaggi privati non và... vediamo... Saluti
05 febbraio 2009 alle 12:40:31 Non potendo più testare con MySql, non saprei dire se vi sono altri problemi, ma, posso dirti per certo che con Access non vengono più visualizzati errori, ho testato sul mio portale di prova, sia l'inserimento delle categorie che l'invio dei messaggi privati e, funziona tutto.
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
05 febbraio 2009 alle 20:40:57 Ho un errore nel mercatino, in pratica se ho più di 10 annunci, me ne visualizza solo 10 e nel campo di ricerca, se supera i 10records, le pagine 2 ecc.. non vengono visualizzate...
05 febbraio 2009 alle 21:59:33 Dunque, io ho fatto così, siccome non ho tempo per ricontrollare tutto il codice, e visto che la parte amminstrativa funziona correttamente, ho copiato la Sub ViewAnnuncioMercatino, dalla pagina Admin_mercatino-inc.asp nella pagina mercatino-inc.asp, sostituendo la Sub originale, modificando poi le occorrenze che richiamano la pagina admin_mercatino.asp in mercatino.asp, poi ho remmato queste 3 righe: 'If Not oRs("valido") Then 'Response.Write " - <a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "admin_mercatino.asp?action=authorized&id=" & CStr(oRs("id")) & "&catID=" & oRs("catID") & "&where=tutti&page=" & page & """ onclick=""Java_Script:return confauth()"" title=""" & GetTranslation("LANG_CONFIRMS_ANN") & """>" & GetTranslation("LANG_CONFIRMS_ANN") & "</a></_div>" & vbCRLF 'Response.Write " - <a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "mercatino.asp?action=authorized&id=" & CStr(oRs("id")) & "&catID=" & oRs("catID") & "&where=tutti&page=" & page & """ onclick=""Java_Script:return confauth()"" title=""" & GetTranslation("LANG_CONFIRMS_ANN") & """>" & GetTranslation("LANG_CONFIRMS_ANN") & "</a></_div>" & vbCRLF
'End If che sono di pertinenza dell'admin, se hai problemi scrivimi, poi appena posso rendo disponibile uno zip con la pagina modificata.
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
06 febbraio 2009 alle 17:32:40 Modificato il 06 febbraio 2009 alle 17:40:46Altro Bug mercatino, quando la ricerca ottiene più di 10 risultati, dalle pagine non si riesce ad andare da una pagina all'altra in quanto dà errore... questa è la modifica: Trovare questa stringa
For pag=1 To iTotalPage If Trim(Replace(right(Request.ServerVariables