Skrive tall med desimaler til database

Hvis jeg setter:

oRS("BrowserVersion") = 7.02 så virker scriptet.

oRS.AddNew
oRS("KID") = strKID
oRS("IP") = strIP
oRS("BrowserType") = strBrowserType   
oRS("BrowserVersion") = Formatumber(strBrowserVersion, 2)
oRS("Language") = strLanguage
oRS("System") = strSystem   
oRS("WindowWidth") = strWindowWidht
oRS("WindowHeight") = strWindowHeight   
ors("Refer") = strRefer
oRS("SDato") = strDate
oRS("STime") = strTime
oRS.Update

//>Rune

Type mismatch: 'Formatumber'

Sorry Type mismatch: 'Formatnumber' skrive feil.

Men hvis jeg skriver dette så blir 6.00 til 600!

oRS.AddNew
oRS("KID") = strKID
oRS("IP") = strIP
oRS("BrowserType") = strBrowserType   
oRS("BrowserVersion") = Formatnumber(strBrowserVersion, 2)
oRS("Language") = strLanguage
oRS("System") = strSystem   
oRS("WindowWidth") = strWindowWidht
oRS("WindowHeight") = strWindowHeight   
ors("Refer") = strRefer
oRS("SDato") = strDate
oRS("STime") = strTime
oRS.Update

//>Rune

Well, så ellers prøv med:

strBrowserVersion = Trim(replace(strBrowserVersion ,",","."))
       
oRS.AddNew
oRS("KID") = strKID
oRS("IP") = strIP
oRS("BrowserType") = strBrowserType   
oRS("BrowserVersion") = CInt(strBrowserVersion)
oRS("Language") = strLanguage
oRS("System") = strSystem   
oRS("WindowWidth") = strWindowWidht
oRS("WindowHeight") = strWindowHeight   
ors("Refer") = strRefer
oRS("SDato") = strDate
oRS("STime") = strTime
oRS.Update

//>Rune

7.0 = 700 og 6.0 blir 600 OSV så hva er feil? Jeg skjønner ikke!

Her er hele lortet!

<%
If session("Read-Resolution") = False Then
%>
    <script language="JavaScript">
    location.href = "wp.asp?B=" + screen.width + "&H=" + screen.height
   
    if (navigator.appVersion.indexOf("Mac") != -1) {
        location.href = "wp.asp?B=" + screen.width + "&H=" + screen.height + "&S=MAC"
    } else {
        location.href = "wp.asp?B=" + screen.width + "&H=" + screen.height  + "&S=PC"
    }
    </script>
<%
    session("Read-Resolution") = True
    Session.Timeout = 25

