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" <noemail@asIhatespam> wrote in message
news:Of**************@TK2MSFTNGP10.phx.gbl...

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

%>

[J P Singh]

Hi Alex

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

/request1.asp, line 727

"Alex Goodey" <ag*****@hsfinancial.co.uk> wrote in message
news:bu************@ID-221525.news.uni-berlin.de...

whats the error?
"J P Singh" <noemail@asIhatespam> wrote in message
news:Of**************@TK2MSFTNGP10.phx.gbl...

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

%>

[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" <noemail@asIhatespam> wrote in message
news:Of**************@TK2MSFTNGP10.phx.gbl...

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

%>

[J P Singh]

Top Man

Works like a charm
"TomB" <sh*****@hotmailXXX.com> wrote in message
news:eG*************@tk2msftngp13.phx.gbl...

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" <noemail@asIhatespam> wrote in message
news:Of**************@TK2MSFTNGP10.phx.gbl...

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

%>