Registrazione

[Vash SD]

Ho questo codice che ho creato per registrare gli utenti ma non funziona

<%
	'Save entered username, password, name and email
	Username = Request.Form("user")
	Password = Request.Form("pass")
	Nome = Request.Form("nome")
    Email = Request.Form("email")
	
	if (Username  = "") and (Password = "") and (Name = "") then
		Response.Write("Compila tutti i campi!")
	elseif (Username  = "") then
		Response.Write("Inserisci l'Username!")
	elseif (Password = "") then
		Response.Write("Inserisci la password!")
	elseif (Nome = "") then
		Response.Write("Inserisci il Nome!")
        elseif (Email = "") then
		Response.Write("Inserisci l'E-mail!")
	
	else
	    'Crea la connessione
	    set conn = server.CreateObject ("ADODB.Connection")
	    conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("database.mdb")

	    'controllo che lo username non sia già presente nel database
	    trovato=false
	    set rs = server.CreateObject ("ADODB.Recordset")
	    sSQL="select * from Utenti where username='" & Username & "'"
	    rs.open sSQL,conn,3,3
	    if not rs.eof then
	     trovato = true
	    end if
		
	 if not trovato then
		
		'Nuovo Record da inserire
		rs.AddNew
		
		'Mettimi Username, Password, Nome e Email nei loro rispettivi campi
		rs("Username")= Username
		rs("Password")= Password
		rs("Nome")= Nome
		rs("Email")= Email
		  
		'Salva i dati
		rs.Update
		
	    conn.execute(sSQL)
		
		rs.close
	    set rs = nothing
		
	    conn.close
	    set conn=nothing
	    Response.Write("Ciao  " & Name & " , la registrazione è avvenuta con successo!")
	 else
  		Response.Write("Lo username  " & Username & " , è già presente del database!")
	 end if
	end if
%>

L'errore è il seguente:

ADODB.Recordset error '800a0c93'

Operation is not allowed in this context.

/hetfield/reg_verify.asp, line 46

La riga 46 è la seguente: rs.Update
Inoltre c'è qualcuno che mi può dire come inserire anche la data di registrazione dell'utente nel database che non so perniente come si faccia!

Saluti

[Santino83_02]

se non erro (ma io questo modo di aggiornare il database non lo uso) il problema sta nel fatto che tu apri il recordset con "select .. from.. where a=b"...prova a fare o una "select * from utenti" o solo "Utenti" (quindi devi fare due query al db)

per il discorso della data,

nel db metti un campo "dataReg" o come ti pare del tipo "data/ora", al momento dell'inserimento fai

rs("dataReg")=now()

[Vash SD]

oddio, per la parte della query, non ti ho capito. Casomai prova a dirmi come fai tu così siamo sicuri che ci riesco

Per la data credo di aver capito, poi casomai se riscontro problemi posto il codice.

Aspetto la tua risposta, grazie dell'interessamento,

Saluti, Vash SD

[-AA-]

per la data, imposti un campo DATA nel tuo DB access e in "valore predefinito" scrivi Now() così che fai senza inserire la data nel INSERT INTO ma te la trovi bella che stampata in access per ogni record...

- ti consiglio di fare i controlli del campo lato client con JS nella pagina del form

Scusa ma che vor di questa "if not trovato then" ...???

[Vash SD]

 if not rs.eof then
               trovato = true
	end if
		
	 if not trovato then
		
		'Nuovo Record da inserire
		rs.AddNew
		
		'Mettimi Username, Password, Nome e Email nei loro rispettivi campi
		rs("Username")= Username
		rs("Password")= Password
		rs("Nome")= Nome
		rs("Email")= Email
		  
		'Salva i dati
		rs.Update
      ......
      ......

Se ho sbagliato ti prego, correggimi in qualsiasi modo !

[-AA-]

oddio ...sbagliato ... uhmmm

if not trovato then <--- bho!

fai
if trovato = false then



scusa ma dove è la query di update al db ?

[Vash SD]

ok correggo..

cioè?

[-AA-]

cioè?....la famosa INSERT INTO ....

posso chiederti una cosa?...di asp quanto ne sai (non offenderti è per sapere il livello di aiuto che ti serve)

[Santino83_02]

toglimi una curiosità e prova questo:

....

set rs = server.CreateObject ("ADODB.Recordset")
	    sSQL="select * from Utenti where username='" & Username & "'"
	    rs.open sSQL,conn,1,1

	 if rs.eof then 'inserisco nuovo

               set rsInsert=server.CreateObject("ADODB.Recordset")
               sSql="Select * from Utenti"
               rsInsert.open sSql,conn,3,3

               rsInsert.addnew
               .......
               .......
               rsInsert.Update
               rsInsert.close : set rsInsert=nothing
        end if

       rs.close : set rs=nothing

[Vash SD]

Originariamente inviato da -AA-
cioè?....la famosa INSERT INTO ....

posso chiederti una cosa?...di asp quanto ne sai (non offenderti è per sapere il livello di aiuto che ti serve)

eheh, scusami tanto se sbaglio! Non sapevo che la query di update fosse insert into. Stupido io che non ci ho pensato.

La curiosita? Prego...
Bhè per un ragazzino di 13 anni, abbastanza direi! Scusami se ti cito il regolamento, - AA -, ma certe volte è bene rinfrescarsi la memoria.

Regole Forum ASP n°3
Nessuno è obbligato a rispondere MAI a nessun messaggio. Se lo fa è per sua pura gioia e gaudio.

Non ho bisogno di te, se mi vuoi aiutare, bene ne sono felice ma non accetto offese io ne so quanto ne so se ne sapevo dippiù certo non venivo a chiedertelo!

Santino ho provato il tuo codice ma mi da errore quando modifico la parte del codice con:

                           rs("Username")= Username
			   rs("Password")= Password
			   rs("Nome")= Nome
			   rs("Email")= Email
			   rs("datareg")= now()

errore:

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/hetfield/reg_verify.asp, line 36

linea 36: rs("Username")= Username