registrazione utenti

[moncicci]

Ciao a tutti! Finalmente sono riuscito a creare 1 form di registrazione ke funzioni, però ho 1 problema: nel mio database c'è 1 campo, di tipo "data/ora", kiamato "ExpireDate", dove c'è la data d scadenza dell'account. La domanda è questa: vorrei ke, quando 1 utente si registra, questo campo assegni automaticamente la data di scadenza, senza dover x forza, da parte dell'amministratore, impostarlo manualmente...è possibile? aspetto risposte e...BUONA DOMENICA!

[Roby_72]

La data la ottieni con

date()

Quindi aggiungilo nella query.

Roby

[moncicci]

scusa la mia ignoranza...mi puoi fare 1 esempio pratico? Cmq questo è il codice della pagina di registrazione:

<%
' Recuperiamo i dati dal form
dim strNome
strNome = request.form("nome")

dim strCognome
strCognome = request.form("cognome")

dim strEmail
strEmail = request.form("email")

' Verifichiamo che i campi non siano vuoti...
If strNome <> "" and strCognome <> "" and strEmail <> "" Then 

' Se i campi NON sono vuoti procediamo...

' Connessione al DB
myDB = "/mdb-database/login.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)

' Lavoriamo sul Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Login", conn, 3,3
rs.addnew
rs("UserName") = strNome
rs("PassWord") = strCognome
rs("email") = strEmail
rs("Clearance") = 1
rs.update

' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

' Risposta a video di conferma
response.write "Scrittura avvenuta correttamente!"

' Se i campi SONO vuoti...
Else
response.write "Errore! Nessun campo può essere vuoto!"

' Chiudiamo la condizione IF
End If
%>

[Roby_72]

rs.addnew
rs("UserName") = strNome
rs("PassWord") = strCognome
rs("email") = strEmail
rs("Clearance") = 1
rs("ExpireDate") = date()

Roby