<%
names=request.QueryString("txtname")
id=request.QueryString("txtno")
degree=request.QueryString("txtdegree")
ans1=request.QueryString("rd1")
ans2=request.QueryString("rd2")
ans3=request.QueryString("rd3")
ans4=request.QueryString("rd4")
ans5=request.QueryString("rd5")
ans6=request.QueryString("rd6")
ans7=request.QueryString("rd7")
ans8=request.QueryString("rd8")
ans9=request.QueryString("rd9")
ans10=request.QueryString("rd10")
ans11=request.QueryString("rd11")
ans12=request.QueryString("rd12")
ans13=request.QueryString("rd13")
ans14=request.QueryString("rd14")
ans15=request.QueryString("rd15")
ans16=request.QueryString("rd16")
ans17=request.QueryString("rd17")
ans18=request.QueryString("rd18")
ans19=request.QueryString("rd19")
ans20=request.QueryString("rd20")
%>
<%
if ans1="A" then
s1=1
else
s1=0
end if
if ans2="B" then
s2=1
else
s2=0
end if
if ans3="C" then
s3=1
else
s3=0
end if
if ans4="A" then
s4=1
else
s4=0
end if
if ans5="B" then
s5=1
else
s5=0
end if
if ans6="B" then
s6=1
else
s6=0
end if
if ans7="D" then
s7=1
else
s7=0
end if
if ans8="A" then
s8=1
else
s8=0
end if
if ans9="C" then
s9=1
else
s9=0
end if
if ans10="B" then
s10=1
else
s10=0
end if
if ans11="A" then
s11=1
else
s11=0
end if
if ans12="B" then
s12=1
else
s12=0
end if
if ans13="D" then
s13=1
else
s13=0
end if
if ans14="A" then
s14=1
else
s14=0
end if
if ans15="A" then
s15=1
else
s15=0
end if
if ans16="C" then
s16=1
else
s16=0
end if
if ans17="B" then
s17=1
else
s17=0
end if
if ans18="C" then
s18=1
else
s18=0
end if
if ans19="D" then
s19=1
else
s19=0
end if
if ans20="B" then
s20=1
else
s20=0
end if
%>
<%
score=cint(s1)+cint(s2)+cint(s3)+cint(s4)+cint(s5)+cint(s6)+cint(s7)+cint(s8) +cint(s9)+cint(s10)+cint(s11)+cint(s12)+cint(s13)+cint(s14)+cint(s15)+cint(s16) +cint(s17)+cint(s18)+cint(s19)+cint(s20)
%>
<%
if score>=10 then
result="ผ่าน"
else
result="ไม่ผ่าน"
end if
%>
<%
if (names="") or (id="") then
page="error"
else
page="ผลการสอบ<br />
ชื่อ : <%=names%> <br />
รหัส : <%=id%> <br />
ระดับชั้น : <%=degree%> <br />
จำนวนข้อสอบที่ทำได้ : <%=score%> <br />
ผลการสอบ : <%=result%>
<hr />
<a href="final.html">ทำข้อสอบใหม่</a>"
end if
%>
โจทย์มีอยู่ว่า
ถ้าลืมชื่อหรือรหัสให้แสดงข้อความ + Link กลับไปยัง Final.html
คือผมลงทำตามนั้นแล้วมานขึ้น
# Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/501-0219/final.asp, line 169, column 20
page="ผลการสอบ<br />
= =