Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

testo mercatino 2.0.4

Autore Messaggio
netgratis

Avanzato
Avanzato
104 Discussioni



Profilo - netgratis
19 luglio 2006 alle 10:33:18 Profilo - netgratisInvia un messaggio privato Rispondi quotando
E' possibile aumentare la lunghezza del TESTO inseribile negli annunci del mercatino? 255 caratteri sono un po' pochi... e se è possibile, come devo fare?

Scusate l'ignoranza...! [!?!]
---------------

http://www.noichiesa.com
guyver

Esperto
Esperto
1270 Discussioni



Profilo - guyver
19 luglio 2006 alle 11:45:52 Profilo - guyverInvia un messaggio privato Rispondi quotando
Devi modificare il db sostituendo il tipo da carattere a memo ed in più modificare i file del mercatino per gestire un textarea al posto di un input text classico.
---------------
http://www.aspnukers.it
http://www.bitmaniasnc.com
guyver(at)anime4you.it (non è più attiva dopo aver chiuso il sito www.anime4you.it)
develop(at)aspnuke.it (non più attiva per motivi tecnici)
assistenza(at)bitmaniasnc.com
development(at)aspnukers.it
netgratis

Avanzato
Avanzato
104 Discussioni



Profilo - netgratis
19 luglio 2006 alle 14:43:20 Profilo - netgratisInvia un messaggio privato Rispondi quotando
Modificato il 19 luglio 2006 alle 14:47:38

queste modifiche le faccio con access? non conosco bene access... è un'operazione complicata? posso essere in grado di farla anche se non conosco il linguaggio?
Grazie in anticipo.
guyver

Esperto
Esperto
1270 Discussioni



Profilo - guyver
19 luglio 2006 alle 16:02:31 Profilo - guyverInvia un messaggio privato Rispondi quotando
Le operazioni al db le devi fare con access.
E' semplice, una volta aperto il db fai mostra struttura sulla tabella che devi modificare e fai come ti ho detto prima.
---------------
http://www.aspnukers.it
http://www.bitmaniasnc.com
guyver(at)anime4you.it (non è più attiva dopo aver chiuso il sito www.anime4you.it)
develop(at)aspnuke.it (non più attiva per motivi tecnici)
assistenza(at)bitmaniasnc.com
development(at)aspnukers.it
netgratis

Avanzato
Avanzato
104 Discussioni



Profilo - netgratis
19 luglio 2006 alle 22:58:57 Profilo - netgratisInvia un messaggio privato Rispondi quotando
sei gentilissimo, ma io sono... imbranatissimo!

Ho eseguito l'operazione in access sostituendo nel campo "testo" il tipo "memo" al posto di "testo", ma mi parli poi di file da modificare nel mercatino... quali? scusa se ti faccio specificare, ma come ti ho detto sono un po' imbranato... grazie per la pazienza...
---------------

http://www.noichiesa.com
guyver

Esperto
Esperto
1270 Discussioni



Profilo - guyver
20 luglio 2006 alle 09:27:04 Profilo - guyverInvia un messaggio privato Rispondi quotando
Devi modificare il file mercatino-inc.asp e per l'esattezza la sub InsertAnnuncioMercatino
---------------
http://www.aspnukers.it
http://www.bitmaniasnc.com
guyver(at)anime4you.it (non è più attiva dopo aver chiuso il sito www.anime4you.it)
develop(at)aspnuke.it (non più attiva per motivi tecnici)
assistenza(at)bitmaniasnc.com
development(at)aspnukers.it
netgratis

Avanzato
Avanzato
104 Discussioni



Profilo - netgratis
20 luglio 2006 alle 10:03:19 Profilo - netgratisInvia un messaggio privato Rispondi quotando
???... sono quasi al punto di partenza... non conosco ancora bene il linguaggio, ho tentato di capirci, ma pare di capire che si tratta di una sorta di Java_Script... esattamente nella Sub InsertAnnuncioMercatino(catID), quale parametro dovrei modificare?

Grazie ancora x la pazienza e scusa un principiante!
---------------

http://www.noichiesa.com
guyver

Esperto
Esperto
1270 Discussioni



Profilo - guyver
20 luglio 2006 alle 13:19:04 Profilo - guyverInvia un messaggio privato Rispondi quotando

Sub InsertAnnuncioMercatino(catID)
Dim oCn, oRs, rSQL, iLine
Dim Testo, note

