Inserimento automatico campi predefiniti

[Mephisto84]

Ciao, ho creato un modulo di registrazione che controlla che tutti i campi richiesti siano stati inseriti correttamente, quindi con vari cicli if. Adesso vorrei che se un utente lascia in bianco un campo, venisse inserito nel db automaticamente un valore impostato da me. Ho provato una cosa del genere

if len(Avatar) = 0 then Rs("Avatar")= ("AvatarPredefinito")
else
Rs("Avatar")= request.form("Avatar")
endif

Ma ovviamente non funziona...Non va neanche l'impostazione predefinita fatta dal db, che vale soltanto per i nuovi campi inseriti manualmente da access.

Thank you

[Mems]

avatar = trim(request.form("avatar"))
if len(avatar) = 0 then avatar = "AvatarPredefinito"

Se avatar è vuoto allora nel db verrà scritta la parola AvatarPredefinito

[Mephisto84]

Non funziona
Può essere che la lunghezza dell'avatar nn gli risulta mai uguale a 0 perchè il campo value della casella di testo è value="""& Avatar &""" (necessario per recuperare il dato in caso di compilazione incompleta del form) ?

[Mems]

Facciamo un test

avatar = trim(request.form("avatar"))
if len(avatar) = 0 then avatar = "AvatarPredefinito"
response.write "Ecco cosa contiene avatar: " & avatar & "
"

[Mephisto84]

Dal test gli risulta l'avatar predefinito, ma poi di fatto nn lo inserisce nel db!
A sto punto riporto la parte del codice, a partire dall'ultimo ciclo di if che controlla il campo pwd e che reindirizza al form nel caso di compilazione errata e vediamo se mi sapete aiutare.

***Precedenti cicli simili a questo della pwd***

if len(Password2) = 0 or (Password<>Password2) then
if errore ="" then
errore = "5"
else
errore = errore &",5"
end if
end if




if errore <> "" then
	call dbDisconnect(conn)

	Response.Write("<form name=""searchbtmform"" action=""registration.asp"" method=""post"">")
	Response.Write("<input type=""hidden"" name=""Nickname"" value="""& Nickname &""" />")
	Response.Write("<input type=""hidden"" name=""Password"" value="""& Password &""" />")
	Response.Write("<input type=""hidden"" name=""Email"" value="""& Email &""" />")
	Response.Write("<input type=""hidden"" name=""UID"" value="""& UID &""" />")

	Response.Write("<input type=""hidden"" name=""errore"" value="""& errore &""" />")
	Response.Write("</form>")
	Response.Write("<script language=""JavaScript"">document.searchbtmform.submit()</script>")

else



Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Profile", conn, 3, 3
Rs.AddNew()
Rs("UID") = request.form("UID")
Rs("Nickname") = request.form("Nickname")
Rs("Password") = cripta(Password,Key)
Rs("Email")= request.form("Email")

***vari altri campi che ometto per comodità, segue l'AVATAR***

Avatar = trim(request.form("Avatar"))
if len(Avatar) = 0 then Avatar = "noavatar.gif"

Rs.Update

call dbDisconnect(conn)
	Response.Write "Registrazione effettuata con successo!"
end if

[Mephisto84]

Nessun aiutino per questa cavolata ?

[Mephisto84]

Ragazzi ho risolto:

Rs("Avatar")= request.form("Avatar")

if len(Avatar) = 0 then RS("Avatar") = ("http://www.xyzxyzxzxyz.com/noavatar.gif")

Andava messo semplicemente dopo e con questa sintassi...