non funziona il controllo testo if

[danielix05]

ciao e buon anno anticipato.

dato questo codice in basso non riesco a far funzionare la funzione if.. then... else...
in cosa sbaglio?

grazie

<%
Dim ModID
ModID = Request.Form("id")

MyDB="db.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
dsnpath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
conn.open dsnpath
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = conn
rs.Open "select * from PRODOTTI where id =" & ModID, ,1,3
rs("cod") = Request("cod")
rs("azienda") = Request("azienda") 
rs("materiali_ita") = Request("materiali_ita")
rs("materiali_eng") = Request("materiali_eng")
rs("misure") = Request("misure") 
rs("prezzo_in") = Request("prezzo_in")
rs("prezzo_out") = Request("prezzo_out")


dim foto
foto = Request("new_foto")
	if foto = "" then
		rs("foto") = Request("foto")
	
	else
		rs("foto") = foto
	
	end if

dalla pagina del form precedente mi riporto un input hidden="new_foto" in cui, alcune volte, potrebbe non esserci alcun valore ecco perchè ho necessità (in questo file di modifica) di capire se quel campo non ha testo e quindi deve registrare la request("foto") oppure, nel caso ci sia del testo, registrare la request("new_foto")

[optime]

prova ad usare la pluripremiata

IF TRIM(Foto & "[]") = "[]" THEN
''''''vuoto
ELSE
''''''pieno
END IF