Formatnumber ed errore

[Luca1317]

Uso formatnumber per visualizzare un campo in formato numerico...ma quando il database è vuoto formatnumber mi da errore(giustamente) :rollo:

come posso fare per evitarlo?

[Roby_72]

Controllare precedentemente che il campo sia pieno

Roby

[Luca1317]

e come?

[Luca1317]

che il campo sia pieno so come fare...if importo1="" then etc etc...ma devo controllare che ci siano record nel database

[Roby_72]

Non ho capito.
Posta la tua pagina.

Roby

[Luca1317]

ti posto i punti salienti:

sql = "SELECT * FROM caricoart order by modello1"

Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.PageSize = Record_Pagina
Rec.Open sql, Conn, 3, 3


'Recupero il numero della pagina corrente
Pag = CInt(Request.Querystring("pag"))

'Controllo che il numero di pagina sia corretto
If (Not Rec.Eof) Then
  If Pag>Rec.PageCount Then
    Pag = Rec.PageCount
  End If
  If Pag = 0 Then
    Pag = 1
  End If

  'Setto la pagina corrente
  Rec.AbsolutePage = Pag

  'Ora prepariamo i link alle pagine
  indice_inizio = pag-(Numerazione_Max/2)
  If (indice_inizio>(Rec.PageCount-Numerazione_Max)) Then
    indice_inizio = Rec.PageCount-Numerazione_Max+1
  End If
  If (indice_inizio<=0) Then
    indice_inizio = 1
  End if
  indice_fine=indice_inizio+Numerazione_Max-1
  If (indice_fine>Rec.PageCount) Then
    indice_fine = Rec.PageCount
  End If
  'Link alla prima pagina
  Link = "<|  "

  'Link alle pagine precedenti
  If (indice_inizio<>1) Then
    Link=Link&"<a href=""?pag="&(indice_inizio-1)&""">... "
  End If
  For i=indice_inizio to indice_fine

  'Pagina attuale
  If (i=pag) then
    Link = Link&"]"&i&"[ "
  'Link alle altre pagine
  Else
    Link = Link&"<a href=""?pag="&i&""">["&i&"] "
  End If
  Next

  'Link alle pagine successive
  If (indice_fine<Rec.PageCount-1) Then
    Link = Link&"<a href=""?pag="&(indice_fine+1)&""">... "
  End If

  'Link all'ultima pagina
  Link=Link&"<a href=""?pag="&Rec.PageCount&""">|>  "
End If

'I link sono pronti,ora stampiamo i record ..
i=0
While (NOT rec.EOF)and(i<Record_Pagina)
  i = i+1
' Response.Write( rec("marca1")&"
" )
%>

set conn2=server.createobject("ADODB.connection") 
conn2.Open "driver={Microsoft Access Driver (*.mdb)};pwd=mancini;dbq="& server.MapPath("..\..\db\carico.mdb") 
set rec2 = server.createobject("ADODB.Recordset") 
SQL2="SELECT SUM(qta1) AS somma FROM caricoart" 
rec2.open sql2,conn2
somma = rec2("somma")
rec2.Close 
Set rec2 = nothing 
conn2.Close 
Set conn2 = nothing 


Response.write formatnumber ((somma),0)

[Roby_72]

if somma > 0 then
formatti
else
lasci 0
end if

Roby

[Luca1317]

grazie