ELSE

    If session("Visit") = False Then

        Session.LCID = 1030

        'Henter ID hvor kunden kom fra.
        Dim strKID
        strKID = Trim(Request.QueryString("KID"))
        'Henter browser typen.
        Dim strUA
        strUA = Request.ServerVariables("HTTP_USER_AGENT")
        'Henter IP`en
        Dim strIP
        strIP = Request.ServerVariables("REMOTE_ADDR")
        'Henter opprativ språket.
        Dim strLanguage
        strLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
        'Henter skjermbredden.
        Dim strWindowWidht
        strWindowWidht = Request.QueryString("B")
        'Henter skjermhøyden.
        Dim strWindowHeight
        strWindowHeight = Request.QueryString("H")
        Dim strSystem
        strSystem = Request.QueryString("S")
       
        'Henter hvilken side man kom fra.
        Dim strRefer
       
        If session("strRefer") = "" Then
            strRefer = Request.ServerVariables("HTTP_REFERER")
        Else
            strRefer = session("strRefer")
        End if
       
        'Hvilken dato det er.
        Dim strDate
        strDate = date()
        'Hva klokka er.
        Dim strTime
        strTime = time()
        '---------------------
        'Sjekker browser typen
        '---------------------
        If (InStr(strUA, "MSIE")) AND (InStr(strUA, "Opera") = 0) Then
            intVersion = Trim(Mid(strUA, InStr(strUA, "MSIE") + 5, 4))
            If (Mid(intVersion, 4, 1) = ";") Then
                intVersion = Trim(Mid(intVersion, 1, 3)) + "0"
            End If
            strBrowserType = "Explorer"
            strBrowserVersion = intVersion
           
        Else 
            If InStr(strUA, "Mozilla") Then

                If InStr(strUA, "compatible;") = 0 _
                And InStr(strUA, "Opera") = 0 Then
                    intVersion = Trim(Mid(strUA, InStr(strUA, "/") + 1, 4))
                    If(intVersion = "5.0") Then
                        intVersion = Trim(Mid(strUA, InStr(strUA, "6/") + 2, 4))
                    End If
                    strBrowserType = "Netscape"
                    strBrowserVersion = intVersion
                   
                    If strBrowserVersion = "ozil" Then
                        Session("BrowserVersion") = "NEW"
                        strBrowserVersion = 7.0
                    Else
                        If Clng(strBrowserVersion) => 4.7 Then
                            Session("BrowserVersion") = "OLD"
                            Session.Timeout = 25
                        Elseif Clng(strBrowserVersion) < 4.7 Then
                            Session("BrowserVersion") = "NEW"
                            Session.Timeout = 25               
                        End if
                    End if
                   
                Else

                    If InStr(strUA, "Opera") Then
                        intVersion = Trim(Mid(strUA, InStr(strUA, "Opera") + 5, 5))
                        strBrowserType = "Opera"
                        strBrowserVersion = intVersion
                    Else
                        strBrowserType = "Ukjent"
                        strBrowserVersion = 0
                    End If

                End If

            End If

        End If
        '--------------------
        'browser sjekk slutt.
        '--------------------

        If Isnumeric(strKID) = False Then
            strKID = "0"
        End if

        If strRefer = "" Then
            strRefer = "Ukjent"
        End if
       
        If Len(strRefer) < 500 Then
            strRefer = "Ukjent"
        End if       

        If strBrowserType = "" Then
            strBrowserType = "Ukjent"
        End if

        If strBrowserVersion = "" Then
            strBrowserVersion = 0
        End if

        If strLanguage = "" Then
            strLanguage = "Ukjent"
        End if
       
        If strWindowHeight = "" Then
            strWindowHeight = 0
        End if   
       
        If strWindowWidht = "" Then
            strWindowWidht = 0
        End if
       
        If IsNumeric(strWindowWidht) = False Then
            strWindowWidht = 0
        End if       
       
        If Len(strWindowWidht) > 6 Then
            strWindowWidht = 0
        End if
       
        If IsNumeric(strWindowHeight) = False Then
            strWindowHeight = 0
        End if
       
        If Len(strWindowHeight) > 6 Then
            strWindowHeight = 0
        End if
       
        If strSystem = "" Then
            strSystem = "Ukjent"
        End if

        Set oRS=Server.CreateObject("ADODB.Recordset")
        oRS.CursorLocation = 2 ' adUseServer
        'oRS.CursorType = 0 ' adOpenForwardOnly
        oRS.CursorType = 2 ' adOpenDynamic
        oRS.LockType = 3 ' adLockOptimistic
        SQL = "SELECT * FROM tblStatistikk"
        oRS.Open SQL, strConn, , , &H0001 ' adCmdText
       
        'strBrowserVersion = 6.00
           
        'On error resume next
        strBrowserVersion = Trim(replace(strBrowserVersion ,",","."))
        'strBrowserVersion = Formatnumber(strBrowserVersion, 2)
       
        Response.Write(strBrowserVersion)
        Response.End
       
        oRS.AddNew
        oRS("KID") = strKID
        oRS("IP") = strIP
        oRS("BrowserType") = strBrowserType
        oRS("BrowserVersion") = strBrowserVersion
        oRS("Language") = strLanguage
        oRS("System") = strSystem   
        oRS("WindowWidth") = strWindowWidht
        oRS("WindowHeight") = strWindowHeight           
        ors("Refer") = strRefer
        oRS("SDato") = strDate
        oRS("STime") = strTime
        oRS.Update

Det ordnet seg takk for hjelpen!

Anytime...
Thx 4 Poinz

//>Rune