non aggiungere record se il campo e' vuoto

[tabarto]

Ciao a tutti, ho una pagina asp che ha un modulo che invia messaggi agli utenti del sito...
Questo modulo ha due campi un To ed un CC . che servono per mandare lo stesso messaggio a due persone.
Tutto funziona alla grande, nel senso che il messaggio viene inviato a due persone se inserisco due nomi nei rispettivi campi...
Il campo To e' obbligatorio mentre CC no. Il problema viene quando in CC non metto niente in quel caso lo script aggiunge un record nel database dove non inserisce niente nel campo CC . Avrei bisogno di un controllino che gli dicesse che se CC e' vuoto allora non aggiungere record ma aggiungi solo quello di To . Il problema e' che non sono per niente bravo con gli If e cosi' non mi riesce dargli questa istruzione...
ecco la pagina che fa il controllo dei campi e aggiunge record nel DB:

<%
Dim destinatario , destinatario1
Destinatario = Request.Form("requiredTo")
Destinatario1 = Request.Form("CC")

mittente = session("Namereq")

sql3 = "SELECT * FROM MessageBoard"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql3, conn ,1,3

RS1.Addnew


Rs1.fields("mittente") = mittente
Rs1.fields("Data") = request("Data")
RS1.fields("Type") = request("requiredType")
Rs1.fields("destinatario") = destinatario
RS1.fields("Title") = request("requiredTitle")
RS1.fields("Description") = request("requiredDescription")
RS1.update

rs1.Close
set rs1 = Nothing

sql2 = "SELECT * FROM MessageBoard"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql2, conn ,1,3

RS.Addnew

Rs.fields("mittente") = mittente
Rs.fields("Data") = request("Data")
RS.fields("Type") = request("requiredType")
Rs.fields("destinatario") = destinatario1
RS.fields("Title") = request("requiredTitle")
RS.fields("Description") = request("requiredDescription")
RS.update

rs.Close
set rs = Nothing
%>

[maximum]

Prova così:

If Not IsNull(destinatario) then

   RS1.Addnew 

   Rs1.fields("mittente") = mittente 
   Rs1.fields("Data") = request("Data") 
   RS1.fields("Type") = request("requiredType") 
   Rs1.fields("destinatario") = destinatario 
   RS1.fields("Title") = request("requiredTitle") 
   RS1.fields("Description") = request("requiredDescription") 
   RS1.update

Else

   RS1.Addnew 

   Rs1.fields("mittente") = mittente 
   Rs1.fields("Data") = request("Data") 
   RS1.fields("Type") = request("requiredType") 
   Rs1.fields("destinatario") = To 
   RS1.fields("Title") = request("requiredTitle") 
   RS1.fields("Description") = request("requiredDescription") 
   RS1.update

End If

[tabarto]

ciao maximum, l'idea l'ho capita ma non puo' andar bene perche' i due messaggi a To e CC sono due recordset diversi guarda il mio primo post.
bisognerebbe che mettessi l'if not solo in destinatario1
che ne dici?

[SuperMariano81]

io farei così:

if destinatario 1 <> "" then
	sql2 = "SELECT * FROM MessageBoard"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql2, conn ,1,3
	RS.Addnew
	Rs.fields("mittente") = mittente
	Rs.fields("Data") = request("Data")
	RS.fields("Type") = request("requiredType")
	Rs.fields("destinatario") = destinatario1
	RS.fields("Title") = request("requiredTitle")
	RS.fields("Description") = request("requiredDescription")
	RS.update
	rs.Close
	set rs = Nothing 
end if

[tabarto]

ho provato l'idea effettivamente mi sembrava buona, ma se lascio vuoto il campo lui mi scrive = il record ecco tutto il codice....

<%
Dim destinatario, destinatario1
Destinatario = Request.Form("requiredTo")

Destinatario1 = Request.Form("CC")

mittente = session("Namereq")


%>
<%
if destinatario1 <> "" then
sql2 = "SELECT * FROM MessageBoard"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql2, conn ,1,3
RS.Addnew
Rs.fields("mittente") = mittente
Rs.fields("Data") = request("Data")
RS.fields("Type") = request("requiredType")
Rs.fields("destinatario") = destinatario1
RS.fields("Title") = request("requiredTitle")
RS.fields("Description") = request("requiredDescription")
RS.update
rs.Close
set rs = Nothing
end if
%>
<%
sql2 = "SELECT * FROM MessageBoard"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql2, conn ,1,3

RS.Addnew

Rs.fields("mittente") = mittente
Rs.fields("Data") = request("Data")
RS.fields("Type") = request("requiredType")
Rs.fields("destinatario") = destinatario
RS.fields("Title") = request("requiredTitle")
RS.fields("Description") = request("requiredDescription")
RS.update

rs.Close
set rs = Nothing
%>

che ne dite?

[tabarto]

Qualche altra idea?????????

Non so piu' dove

[SuperMariano81]

Originariamente inviato da tabarto
Qualche altra idea?????????

Non so piu' dove

il codice sembra buono, strano che non ti funzioni....

[tabarto]

no no perfetto era un piccolo errore di sintassi ora va benissimo, grazie mille SuperMariano 81,