Forhindre fejl ved ikke numerisk felt

If isnummeric(rs("pris")) Then
  bpris = rs("pris")
Else
bpris = "ingen pris online"
End If

Det giver en fejl :

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'isnummeric'

Her er den del af scriptet:

strSQL = "SELECT * FROM ibmthinkpad WHERE"
strSQL = strSQL & " (partnummer LIKE '" & strKeyword &"' OR beskrivelse LIKE '" & strKeyword & "')"
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\ibm.mdb"
Conn.Open DSN
Conn.Execute(strSQL)
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
If isnummeric(rs("pris")) Then
  bpris = rs("pris")
Else
bpris = "ingen pris online"
End If
bruttopris=rs("pris")
bruttopris=bruttopris*7.5
bruttopris=bruttopris + 200
bt=bruttopris * 10 / 100
bruttopris=bruttopris+bt
bruttopris=bruttopris / 0.85
usgpris=bruttopris / 0.92
end if

hov - der er selvfølgelig kun ét m i numeric...

If isnumeric(rs("pris")) Then
  bpris = rs("pris")
Else
  bpris = "ingen pris online"
End If

Ja så virker det (efter jeg fik rettet scriptet til)
Jeg har bare et prb.
Jeg bruger formatnumber til prisen :
FormatNumber (bruttopris,2)

Dette giver jo så en fejl, jeg kan godt lave en ny if/then men er der en smartere måde ?

If isnumeric(rs("pris")) Then
  bpris = FormatNumber(rs("pris"))
Else
  bpris = "ingen pris online"
End If

Det virker, bortset fra jeg får mange decimaler da jeg ikke bruger pris,2

hvad kan jeg gøre ?

bpris = FormatNumber(rs("pris"),2)

Nøh det ændrer ikke noget (1472,05882352941)

når jeg udskriver variablen bruger jeg response.write bpris mod før response.write FormatNumber (bpris,2)

nåh - jeg kan se at du først regner bruttopris-variablen senere i scriptet, så det er der de ekstra decimaler kommer på...

If isnumeric(rs("pris")) Then
  bruttopris=rs("pris")
  bruttopris=bruttopris*7.5
  bruttopris=bruttopris + 200
  bt=bruttopris * 10 / 100
  bruttopris=bruttopris+bt
  bruttopris=bruttopris / 0.85
  bruttopris=formatnumber(bruttopris,2)
  usgpris=bruttopris / 0.92
  usgpris=formatnumber(usgpris,2)
Else
  bruttopris = "ingen pris online"
End If

eller deromkring

Tjaaaa, det er jo meget simpelt når man kan :)

Tusind tak for hjælpen.