Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Trovato Bug in Mercatino

Autore Messaggio
peppeC

Amatore
Amatore
44 Discussioni



Profilo - peppeC
05 febbraio 2009 alle 09:56:53 Profilo - peppeCInvia un messaggio privato Rispondi quotando
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...:

Wend
oRs.MoveNext
iLoop = iLoop + 1
' Loop


CreateTopTable "AnnunciPagine", GetTranslation"LANG_PAGES_ANN")
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF

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


djveleno

Amministratore

Esperto
Esperto
1025 Discussioni



Profilo - djveleno
05 febbraio 2009 alle 10:30:25 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Grazie mille, questa è la classica svista da modifica, che anche rileggendo il codice 3000 volte non si vede.

Riassumendo:
La modifica è essenzialmente lo spostamento dell'istruzione WEnd dalla riga 414 circa alla riga 418 della Sub DisplaySearchMercatino

Questa la parte di codice modificata:

Response.Write "</table>" & vbCRLF
CreateBottomTable ""

oRs.MoveNext
iLoop = iLoop + 1
'Loop
Wend

---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp

peppeC

Amatore
Amatore
44 Discussioni



Profilo - peppeC
05 febbraio 2009 alle 11:45:08 Profilo - peppeCInvia un messaggio privato Rispondi quotando
Modificato il 05 febbraio 2009 alle 11:49:08

Salve 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
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni



Profilo - djveleno
05 febbraio 2009 alle 12:40:31 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
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!

http://aspnuke208.somee.com/Default.asp

peppeC

Amatore
Amatore
44 Discussioni



Profilo - peppeC
05 febbraio 2009 alle 20:40:57 Profilo - peppeCInvia un messaggio privato Rispondi quotando
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...
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni



Profilo - djveleno
05 febbraio 2009 alle 21:59:33 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
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!

http://aspnuke208.somee.com/Default.asp

peppeC

Amatore
Amatore
44 Discussioni



Profilo - peppeC
06 febbraio 2009 alle 17:32:40 Profilo - peppeCInvia un messaggio privato Rispondi quotando
Modificato il 06 febbraio 2009 alle 17:40:46

Altro 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

"QUERY_STRING"),2),"=","")) = Trim(pag) Then

Response.Write "<a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "mercatino.asp?do=view&catID=" & catId & "&page=" & pag & """>["& pag &"]</a>" & vbCRLF
Else
Response.Write "<a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "mercatino.asp?do=view&catID=" & catId & "&page=" & pag & """>"& pag &"</a>" & vbCRLF
End If
Next

che dovrà diventare

For pag=1 To NumeroPagine
If Trim(Replace(right(Request.ServerVariables("QUERY_STRING"),2),"=","")) = Trim(pag) Then

Response.Write "<a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "mercatino.asp?do=search&amp;parola=" & parola & "&amp;categoria=" & catId & "&amp;tipo=" & tipo & "&amp;page=" & pag & """>["& pag &"]</a>" & vbCRLF
Else
Response.Write "<a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "mercatino.asp?do=search&amp;parola=" & parola & "&amp;categoria=" & catId & "&amp;tipo=" & tipo & "&amp;page=" & pag & """>"& pag &"</a>" & vbCRLF
End If
Next

Si cambia wiew con serch.
Saluti
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni



Profilo - djveleno
06 febbraio 2009 alle 22:55:02 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Ho modificato il file in downloads.
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 302
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5684542 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi