Inserito il 12 marzo 2004 alle 20:12:47 da djveleno.

Modifichiamo il file Account-inc.asp

Modifichiamo il file Account-inc.asp

Per poter ovviare alla frettolosità di moltissimi utenti al momento dell'iscrizione ad un portale, vi propongo una piccolissima modifica, che vi permette di avere sempre spuntato il flag "Invio Newsletter" all'atto dell'iscrizione di un nuovo utente.

Editate il file /includes/account-inc.asp con il vostro editor preferito (meglio con NOTEPAD o WORDPAD) e, portatevi alla riga 27 del listato del programma, troverete:

rSQL = "INSERT INTO users (uLogin, uPassword, uEmail, uMSN, uYahoo, uICQ, uAIM, uURL, uSignature, uRole, uDate, uNewsletter, uProfile, uValid) VALUES ('" & SQLEncrypt(sMyLogin) & "', '" & SQLEncrypt(sMyPassword) & "', '" & SQLEncrypt(sMyEmail) & "', '', '', '', '', '', '', " & ROLE_USER & ", '" & DateTimeToString(Now()) & "', 0, 0, 1)"

Subito dopo & DateTimeToString(Now()) & "' trovate , 0, 0, 1...

Dovete modificare il primo 0 in 1, la stringa si presenterà così:

rSQL = "INSERT INTO users (uLogin, uPassword, uEmail, uMSN, uYahoo, uICQ, uAIM, uURL, uSignature, uRole, uDate, uNewsletter, uProfile, uValid) VALUES ('" & SQLEncrypt(sMyLogin) & "', '" & SQLEncrypt(sMyPassword) & "', '" & SQLEncrypt(sMyEmail) & "', '', '', '', '', '', '', " & ROLE_USER & ", '" & DateTimeToString(Now()) & "', 1, 0, 1)"

Posizionatevi ora alla riga 30, è molto simile:

rSQL = "INSERT INTO users (uLogin, uPassword, uEmail, uMSN, uYahoo, uICQ, uAIM, uURL, uSignature, uRole, uDate, uNewsletter, uProfile, uValid) VALUES ('" & SQLEncrypt(sMyLogin) & "', '" & SQLEncrypt(sMyPassword) & "', '" & SQLEncrypt(sMyEmail) & "', '', '', '', '', '', '', " & ROLE_USER & ", '" & DateTimeToString(Now()) & "', 0, 0, 0)"

Anche qui, modificate il primo 0 in 1, la stringa si presenterà così:

rSQL = "INSERT INTO users (uLogin, uPassword, uEmail, uMSN, uYahoo, uICQ, uAIM, uURL, uSignature, uRole, uDate, uNewsletter, uProfile, uValid) VALUES ('" & SQLEncrypt(sMyLogin) & "', '" & SQLEncrypt(sMyPassword) & "', '" & SQLEncrypt(sMyEmail) & "', '', '', '', '', '', '', " & ROLE_USER & ", '" & DateTimeToString(Now()) & "', 1, 0, 0)"

Oltre a questo metodo, ve ne suggerisco un'altro, con cui potete inserire la flag in entrambe le caselle, Mostra Profilo e Newsletter, la modifica va effettuata sempre nel file Account-inc.asp, e consiste nella sostituzione di 4 righe di codice:

Portarsi alla riga 277 e 278 e modificarle così:

Response.Write "<td align=""right""><input name=""uProfile"" type=""checkbox"" checked>"

Response.Write "</td>" & vbCRLF

Per la newsletter, portarsi alla riga 283 e 284 e modificarle così:

Response.Write "<td align=""right""><input type=""checkbox"" name=""uNewsletter"" checked>"
Response.Write "</td>" & vbCRLF

Ora i 2 flag sono riportati in automatico.


Fate sempre un back-up del file originale, oppure accertatevi di avere lo zip di AspNuke, in modo da poter estrarre il file in caso di errori o problemi.

Ciauzz DJ

9 Commenti - 4,2/5 - Voti : 6

Inserito il 13 marzo 2004 alle 13:31:20 da pierin.     Lo avevo proposto mesi fa su www.stzone.it, ed una una cosa molto utile, hai fatto bene a metterlo, bel lavoro, come sempre DJ

Inserito il 13 marzo 2004 alle 15:39:54 da netgratis.     FANTASTICO!!!! ;)

Inserito il 14 marzo 2004 alle 15:28:50 da SAMPEI.     come sempre sei a disposizione di tutti grazie per tutto DJVELENO !!!!!

Inserito il 14 marzo 2004 alle 15:29:16 da SAMPEI.     come sempre sei a disposizione di tutti grazie per tutto DJVELENO !!!!!

Inserito il 24 maggio 2004 alle 12:30:44 da Anonimo.     Ottima soluzione!

Inserito il 29 maggio 2004 alle 20:49:28 da the_crazy.     volevo sapere: i due metodi sono complementari? oppure a scelta va bene uno dei due?

Inserito il 25 agosto 2004 alle 03:54:05 da Anonimo.     ma per chè versione è codesta soluzione acciderbola ? con aspnuke beta 2.0 non mi risulta tale procedimento !

Inserito il 21 settembre 2004 alle 14:02:39 da Tony_B.     ma la cosa è riferita alla 1.2 ?!?!?! no perchè nella 2.0 non si specifica all'atto dell'iscrizione la volontà di essere iscritti in news letter, bensi dopo nel proprio profilo... !

Inserito il 22 settembre 2004 alle 14:53:46 da Anonimo.     Hi

Login	Anonimo
Messaggio	[b] [i] [u] [s] [url] [img] [cit]
Codice di sicurezza
Vota!	- 1 2 3 4 5 / 5