25
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
[PHP]<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)
aArray(iLoop) = aArray(iSwapPos)
aArray(iSwapPos) = varTmp
Next
ReOrderArrayQuickNDirty = aArray
End Function
Randomize
rastgele = Int((Rnd*Rs.RecordCount)+0)
Rs.Move(rastgele)
soru=Rs("fld_Soru")
cevap1=Rs("fld_Secenek1")
cevap2=Rs("fld_Secenek2")
cevap3=Rs("fld_Secenek3")
cevap4=Rs("fld_Secenek4")
cevap=Rs("fld_DogruSecenek")
puan=Rs("fld_Puani")
toplampuan=request.form("toplampuan")
Dim secenekler
ReDim secenekler(3)
secenekler(0) = "1;"& cevap1
secenekler(1) = "2;"& cevap2
secenekler(2) = "3;"& cevap3
secenekler(3) = "4;"& cevap4
%>
<table border="0" width="100%" id="table1">
<tr>
<td width="240">
<table border="0" width="100%" id="table2">
<tr>
<td width="87">Kullanıcı</td>
<td> </td>
</tr>
<tr>
<td width="87">Soru No</td>
<td><%=sorusira%></td>
</tr>
<tr>
<td width="87">Soru Puanı</td>
<td><%=Rs("fld_Puani")%></td>
</tr>
<tr>
<td width="87">Doğru Sayısı</td>
<td><%=Rs("fld_DogruSayisi")%></td>
</tr>
<tr>
<td width="87">Yanlış Sayısı</td>
<td><%=Rs("fld_YanlisSayisi")%></td>
</tr>
<tr>
<td width="87">Toplam Puan</td>
<td><%=toplampuan%></td>
</tr>
<tr>
<td width="87"> </td>
<td> </td>
</tr>
</table>
<p> </td>
<td>
<%
response.write soru
response.write "<br /><br /><br />"
Dim iLoop
%>
<form method="POST" action="kontrol.asp">
<%
aSites = ReOrderArrayQuickNDirty(secenekler)
For iLoop = LBound(aSites) to UBound(aSites)
array1 = split(aSites(iLoop),";")
Response.Write "<input type=""radio"" id=""" & array1(0) & """ sec name=""cevap" & SoruNo & """ value=""" & array1(0) & """ /><label for=""" & array1(0) & """>" & array1(1) & "</label><BR>"
Next
%>
<input type="hidden" name="dogrucevap" value="<%=cevap%>">
<input type="hidden" name="sorusira" value="<%=sorusira%>">
<input type="hidden" name="toplampuan" value="<%=toplampuan%>">
<input type="hidden" name="puan" value="<%=puan%>">
<%
rs.Close
set rs = nothing
%> <p><input type="submit" value="Gönder" name="B1"></p>
</form>
</td>
</tr>
</table>
</body>
</html>[/PHP]
kontrol.asp
[PHP]<%
dim toplampuan, sorusira
sorusira=request.form("sorusira")
sorusira=sorusira+1
%>
<head>
<meta http-equiv="Content-Language" content="tr">
</head>
<body>
<center>
<%
verilencevap=request.form ("cevap")
dogrucevap=request.form ("dogrucevap")
dogrucevapmetni=request.form ("dogrucevapmetni")
toplampuan=request.form ("toplampuan")
puan=request.form ("puan")
if verilencevap=dogrucevap then
response.write "<br>Tebrikler Doğru Cevap. <br><img src=""resimler/dogrucevap.jpg"">"
if toplampuan="" then
toplampuan=puan
else
toplampuan=toplampuan + puan
end if
else
response.write "<br>Yanlış Cevap Verdiniz.<br><img src=""resimler/yanliscevap.jpg"">"
end if
%>
<form method="POST" action="sorugel.asp">
<p><input type="submit" value="Sonraki Soru" name="B1"></p>
<input type="hidden" name="sorusira" value="<%=sorusira%>">
<input type="hidden" name="toplampuan" value="<%=toplampuan%>">
</form>
</center>
</body>
</html>[/PHP]
