Invalid CSTR

[fraude]

E' veramente complicato senza la possibilità di utilizzare la ricerca... comunque... ho questa funzione che mi formatta la data in un formato determinato:

 Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

....

data_prelievo = ConvertiData(CStr(RECDown("data_prelievo")))

quando il campo data_prelievo di un record è vuoto mi viene segnalato a video l'errore 'invalid CStr' e l'estrazione dei dati si blocca sulla riga del record senza la data.

Esiste un altro modo, tipo finestra alert, per avvisare l'utente che c'è un problema su quel determinato record e si suggerisce di inserire la data?

Grazie.

[gold]

devi creare una if nel campo per determinare se il parametro e vuoto,
se si puoi creare una sub per l'inserimento dei dati ed inviarla al browser con la formattazione che vuoi tu, ovviamente userai l'oggetto error o farai in modo da saltare l'elaborazione del record

[fraude]

Originariamente inviato da gold
devi creare una if nel campo per determinare se il parametro e vuoto,
se si puoi creare una sub per l'inserimento dei dati ed inviarla al browser con la formattazione che vuoi tu, ovviamente userai l'oggetto error o farai in modo da saltare l'elaborazione del record

Grazie, ma non ben capito... questa è la parte di code che richiama il record della data:

<%
if not RECDown.eof then 
While Not RECDown.EOF
%>

<%=data_prelievo%>

<%
RECDown.MoveNext
Wend
end if
RECDown.Close
Set RECdown = Nothing
%>

:master:

[gold]

Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

function inserisci(ID)
codice per insrire dati nel db
potrebbe essere un semplice link che punta all'id
oppure
un alert o un campo text
end function
....
DataPrelievoDB = RECDown("data_prelievo")
if DataPrelievoDB = "" then
DataPrelievoDB = inserisci(RECDown("ID"))
else
data_prelievo = ConvertiData(CStr(DataPrelievoDB))
end if

[fraude]

Non va..., mi serve solo avvisare a video, l'inserimento si può fare solo con l'autorizzazione dell'amministratore:

<%

if not RECDown.eof then
While Not RECDown.EOF

if Data_Prelievo = "" then
response.write "Errore"
else
data_prelievo = ConvertiData(CStr(RECDown("data_prelievo")))
end if

%>

[gold]

code:--------------------------------------------------------------------------------
Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

....
 
if RECDown("data_prelievo") = "" then
data_prelievo  = "ATTENZIONE INSERIRE RECORD"
else
data_prelievo = ConvertiData(CStr(RECDown("data_prelievo")))
end if

[fraude]

Grazie, ma continua a non funzionare:

<%

if not RECDown.eof then 'il primo è pieno
While Not RECDown.EOF 'ciclo sul primo recordset

if RECDown("data_prelievo") = "" then
data_prelievo  = "ATTENZIONE INSERIRE RECORD"
else
data_prelievo = ConvertiData(CStr(RECDown("data_prelievo")))
end if

%>

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'CStr'

/manuale.asp, line 502

[gold]

Originariamente inviato da fraude
Grazie, ma continua a non funzionare:

<%

if not RECDown.eof then 'il primo è pieno
While Not RECDown.EOF 'ciclo sul primo recordset

if RECDown("data_prelievo") = "" then
data_prelievo  = "ATTENZIONE INSERIRE RECORD"
else
data_prelievo = ConvertiData(CStr(RECDown("data_prelievo")))
end if

%>

strano perche' non viene chiamata se RECDown("data_prelievo") è vuota. sicuro che l'errore non sia in qualche altra parte del codice che richiama la function?

[fraude]

Non credo il codice funziona perfettamente, ho modificato così:

<%

if not RECDown.eof then 
While Not RECDown.EOF 

if RECDown("data_prelievo") = "" then %>

<script language="javascript">

alert("Attenzione: campo data vuoto")

  </script>

<% 

else
data_prelievo = ConvertiData(CStr(RECDown("data_prelievo")))
end if

%>

ho un record con il campo data_prelievo vuoto e restituisce sempre Invalid use of Null: 'CStr'

[gold]

posta il cod intero