iLine = 1
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
'//ZALABARD HtmlArea 3.0
Response.Write " " & AddHtmlArea_GetHTML("Adder", "testo") & vbCRLF
Response.Write " " & AddHtmlArea_GetHTML("Adder", "note") & vbCRLF
'// End Zalabard
Response.Write " var ok = true;" & vbCRLF
Response.Write " var texte = '" & GetTranslation("LANG_MUST_FILL") & "';" & vbCRLF
Response.Write " if (document.Adder.titolo.value == '')" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " ok = false;" & vbCRLF
Response.Write " texte = texte + '
- " & GetTranslation("LANG_TITLE_ANN") & "';" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " if (document.Adder.testo.value == '')" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " ok = false;" & vbCRLF
Response.Write " texte = texte + '
- " & GetTranslation("LANG_TEXT_ANN") & "';" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " if (document.Adder.nome.value == '')" & vbCRLF
Response.Write " {" & vbCRLF
Response.Write " ok = false;" & vbCRLF
Response.Write " texte = texte + '
- " & GetTranslation("LANG_YOUR_NAME") & "';" & 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 "SearchAnnunci", "" & 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=""tablelinemain"">" & 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=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_DATA_INS") & ":</td>" & vbCRLF
Response.Write " <td><input type=""hidden"" name=""datainserimento"" value="""&Now()&""">"&Now()&"</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & 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
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & 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
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>&nbsp;</td>" & vbCRLF
Response.Write " <td>" & vbCRLF
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td valign=""top"">" & GetTranslation("LANG_TEXT_ANN") & "</td>" & vbCRLF
Response.Write " <td>" & vbCRLF
AddHTMLAREA "testo", "", "", 60, 5, "cell", Server.HTMLEncode(testo)
Server.HTMLEncode(testo)
Response.Write " </td></tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>&nbsp;</td>" & vbCRLF
Response.Write " <td>" & vbCRLF
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td valign=""top"">" & GetTranslation("LANG_NOTES") & "</td>" & vbCRLF
Response.Write " <td>" & vbCRLF
AddHTMLAREA "note", "", "", 60, 5, "cell", Server.HTMLEncode(testo)
Server.HTMLEncode(testo)
Response.Write " </td></tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_IMAGE_INS") & "</td>" & vbCRLF
Response.Write " <td>" & vbCRLF
Response.Write " <input name=""immagine"" class=""cell"" id=""immagine"" maxlength=""200"" size=""50"">" & vbCRLF
Response.Write " <a href=""Java_Script:openPicture()"" title=""" & GetTranslation("LANG_PREVIEW") & " " & GetTranslation("LANG_IMAGE") & """><img src=""" & GLOBAL_SITE_IMAGES_PATH & "view.gif"" border=""0""></a>" & vbCRLF
Response.Write " <a href=""Java_Script:uploadPicture('document.Adder.immagine')""><img src=""" & GLOBAL_SITE_IMAGES_PATH & "edit.gif"" border=""0""></a>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_YOUR_NAME") & "</td>" & vbCRLF
Response.Write " <td><input name=""nome"" maxlength=""100"" size=""50"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_YOUR_EMAIL") & "</td>" & vbCRLF
Response.Write " <td><input name=""email"" maxlength=""100"" size=""50"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_YOUR_PHONE") & "</td>" & vbCRLF
Response.Write " <td><input name=""telefono"" maxlength=""100"" size=""50"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_YOUR_CITY") & "</td>" & vbCRLF
Response.Write " <td><input name=""citta"" maxlength=""100"" size=""50"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_PMESSAGE") & "</td>" & vbCRLF
Response.Write " <td><input type=""checkbox"" name=""isMessage""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = ((iLine-1) XOr 1) + 1

Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_YOUR_NICKNAME") & "</td>" & vbCRLF
Response.Write " <td>" & sPseudo & "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td valign=""top"" colspan=""2"" align=""right"">" & vbCRLF
Response.Write " <input type=""button"" value=""" & GetTranslation("LANG_ADD") & " " & GetTranslation("LANG_ANNOUNCE") & """ onClick=""Java_Script:ParolaSubmit();"" class=""button"">" & vbCRLF
Response.Write " </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

Eccoti la sub modificata
---------------
http://www.aspnukers.it
http://www.bitmaniasnc.com
guyver(at)anime4you.it (non è più attiva dopo aver chiuso il sito www.anime4you.it)
develop(at)aspnuke.it (non più attiva per motivi tecnici)
assistenza(at)bitmaniasnc.com
development(at)aspnukers.it
netgratis

Avanzato
Avanzato
104 Discussioni



Profilo - netgratis
20 luglio 2006 alle 13:48:46 Profilo - netgratisInvia un messaggio privato Rispondi quotando
TROOOPPPO GENTILE!!!
fORTISSIMO! GRAZIE 1.000!!! (o)
---------------

http://www.noichiesa.com
guyver

Esperto
Esperto
1270 Discussioni



Profilo - guyver
21 luglio 2006 alle 20:20:15 Profilo - guyverInvia un messaggio privato Rispondi quotando
Di niente
---------------
http://www.aspnukers.it
http://www.bitmaniasnc.com
guyver(at)anime4you.it (non è più attiva dopo aver chiuso il sito www.anime4you.it)
develop(at)aspnuke.it (non più attiva per motivi tecnici)
assistenza(at)bitmaniasnc.com
development(at)aspnukers.it

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 : 195
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: 5684793 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi