Plusa ihop variabler

Jag får inte den här koden att fungera.

<%

resaPris		 	= TRIM( Request( "resaPris" ) )
avbskydd			= TRIM( Request( "avbskydd" ) )
grund			= TRIM( Request( "grund" ) )
advanced		= TRIM( Request( "advanced" ) )
rescue 			= TRIM( Request( "rescue" ) )
kurs   			= TRIM( Request( "kurs" ) )
kurs2   			= TRIM( Request( "kurs2" ) )
kurs3   			= TRIM( Request( "kurs3" ) )

IF kurs = "Grundkurs" THEN 
 kurspris1 = grund
END IF
IF kurs = "Advanced" THEN 
 kurspris1 = advanced
END IF
IF kurs = "Rescue" THEN 
 kurspris1 = rescue
END IF

IF kurs2 = "Grundkurs" THEN 
 kurspris2 = grund
END IF
IF kurs2 = "Advanced" THEN 
 kurspris2 = advanced
END IF
IF kurs2 = "Rescue" THEN 
 kurspris2 = rescue
END IF

IF kurs3 = "Grundkurs" THEN 
 kurspris3 = grund
END IF
IF kurs3 = "Advanced" THEN 
 kurspris3 = advanced
END IF
IF kurs3 = "Rescue" THEN 
 kurspris3 = rescue
END IF

IF avbskydd = 1 THEN
   avbskyddpris = 500
ELSE
 avbskyddpris = 0
END IF

pris = 0

IF resaPlatser = 1 THEN
 Pris = pris + resaPris + kurspris1 + avbskyddpris
END IF

IF resaPlatser = 2 THEN
 Pris = pris + resaPris + resaPris + kurspris1 + kurspris2 + avbskyddpris + avbskyddpris
END IF

IF resaPlatser = 3 THEN
 Pris = pris + resaPris + resaPris + resaPris + kurspris1 + kurspris2 + kurspris3 + avbskyddpris + avbskyddpris + avbskyddpris
END IF

%>

variablerna grund, advanced, recue har alla värden i siffror.

------------------
Adde

[Redigerat av Addeladde den 20 jun 2001]

cInt()

kan du ge ett exempel

------------------
Adde

IF resaPlatser = 2 THEN
cInt(Pris) = cInt(pris) + cInt(resaPris) + cInt(resaPris) + cInt(kurspris1) + cInt(kurspris2) + cInt(avbskyddpris) + cInt(avbskyddpris)
END IF

Nu får jag felmeddelandet

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'cInt'
/td/resor/steg5.asp, line 96

Funktionen fungerade när den såg ut på detta sätt.

IF kurs = "Grundkurs" THEN 
 kurspris1 = 3000
END IF

------------------
Adde