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)
|