Newsgroup: it.comp.www.asp
Titolo: Problema con campo vuoto

Cliente = Replace(Cliente, "[Descrizione2]", RSnomi("Descrizione2"), 1,
-1, 1)
se il campo Descrizione2 è vuoto mi da errore
Errore di run-time di Microsoft VBScript (0x800A005E)
Utilizzo non valido di Null: 'Replace'
come risolvo??					
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

nella query di RSNomi usa NVL(NOMECAMPO, ' ') se usi oracle

 come risolvo??
Nella struttura di tabella devi impostare la proprietà del campo "Consenti
lunghezza zero" a VERO.
Ciao
Mida

 ha scritto nel messaggio 
news:tkWTe.35659$4g5.2...@news4.tin.it...

E' impostato a lunghezza zero consenti SI
richiesto No

 -1, 1)
Premesso (al solito) che sono un po' arrugginito con questo linguaggio:
 se usi sql server, o penso anche con access (non so da quale versione)
puoi usare select ... coalesce(Descrizione2,'') Descrizione e risolvi a
priori. Questa IMHO è la strada migliore.
Non hai specificato che db usi, penso esisterà una strada per farlo
direttamente nella query.
Se non puoi verifica il campo.
Se non ricordo male in vbscript (sa dio perché) non hanno implementato iif
(che sarebbe comodissimo in questo caso), al massimo piazza un if:
if IsNull(RSnomi("Descrizione2").value) then
  'replace chessò, per esempio con "" 
else
  'replace normale
-- 
"E' l' ignoranza che crea l'intolleranza
 di gente cieca e senza coscienza"
									  S.S.S.

 ha scritto nel messaggio 
news:bhcq3c7ettll$.dlg@ID-147253.user.individual.net...

'---Leggo il contenuto dell'intervallo di date
  SQLCarrello = " SELECT Attivita.ID_Nominativo, Nominativi.Ragione_Sociale, 
Nominativi.Descrizione2, Attivita.Data_Attivita, Attivita.Note_attivita, "&_
  "Attivita.ID_Agente, Agenti.Agente_Nome, Agenti.Agente_Cognome FROM 
(Attivita LEFT JOIN Nominativi ON Attivita.ID_Nominativo = 
Nominativi.ID_nominativo) "&_
  "LEFT JOIN Agenti ON Nominativi.ID_Agente = Agenti.ID_Agente WHERE 
data_attivita BETWEEN #" & data1 & "# AND #" & data2 & "#"&"order by 
data_attivita, ragione_sociale"
  Set RSCarrello = Conn.Execute(SQLCarrello)
  If NOT RSCarrello.EOF Then
'---Apro le righe da inserire nella mail del report gestione visite
     RSCarrello.MoveFirst
     Do while Not RSCarrello.EOF
       Nome = RSCarrello("Agente_Nome")
      Cognome = RSCarrello("Agente_Cognome")
      data = data1
      gg = mid(data,4,2)
      mm = mid(data,1,2)
      aa = mid(data,7)
      new_data1 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
      data = data2
      gg = mid(data,4,2)
      mm = mid(data,1,2)
      aa = mid(data,7)
      new_data2 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
      UnProdotto = RigaProdotto
      UnProdotto = Replace(UnProdotto, "[Ragione_Sociale]", 
RSCarrello("Ragione_Sociale"), 1, -1, 1)
      UnProdotto = Replace(UnProdotto, "[Data_Attivita]", 
RSCarrello("Data_Attivita"), 1, -1, 1)
      if IsNull(RScarrello("Descrizione2").value) then
      UnProdotto = Replace(UnProdotto, "[Descrizione2]", "", 1, -1, 1)
      else
      UnProdotto = Replace(UnProdotto, "[Descrizione2]", 
RSCarrello("Descrizione2"), 1, -1, 1)
      end if
      if IsNull(RScarrello("Note_Attivita").value) then
      UnProdotto = Replace(UnProdotto, "[Note_Attivita]", "", 1, -1, 1)
      else
      UnProdotto = Replace(UnProdotto, "[Note_Attivita]", 
RSCarrello("Note_Attivita"), 1, -1, 1)
      end if
      ListaProdotti = ListaProdotti & UnProdotto & "<br>"
     RSCarrello.MoveNext
     Loop
  end if
Scusate....
ma perche queste righe essendoci il dato nel campo del db qua non me lo 
da????
    if IsNull(RScarrello("Note_Attivita").value) then
      Un1Prodotto = Replace(Un1Prodotto, "[Note_Attivita]", "", 1, -1, 1)
      else
      Un1Prodotto = Replace(Un1Prodotto, "[Note_Attivita]", 
RSCarrello("Note_Attivita"), 1, -1, 1)
      end if
eppure non c'è nessun errore gli altri campi mi restituiscono il dato 
contenuto all'interno

 da????
Scusa te...ma cosa vuol dire "qua non me lo da"? Hai provato a fare un
Response.Write del campo Note_Attivita? Cosa restituisce?
-- 
"Voi abili a tenere sempre un piede qua e uno là
 avrete un avvenire certo in questo mondo qua
 però la dignità
 dove l'avete persa?"
									    V.R.

 ha scritto nel messaggio 
news:qhpi49eatkx5$.dlg@ID-147253.user.individual.net...

nessun option explicit
response.write mi da il valore del campo