If che riconosce se l'input è vuoto

[Vash SD]

Salve a tutti, ho creato questo script per vedere per inserire i dati in un database. Finito, l'ho modificato aggiungendogli un if che vedesse gli input del form precedente erano vuoti e reagiva in un certa maniera.

Codice:

<%
	if (user = "") then
		Response.Write("Inserisci l'Username! E riprova")
	elseif (pass = "") then
		Response.Write("Inserisci la password! E riprova")
	elseif (descrizione_utente = "") then
		Response.Write("Inserisci una descrizione! E riprova")
	else

	'Save entered username and password
	Username = Request.Form("user")
	Password = Request.Form("pass")
	Descrizione = Request.Form("descrizione_utente")
	nome_utente = Request.Form("nome")
		
	'Build connection
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("database.mdb")
	set rs = server.CreateObject ("ADODB.Recordset")
	'Open all records
	rs.Open "SELECT * FROM tabella", conn, 3, 3 
		
	'Add a record
	rs.AddNew 
	'Put username and password in record
	rs("Username")=Username
	rs("Password")=Password
	rs("Descrizione")=Descrizione
	'Save record
	rs.Update 
	
	rs.close
	conn.close
	
	set rs=nothing
	set conn=nothing
	
	Response.Write("Ciao  " & nome_utente & " , i dati sono stati inseriti con successo nel database!")
	
	end if
%>
Torna indietro

Errore:

Inserisci l'Username! E riprova

Microsoft JET Database Engine error '80004005'

System resource exceeded.

/Hetfield/2/create.asp, line 23

[Vash SD]

l'errore è sbagliato pardon. Mi dice sempre di inserire l'username e riprovare anche se compilo utti i moduli o compilo l'input username

[Roby_72]

Hai messo il controllo IF... prima di recuperare i valori... quindi è logico che ti dia quell'errore.

Roby

[Vash SD]

oddio scusa sono alle prime armi, che significa il controlla if

[Vash SD]

scusa avevo letto male il messaggio , non fare caso al messaggio sopra.
Grazie della risposta Roby.
recupero i valori e poi faccio l'IF però mi dice sempre che devo recuperare l'username.

<%
	'Save entered username and password
	Username = Request.Form("user")
	Password = Request.Form("pass")
	Descrizione = Request.Form("descrizione_utente")
	nome_utente = Request.Form("nome")
	
	if (user = "") then
		Response.Write("Inserisci l'Username! E riprova")
	elseif (pass = "") then
		Response.Write("Inserisci la password! E riprova")
	elseif (descrizione_utente = "") then
		Response.Write("Inserisci una descrizione! E riprova")
	else
		
	'Build connection
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("database.mdb")
	set rs = server.CreateObject ("ADODB.Recordset")
	'Open all records
	rs.Open "SELECT * FROM tabella", conn, 3, 3 
		
	'Add a record
	rs.AddNew 
	'Put username and password in record
	rs("Username")=Username
	rs("Password")=Password
	rs("Descrizione")=Descrizione
	'Save record
	rs.Update 
	
	rs.close
	conn.close
	
	set rs=nothing
	set conn=nothing
	
	Response.Write("Ciao  " & nome_utente & " , i dati sono stati inseriti con successo nel database!")
	
	end if
%>
Torna indietro

[Roby_72]

Vediamo il form.

Roby

[OcchioCrepato]

Se recuperi la variabile user e la assegni alla variabile username devi controllare username e non user, così come le altre condizioni.

<%
	'Save entered username and password
	Username = Request.Form("user")
	Password = Request.Form("pass")
	Descrizione = Request.Form("descrizione_utente")
	nome_utente = Request.Form("nome")
	
	if (Username  = "") then
		Response.Write("Inserisci l'Username! E riprova")
	elseif (Password = "") then
		Response.Write("Inserisci la password! E riprova")
	elseif (Descrizione = "") then
		Response.Write("Inserisci una descrizione! E riprova")
	else
		
	'Build connection
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("database.mdb")
	set rs = server.CreateObject ("ADODB.Recordset")
	'Open all records
	rs.Open "SELECT * FROM tabella", conn, 3, 3 
		
	'Add a record
	rs.AddNew 
	'Put username and password in record
	rs("Username")=Username
	rs("Password")=Password
	rs("Descrizione")=Descrizione
	'Save record
	rs.Update 
	
	rs.close
	conn.close
	
	set rs=nothing
	set conn=nothing
	
	Response.Write("Ciao  " & nome_utente & " , i dati sono stati inseriti con successo nel database!")
	
	end if
%>
Torna indietro

Inoltre con questo codice dai la possibiltà di inserire sempre lo stesso username.
devi controllare che lo username non esista nel db prima di inserirlo.

Per inserire nel db utilizza una query di inserimento usando la sintassi "insert into.."

[Vash SD]

grazie dell'aiuto siete stati molto gentili.

Saluti

[Vash SD]

Per inserire nel db utilizza una query di inserimento usando la sintassi "insert into.."

quindi? mi potresti dare un mano con la query visto che sono alle prime armi scusa se ti disturbo sempre.

[OcchioCrepato]

al posto di

'Build connection
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("database.mdb")
	set rs = server.CreateObject ("ADODB.Recordset")
	'Open all records
	rs.Open "SELECT * FROM tabella", conn, 3, 3 
		
	'Add a record
	rs.AddNew 
	'Put username and password in record
	rs("Username")=Username
	rs("Password")=Password
	rs("Descrizione")=Descrizione
	'Save record
	rs.Update 
	
	rs.close
	conn.close
	
	set rs=nothing
	set conn=nothing

devi scrivere

'Build connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 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 tabella where username='" & username & "'"
rs.open sSQL,conn,3,3
if not rs.eof then
 trovato=true
end if
rs.close
set rs = nothing



if not trovato then
  'lo username non è presente lo inserisco nel database
  sSQL="insert into tabella "
  sSQL=sSQL & " (Username, Password, Descrizione) "
  sSQL=sSQL & " values ( "
  sSQL=sSQL & "'" & Username & "',"
  sSQL=sSQL & "'" & Password & "',"
  sSQL=sSQL & "'" & Descrizione & "'"
  sSQL=sSQL & " )"

  conn.execute(sSQL)

end if


conn.close
set conn=nothing

ciao