al posto di
codice:
'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


codice:
'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