Menu Home Forum Notizie Articoli Manuale 2.08 Manuale 2.0 Demo 2.08 F.A.Q. Libro degli ospiti Link Downloads Immagini Films Sondaggi Staff Tags Entra Iscriviti   Eventi < Settembre > L M M G V S D -- 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 -- -- -- -- Questa settimana	Forum AspNuke.it - Il tuo Portale OpenSource in ASP Forum   SUPPORTO TECNICO 2.07       MODULI AGGIUNTIVI          Search Mercatino Entra | Top 10 Search Mercatino Autore Messaggio carlostefano Esperto 296 Discussioni 24 settembre 2005 alle 13:24:22 Ciao a tutti) volevo mettere la ricerca del mercatino in homepage, così in un nuovo blocco ho inserito il seguente codice preso dal file mercatino-inc.asp: Sub SearchMercatino() Dim oCn, oRs, rSQL Set oCn = DBConnexion(DB_MERCATINO) rSQL = "SELECT id,categoria FROM me_categoria" Set oRs = DBRecordSet(oCn, rSQL) Response.Write " <_Script language=""Java_Script"">" & vbCRLF Response.Write " function formSubmit()" & vbCRLF Response.Write " {" & vbCRLF Response.Write " var ok = true;" & vbCRLF Response.Write " var texte = '" & GetTranslation("LANG_MUST_FILL") & "';" & vbCRLF Response.Write " if (document.SearchMercatino.parola.value == '') " & vbCRLF Response.Write " {" & vbCRLF Response.Write " ok = false;" & vbCRLF Response.Write " texte = texte + ' - " & GetTranslation("LANG_SEARCH_WORDS") & "';" & vbCRLF Response.Write " }" & vbCRLF Response.Write " if (document.SearchMercatino.categoria.value == 0)" & vbCRLF Response.Write " {" & vbCRLF Response.Write " ok = false;" & vbCRLF Response.Write " texte = texte + ' - " & GetTranslation("LANG_SEARCH_CAT") & "';" & vbCRLF Response.Write " }" & vbCRLF Response.Write " if (ok)" & vbCRLF Response.Write " {" & vbCRLF Response.Write " document.SearchMercatino.submit();" & vbCRLF Response.Write " }" & vbCRLF Response.Write " else" & vbCRLF Response.Write " {" & vbCRLF Response.Write " ok = false;" & vbCRLF Response.Write " alert(texte);" & vbCRLF Response.Write " }" & vbCRLF Response.Write " }" & vbCRLF Response.Write " </_Script>" & vbCRLF CreateTopTable "SearchMarket", GetTranslation("LANG_SEARCH_MARKET") Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF Response.Write "<_form name=""SearchMercatino"" method=""post"" action=""" & sUrlPage & """>" & vbCRLF Response.Write " <input type=""hidden"" name=""do"" value=""search"">" & vbCRLF Response.Write " <tr class=""tableline1"">" & vbCRLF Response.Write " <td width=""50"" align=""center"">" & GetTranslation("LANG_SEARCH") & "</td>" & vbCRLF Response.Write " <td width=""150"" align=""center""><input name=""parola"" value="""" class=""cell"" size=""18"" maxlength=""30""></td>" & vbCRLF Response.Write " <td width=""50"" align=""center"">" & GetTranslation("LANG_SEARCH_IN") & "</td>" & vbCRLF Response.Write " <td width=""170"">" & vbCRLF Response.Write " <select name=""categoria"" class=""cell"">" & vbCRLF Response.Write " <option value=""0"">" & GetTranslation("LANG_SELECT_CATEGORY") & "</option>" & vbCRLF Response.Write " <option value=""0"">---------------------------------</option>" & vbCRLF Response.Write " <option value=""all"">" & GetTranslation("LANG_SELECT_ALL") & "</option>" & vbCRLF Response.Write " <option value=""0"">---------------------------------</option>" & vbCRLF While Not oRs.EOF Response.Write " <option value=""" & cStr(oRs("id")) & """>"&oRs("categoria")&"</option>" & vbCRLF oRs.MoveNext Wend Response.Write " </select>" & vbCRLF Response.Write " </td>" & vbCRLF Response.Write " <td width=""70"" align=""center"">" & GetTranslation("LANG_TYPES") & "</td>" & vbCRLF Response.Write " <td width=""100"">" & vbCRLF Response.Write " <select name=""tipo"" class=""cell"">" & vbCRLF Response.Write " <option value=""2"" selected>" & GetTranslation("LANG_ALL") & "</option>" & vbCRLF Response.Write " <option value=""0"">" & GetTranslation("LANG_TYPE_SELL") & "</option>" & vbCRLF Response.Write " <option value=""1"">" & GetTranslation("LANG_TYPE_BUY") & "</option>" & vbCRLF Response.Write " </select>" & vbCRLF Response.Write " </td>" & vbCRLF Response.Write " <td colspan=""2""><input name=""valider"" type=""button"" value=""" & GetTranslation("LANG_SUBMIT") & """ onClick=""Java_Script:formSubmit();"" class=""button""></td>" & vbCRLF Response.Write " </tr>" & vbCRLF Response.Write "</_form>" & vbCRLF Response.Write "</table>" & vbCRLF Createbottomtable "" oRs.Close Set oRs = Nothing oCn.Close Set oCn = Nothing End Sub Il problema è che il contenuto di questo blocco non si vede! Dov'è l'errore? Saluti, Carlo carlostefano Esperto 296 Discussioni 24 settembre 2005 alle 20:32:33 Nessuno ha idea?(( djveleno Amministratore Esperto 1025 Discussioni 24 settembre 2005 alle 21:42:20 Il codice che hai copiato è quello che serve alla ricerca, per visualizzare i risultati c'è un'altra sub, la DisplaySearchMercatino. Ciauzz DJ --------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone! http://aspnuke208.somee.com/Default.asp carlostefano Esperto 296 Discussioni 27 settembre 2005 alle 22:29:36 ciao dj, nella homepage adesso il nuovo blocco funziona; ha il seguente codice: Sub SM() Dim oCn, oRs, rSQL Set oCn = DBConnexion(DB_MERCATINO) rSQL = "SELECT id,categoria FROM me_categoria" Set oRs = DBRecordSet(oCn, rSQL) Response.Write " <_Script language=""Java_Script"">" & vbCRLF Response.Write " function formSubmit()" & vbCRLF Response.Write " {" & vbCRLF Response.Write " var ok = true;" & vbCRLF Response.Write " var texte = '" & GetTranslation("LANG_MUST_FILL") & "';" & vbCRLF Response.Write " if (document.SearchMercatino.parola.value == '') " & vbCRLF Response.Write " {" & vbCRLF Response.Write " ok = false;" & vbCRLF Response.Write " texte = texte + ' - " & GetTranslation("LANG_SEARCH_WORDS") & "';" & vbCRLF Response.Write " }" & vbCRLF Response.Write " if (document.SearchMercatino.categoria.value == 0)" & vbCRLF Response.Write " {" & vbCRLF Response.Write " ok = false;" & vbCRLF Response.Write " texte = texte + ' - " & GetTranslation("LANG_SEARCH_CAT") & "';" & vbCRLF Response.Write " }" & vbCRLF Response.Write " if (ok)" & vbCRLF Response.Write " {" & vbCRLF Response.Write " document.SearchMercatino.submit();" & vbCRLF Response.Write " }" & vbCRLF Response.Write " else" & vbCRLF Response.Write " {" & vbCRLF Response.Write " ok = false;" & vbCRLF Response.Write " alert(texte);" & vbCRLF Response.Write " }" & vbCRLF Response.Write " }" & vbCRLF Response.Write " </_Script>" & vbCRLF CreateTopTable "SearchMarket", GetTranslation("LANG_SEARCH_MARKET") Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF Response.Write "<_form name=""SearchMercatino"" method=""post"" action=""mercatino.asp"">" & vbCRLF Response.Write " <input type=""hidden"" name=""do"" value=""search"">" & vbCRLF Response.Write " <tr class=""tableline1"">" & vbCRLF Response.Write " <td width=""50"" align=""center"">" & GetTranslation("LANG_SEARCH") & "</td>" & vbCRLF Response.Write " <td width=""150"" align=""center""><input name=""parola"" value="""" class=""cell"" size=""18"" maxlength=""30""></td>" & vbCRLF Response.Write " <td width=""50"" align=""center"">" & GetTranslation("LANG_SEARCH_IN") & "</td>" & vbCRLF Response.Write " <td width=""170"">" & vbCRLF Response.Write " <select name=""categoria"" class=""cell"">" & vbCRLF Response.Write " <option value=""0"">" & GetTranslation("LANG_SELECT_CATEGORY") & "</option>" & vbCRLF Response.Write " <option value=""0"">---------------------------------</option>" & vbCRLF Response.Write " <option value=""all"">" & GetTranslation("LANG_SELECT_ALL") & "</option>" & vbCRLF Response.Write " <option value=""0"">---------------------------------</option>" & vbCRLF While Not oRs.EOF Response.Write " <option value=""" & cStr(oRs("id")) & """>"&oRs("categoria")&"</option>" & vbCRLF oRs.MoveNext Wend Response.Write " </select>" & vbCRLF Response.Write " </td>" & vbCRLF Response.Write " <td width=""70"" align=""center"">" & GetTranslation("LANG_TYPES") & "</td>" & vbCRLF Response.Write " <td width=""100"">" & vbCRLF Response.Write " <select name=""tipo"" class=""cell"">" & vbCRLF Response.Write " <option value=""2"" selected>" & GetTranslation("LANG_ALL") & "</option>" & vbCRLF Response.Write " <option value=""0"">" & GetTranslation("LANG_TYPE_SELL") & "</option>" & vbCRLF Response.Write " <option value=""1"">" & GetTranslation("LANG_TYPE_BUY") & "</option>" & vbCRLF Response.Write " </select>" & vbCRLF Response.Write " </td>" & vbCRLF Response.Write " <td colspan=""2""><input name=""valider"" type=""button"" value=""" & GetTranslation("LANG_SUBMIT") & """ onClick=""Java_Script:formSubmit();"" class=""button""></td>" & vbCRLF Response.Write " </tr>" & vbCRLF Response.Write "</_form>" & vbCRLF Response.Write "</table>" & vbCRLF Createbottomtable "" oRs.Close Set oRs = Nothing oCn.Close Set oCn = Nothing End Sub %> sarebbe il contenuto del search mercatino, a cui ho cambiato il nome (SM), richiamandolo così anche nel file xml e cambiandogli anche l'action (http://localohost/mercatino.asp) Quello che succede è che quando si cerca nel mercatino attraverso questo blocco esso rimanda alla pagina mercatino.asp nella quale viene anche visualizzato il risultato. Il problema è che se poi a questa pagina si vuole effettuare una ricerca attraverso il blocco presente in centro pagina quest'ultimo non produce risultato e IE nella barra di stato da errore di visualizzazione della pagina; nel dettaglio c'è scritto: Riga 923, carattere 25, document.SearchMercatino.parola.value' è nullo o non è un oggetto come mai succede ciò? Saluti, Carlo	Log in Login Password Memorizza i tuoi dati: Cerca Ovunque Notizie Downloads Films Articoli Link Immagini Commenti   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 : 122 Membri : 0  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: 5685366 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7 Versioni English Version Versión en español Version Française Versione Italiana Temi default original

 

 © AspNuke | Contattaci | Realizzato con ASP-Nuke 2.0.8 |  webdesign:
 Versione stampabile | Questa pagina è stata eseguita in 0,1210938 secondi.