These Numbers are seen as Alpha...

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I am trying to make a quiz script but am not good at asp scripting. For example I couldn't pass a parameter as a number. But it is seen as a alphanumerical character. When I try to ad 5 to 14 it must be 19 but It results 514. The values coming from access database. The parameter's name is toplampuan (total point). Can you solve my problem?

sorugel.asp
 <html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">

<title>Quiz</title>

</head>

<body>

<% 

Set vt = Server.CreateObject("ADODB.Connection")

vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")

set rs = server.createobject("ADODB.Recordset")

sorusira=request.form("sorusira")

if sorusira="" then

sorusira=1

end if

select case sorusira

case 1

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 0 AND 10 "

case 2

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 11 AND 20 "

case 3

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 21 AND 30 "

case 4

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 31 AND 40 "

case 5

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 41 AND 50 "

case 6

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 51 AND 60 "

case 7

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 61 AND 70 "

case 8

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 71 AND 80 "

case 9

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 81 AND 90 "

case 10

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 91 AND 100 "

case 11

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 101 AND 110 "

case 12

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 111 AND 120 "

case 13

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 121 AND 130 "

case 14

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 131 AND 140 "

case 15

sql = "select * from tbl_CoktanSecmeliSorular where fld_Puani between 141 AND 150 "

end select

rs.open sql,vt,1,3

Function ReOrderArrayQuickNDirty(ByVal aArray) 

  Dim iUpper, iLower, iLoop, iSwapPos, varTmp 

  iUpper = UBound(aArray) 

  iLower = LBound(aArray) 

  Randomize Timer 

  For iLoop = iLower to iUpper 

    iSwapPos = Int(Rnd * (iUpper + 1)) 

    varTmp = aArray(iLoop) 