Attivare nuovo servizio per clienti già registrati

[wegawhite]

Ciao. Vorrei chiedervi suggerimenti per la modifica di uno script asp che interagisce con dbase access 2000, ereditato dal vecchio programmatore:
il dbase in questione è stato strutturato con i seguenti campi:

-ID contatore e chiave primaria
-nome testo
-cognome testo
-data_registrazione data/ora
-email testo

alla luce di nuove esigenze (offrire il servizio ai clienti di registrare un account email del tipo nome.cognome@checosafaisulmiosito.it) ho aggiunto al dbase un nuovo campo testo chiamato account.

Per i nuovi clienti che si registrano è tutto a posto, ma il problema è per i vecchi clienti che saranno informati del nuovo servizio e senza ri-registrarsi potranno avere il nuovo account tramite l'accesso ad un'area riservata.

Come faccio a far inserire il nuovo account a chi si è già cliente e vuole attivare la nuova email?

Grazie

[kluster]

Originariamente inviato da wegawhite
Ciao. Vorrei chiedervi suggerimenti per la modifica di uno script asp che interagisce con dbase access 2000, ereditato dal vecchio programmatore:
il dbase in questione è stato strutturato con i seguenti campi:

-ID contatore e chiave primaria
-nome testo
-cognome testo
-data_registrazione data/ora
-email testo

alla luce di nuove esigenze (offrire il servizio ai clienti di registrare un account email del tipo nome.cognome@checosafaisulmiosito.it) ho aggiunto al dbase un nuovo campo testo chiamato account.

Per i nuovi clienti che si registrano è tutto a posto, ma il problema è per i vecchi clienti che saranno informati del nuovo servizio e senza ri-registrarsi potranno avere il nuovo account tramite l'accesso ad un'area riservata.

Come faccio a far inserire il nuovo account a chi si è già cliente e vuole attivare la nuova email?

Grazie

forse non ho capito il problema ma non basta che gli invii uun email con il link ad una pagina dove si loggano e cambiano il loro profilo

una paginetta di login che riporta ad una paginetta di modifica profilo

[wegawhite]

Originariamente inviato da kluster
forse non ho capito il problema ma non basta che gli invii uun email con il link ad una pagina dove si loggano e cambiano il loro profilo

una paginetta di login che riporta ad una paginetta di modifica profilo

Grazie, potrebbe essere una soluzione, in effetti quando accedono all'area riservata si loggano e possono fare operazioni con la sessione di tipo recupero password, cambio password, etc.

Intendi questo?
e per registrare il loro nuovo indirizzo email?

[kluster]

di base continuo ad avere dei dubbi,

cmq

fai una pagina con un bottone che al submit attiva il servizio

[wegawhite]

ok penso d'aver capito... però non riesco a fare l'update del record:

 If NOT session("login") then
	response.redirect "/it/dx_old.asp"
else

'vendemmia la form
mailbox = Request.Form("mailbox")
pwd = Request.Form("pwd")
email = Request.Form("email")
id = session("id")

'leggi db 
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/database.mdb")
objConn.Open strConn

strsql = "SELECT account FROM tbl_login WHERE account = '" &request("mailbox")& "' " 
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, strConn, 3, 3 

'user esistente 
if not objRs.bof and not objRs.eof then 
Response.write "'user esistente "

else

sql = "UPDATE tbl_login SET account = '" &request("mailbox")& "' and psw = '" &request("pwd")& "' WHERE id = " & session("id")
objConn.execute(sql)

la query restituisce:

UPDATE tbl_login SET account = '' and psw = '' WHERE id = 121

dove sbaglio?

[kluster]

sql = "UPDATE tbl_login SET account = '" &request("mailbox")& "',   psw = '" &request("pwd")& "' WHERE id = " & session("id")

i campo si aggiungono con virgola

[wegawhite]

non funziona lo stesso, posto il code completo:

<% 
If NOT session("login") then
response.redirect "/it.asp"
else

'vendemmia la form
mailbox = Request.Form("mailbox")
pwd = Request.Form("pwd")
email = Request.Form("email")
id = session("id")

'leggi db 
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/crm.mdb")
objConn.Open strConn

