Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO 2.08
      MODULI AGGIUNTIVI
         Modificare Inserimento annunci mercatino

Modificare Inserimento annunci mercatino

Autore Messaggio
peppeC

Amatore
Amatore
44 Discussioni


Profilo - peppeC 		06 maggio 2009 alle 19:12:20 Profilo - peppeCInvia un messaggio privato Rispondi quotando
Salve,
Ho dei problemi con il modulo mercatino, in quanto mi fà aggiungere solo 3 categorie. Tutta via io vorrei sganciare l'inserimento degli annunci dal database categorie e inserire la categoria con un semplice elenco a discesa.
Però l'inserimento è legato a catID del db categorie.
Come posso togliere questo legame. riporto sotto parte del codice per l'inserimento.

Sub InsertAnnuncioMercatino(catID)
Dim oCn, oRs, rSQL

Set oCn = DBConnexion(DB_MERCATINO)
rSQL = "SELECT categoria FROM me_categoria WHERE id=" & catID
Set oRs = DBRecordSet(oCn, rSQL)
Response.Write "<_Script language=""Java_Script"">" & vbCRLF
Response.Write "function winOpen(url)" & vbCRLF
Response.Write "{" & vbCRLF
Response.Write " newWindow = window.open(url, '', 'menubar=no, scrollbars=no, status=no, resizable=no, location=no, status=0, toolbar=no, directories=no, width=420, height=320');" & vbCRLF
Response.Write "}" & vbCRLF
Response.Write "</_Script>" & vbCRLF
Response.Write " <_Script language=""Java_Script"">" & vbCRLF

Response.Write " function uploadPicture(elem)" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " if (elem != '')"
Response.Write " {" & vbCRLF
Response.Write " window.open('" & GLOBAL_SITE_PATH & "uploadimg.asp?item=' + elem, 'Picture', 'width=500,height=100,menubar=no,resizable=no');" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " }" & vbCRLF

Response.Write " function openPicture()" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " var sMyPicture = document.Adder.immagine.value;" & vbCRLF
Response.Write " if (sMyPicture != '')"
Response.Write " {" & vbCRLF
Response.Write " window.open('" & GLOBAL_SITE_PATH & GLOBAL_SITE_VIEW_IMAGE_PAGE & "?img=' + sMyPicture, 'Picture', 'width=500,height=100,menubar=no,resizable=yes');" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " }" & vbCRLF

Response.Write " function ParolaSubmit()" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " var ok = true;" & vbCRLF
Response.Write " var texte = 'Fai attenzione!';" & vbCRLF
Response.Write " if (document.Adder.titolo.value == '')" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " ok = false;" & vbCRLF
Response.Write " texte = texte + '
- Devi specificare un titolo';" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " if (document.Adder.testo.value == '')" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " ok = false;" & vbCRLF
Response.Write " texte = texte + '
- Devi specificare un testo';" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " if (document.Adder.nome.value == '')" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " ok = false;" & vbCRLF
Response.Write " texte = texte + '
- Non hai inserito il tuo nome';" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " if (ok)" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " document.Adder.submit();" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " else" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " alert(texte);" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " </_Script>" & vbCRLF
CreateTopTable "Warning", GetTranslation("LANG_WARNING")
Response.Write "" & GetTranslation("LANG_WARNING_TEXT") & "" & vbCRLF
CreateBottomTable ""
CreateTopTable "Search", "" & GetTranslation("LANG_INSERT_ANN") & """" & UCase(oRs("categoria").Value) & """"
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write "<_form name=""Adder"" method=""post"" action=""" & sUrlPage & """>" & vbCRLF
Response.Write " <input type=""hidden"" name=""Action"" value=""add"">" & vbCRLF
Response.Write " <input type=""hidden"" name=""catID"" value=""" & catID & """>" & vbCRLF
Response.Write " <input type=""hidden"" name=""login"" value=""" & sPseudo & """>" & vbCRLF
Response.Write " <tr class=""tablelinemainmercatino"">" & vbCRLF
Response.Write " <td width=""28%"">" & GetTranslation("LANG_FIELD") & "</td>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_VALUE") & "</td>" & vbCRLF
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline1"">" & vbCRLF
Response.Write " <td>Date di inserimento:</td>" & vbCRLF
Response.Write " <td><input type=""hidden"" name=""datainserimento"" value="""&Now()&""">"&Now()&"</td>" & vbCRLF
Response.Write "<td><input type=""hidden"" name=""datafine"" value="""&Now()+30&""">"&Now()+30&"</td>" & VbCrlf
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline2"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_TYPE_ANN") & "</td>" & vbCRLF
Response.Write " <td>" & vbCRLF
Response.Write " <select name=""tipo"" class=""cell"">" & 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 " </tr>" & vbCRLF
Response.Write " <tr class=""tableline1"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_TITLE_ANN") & "</td>" & vbCRLF
Response.Write " <td><input name=""titolo"" maxlength=""100"" size=""50"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		06 maggio 2009 alle 20:05:03 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Guarda, nel mio portale di prova ho inserito 10 categorie nel mercatino, non vedo come possa essere bloccato a solo 3 il tuo.
Per quanto riguarda la parte dell'inserimento tramite una lista a discesa non legata al db, è impossibile, datoche gli annunci sono legati alle categorie che vengono poi riprese dalla tabella me_categorie nel db mercatino, eliminando la tabella non sarebbe più possibile dividere gli annunci per categoria, la sola casella a discesa non basta per dividere gli oggetti in categorie, la casella a discesa potrebbe essere implementata se collegata alla tabella del db, ma, non vedo alcun giovamento, il risultato sarebbe identico, ovvero, creare delle categorie da form in amministrazione o, creare delle categorie tramite casella a discesa deve comunque fare riferimento al db.
---------------
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 		07 maggio 2009 alle 18:31:37 Profilo - peppeCInvia un messaggio privato Rispondi quotando
Grazie mille djveleno,
ho risolto formattando i db e rifacendoli di nuovo.

Ora ho questo problema... Se invio un messaggio privato mi spunta questo:

ErroreSQL
Microsoft VB Script runtime error '800a01a8'

Object required: 'DBRecordSet(...)'

/italia/includes/merc_message-inc.asp, line 202

Ma cosa vorrà dire?
Salve
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		07 maggio 2009 alle 22:18:24 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Non apre la tabella dei messaggi, messagelist, controlla che le tabelle siano tutte presenti.
---------------
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 : 377
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: 5684524 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi