Recordset Empty Error

[J P Singh]

Hi All

Does anyone know why the code below gives me an error on the line
strTt = FormatNumber( RS("Expr1") , 2)

whenever RS is empty.

Am I doing something wrong?

<%
SQL = " SELECT Sum(PODetails.Amount) AS Expr1 FROM PODetails where PONumber=
" & rstDBEdit.Fields("PONumber").Value

Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, CONN_STRING

if not rs.eof then
strTt = FormatNumber( RS("Expr1") , 2)
else
strTT= 0.00
strTT = FormatNumber( strTT , 2)
end if
Response.write strTT

%>

 

[Alex Goodey]

whats the error?

 

[J P Singh]

Hi Alex

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'FormatNumber'

/request1.asp, line 727

 

[TomB]

Because if it's empty, it can't format it to a number.

Dim theVal
theVal=RS.Fields("Expr1").Value 'may want to change Expr1 to something a
little more helpful
if isNumeric(theVal) then
strTt=FormatNumber(theVal,2)
else
strTt="0.00" 'or whatever else the default should be.
end if


There's an FAQ at www.aspfaq.com about the isNumeric function - which you
may wish to review.

 

[J P Singh]

Top Man

Works like a charm

Because if it's empty, it can't format it to a number.

Dim theVal
theVal=RS.Fields("Expr1").Value 'may want to change Expr1 to something a
little more helpful
if isNumeric(theVal) then
strTt=FormatNumber(theVal,2)
else
strTt="0.00" 'or whatever else the default should be.
end if


There's an FAQ at www.aspfaq.com about the isNumeric function - which you
may wish to review.