plus data fra en MySQL

Prøv med CInt (hvis tallene IKKE indeholder kommatal):

straffe = CInt(resultater("straffe"))
bordtennis = CInt(resultater("bordtennis"))
badminton = CInt(resultater("badminton"))
skydning = CInt(resultater("skydning"))
bowling = CInt(resultater("bowling"))
dart = CInt(resultater("dart"))
ol_smag = CInt(resultater("ol_smag"))


Med kommatal:

straffe = CDBL(resultater("straffe"))
bordtennis = CDBL(resultater("bordtennis"))
badminton = CDBL(resultater("badminton"))
skydning = CDBL(resultater("skydning"))
bowling = CDBL(resultater("bowling"))
dart = CDBL(resultater("dart"))
ol_smag = CDBL(resultater("ol_smag"))

CInt: http://www.w3schools.com/vbscript/func_cint.asp
CDbl: http://www.w3schools.com/vbscript/func_cdbl.asp

Andre funktioner: http://www.w3schools.com/vbscript/vbscript_ref_functions.asp

Hej Surfer.

med CINT får jeg flg. fejlmelding:

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

/giganterneskamp.asp, line 115

med CDBL får jeg flg. fejlmelding:

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

/giganterneskamp.asp, line 115

hvad med den her:
Function LavNummer(ByVal param_num)
    LavNummer = 0
    If "A"& param_num <> "A" Then
        If IsNumeric(param_num) Then
            LavNummer = param_num * 1
        End If
    End If
End Function

og så :

straffe = LavNummer(resultater("straffe"))
bordtennis = LavNummer(resultater("bordtennis"))
badminton = LavNummer(resultater("badminton"))

johnner, jeg fik en function fejl...
jeg kan bedre lide CINT for den er nem og enkel, men kan ikke forstå den fejlmelding jeg får hvad fanden betyer det !?

martin86> Vis os dine linier.

PS: Dine værdier må ikke indeholde ikke-numerisk karakter (dvs bogstaver, mellemrum osv).. da disse ikke kan konverteres til tal..

Den der lavnummer, har jeg lige tjekket og den virker fint.
Får den andet ind, som der har sjove tegn osv. så laver den det om til 0.

thesurfer -> her er mine linier:

Sql2 = "SELECT * FROM giganterneskamp ID"
    Set resultater =  Conn.Execute(Sql2)

do while resultater.EOF=false%>

<%Function LavNummer(ByVal param_num)
    LavNummer = 0
    If "A"& param_num <> "A" Then
        If IsNumeric(param_num) Then
            LavNummer = param_num * 1
        End If
    End If
End Function %>

<%straffe = LavNummer(resultater("straffe"))
bordtennis = LavNummer(resultater("bordtennis"))
badminton = LavNummer(resultater("badminton"))
skydning = LavNummer(resultater("skydning"))
bowling = LavNummer(resultater("bowling"))
dart = LavNummer(resultater("dart"))
ol_smag = LavNummer(resultater("ol_smag"))

points = round(straffe + bordtennis + badminton + skydning + bowling + dart + ol_smag,0)

og dne her fejlmelding får jeg:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/giganterneskamp.asp, line 115

Function LavNummer(ByVal param_num)
^

hej

en function skal ligge i toppen af filen, og ikke inde i din do-løkke.

Og hvorfor har du så mange  %> <% tegn?

naturligvis skal det det ..... my bad !!

tak for hjælpen johnner, post lige et svar - tak.

har så mange for at holde tingene adskilt, min måde at have orden på...

svar

lukket