strsql = "SELECT account FROM tbl_login WHERE account = '" &request("mailbox")& "' " 
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, strConn, 3, 3 
'Response.write strsql

'user esistente 
if not objRs.bof and not objRs.eof then 

Response.write "user esistente "

else

sql = "UPDATE tbl_login SET account = '" &request("mailbox")& "', psw = '" &request("pwd")& "' WHERE id = " & session("id")
objConn.execute(sql)

if request("a")="" then %>

<html>

<head>
	<title></title>
	
	<script language="JavaScript"> 
</head>

<body>
	<form action="index.asp" method="post" onSubmit="return submitIt(this);">
		<font size="1">
		<input type="hidden" name="a" value="exec">
		
		</font>
		
		<table>
			<tr>
				<td align="right" valign="middle"></td>
				<td valign="middle" colspan="2">
                <p style="margin-top: 15; margin-bottom: 15" align="center">
                <font face="Verdana" size="1">
                <span style="font-weight: 700">- Puede crear una 
                nueva cuenta de usuario usando el siguiente formulario -</span></font></td>
				<tr>
				<td align="right" valign="middle">
                <font face="Verdana" size="1">MailBox</font></td>
				<td valign="middle"><font face="Verdana" size="1"><input type="text" name="mailbox" size="20"></font></td>
				<td valign="middle"><font face="Verdana" size="1">(Escribir el 
                nombre de <u>Su Nueva Cuenta Email</u> recibida a su 
                dirección email) </font>
			</tr>
			<tr>
				<td align="right" valign="middle">
                <font face="Verdana" size="1">Password</font></td>
				<td valign="middle"><font face="Verdana" size="1"><input type="text" name="pwd" size="20"></font></td>
				<td valign="middle"><font face="Verdana" size="1">
                (Escribir la clave para acceder a Su <u> 
                cuenta@comunidadmexicana.com</u>) </font>
			</tr>
			</tr>
			<tr>
				<td align="right" valign="middle">
                <font face="Verdana" size="1">Email</font></td>
				<td valign="middle"><font face="Verdana" size="1">
                <input type="text" name="Email" size="20"></font></td>
				<td valign="middle"><font face="Verdana" size="1">
                (Escribir una dirección email donde enviarle sus nuevos datos de registración) </font>
			</tr>
			<tr><td></td></tr>
			<tr>
				<td align="right" valign="middle"></td>
				<td valign="middle" colspan="2">
                <font face="Verdana" size="1"><input type="radio" name="option" value="add" checked> 
                Registrar MailBox</font></td>
			</tr>
			<tr><td></td></tr>
			<tr>
				<td align="right" valign="middle"></td>
				<td valign="middle" colspan="2">
                <font face="Verdana" size="1">
                <input type="submit" value="Crear Cuenta"></font></td>
			</tr>
		</table>
	</form>
</body>

</html>

<font size="1">

<% elseif lcase(request("a"))="exec" then %>

<html>

<head>
	</font>
	<title></title>
</head>
<font size="1" style="font-size: 9pt">
<body>

<%
set objgestmail=new clsgestmail
	
	objgestmail.domain   = "dominio.com"
	objgestmail.password = "psw"

	objgestmail.login
	
	if request("option") = "add" then
		objgestmail.addmailbox request("mailbox"),request("pwd")
	elseif request("option") = "del" then
		objgestmail.removemailbox request("mailbox")
	end if
	
  
	response.redirect "index.asp?a=confirm"
%>

</font>

</body>

</html>

<font size="1" style="font-size: 9pt">

<% elseif lcase(request("a"))="confirm" then %>

<html>

<head>
	<font size="1">
	<title></title>
	
	
</head>

</font>

</font>

<body>
	

<font face="Verdana" style="font-weight:700" size="1">ok</font></p>
</body>

</html>

<% 
objConn.close
set objConn = Nothing

end if 
end if 
%>

[wegawhite]

è lo stress....

[kluster]

fatti cancellare il msg o entra in modifica e cambia la pass di accesso
leggi in pvt

[wegawhite]

Originariamente inviato da kluster
fatti cancellare il msg o entra in modifica e cambia la pass di accesso
leggi in pvt

Grazie eseguito.