Hjælp til checkbox i karaktergivning!
Hej, før i kigger på problemet vil jeg understrege at jeg er ny på området.Mit problem er sikkert for mange simpelt men for mig er det ikke… Jeg skal lave en karaktergivning skema ved hjælp af checkbox. Man skal kunne afkrydse på kun to af checkbox’s, så der skal nok laves en JavaScript til dette. Når i kopier koden, og indsætter den vil i se hvordan det skal se ud.
Når man har afgivet karaktererne skal man også efter man har trykket på ”GEM” komme til næste side, hvor man samtidig laver UPDATE i DB med de givne karakterer, her skal man så vise resultat af karaktergivning.
Karaktererne skal gemmes i Accesses DB.
Hvis der er en som kan hjælpe mig, vil jeg gerne sende min DB til den pågældende person.
Min SQL sætning ser nok voldsomt ud, men jeg skal hente Fag der fra. Det vil sige kun de fag eleven har. (den kan måske laves mere simpelt, men det ved jeg ikke endnu, da der skal klikkes på en elev, og den skal så sende personen på denne side.
Jeg vil på forhånd sige mange tak til alle som hjælper mig. Der er 200 point til den der hjælper mig.
//Adis
<html>
<head>
<title>Karakter givning</title>
</head>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/Inetpub/wwwroot/data/PtoAinternet.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select FAG.Fag from ELEVER, HLEL, HOLD, FAG WHERE ELEVER.ElevId=3 AND ELEVER.ElevId=HLEL.ElevID AND HLEL.HoldId=HOLD.HoldId AND HOLD.FagId=FAG.FagId", conn
%>
<%
dim r_fnavn
sub request_fornavn
r_fnavn = request("Fornavn")
end sub
Response.Write("Navn:" & r_fnavn)
spkarakter=Request.Form("spkarakter")
%>
<form name="spkarakter" action="test_radio.asp" method="post"><table width="100%" border="1" cellspacing="3">
<tr>
<td width="20%" rowspan="2">Fag</td>
<td colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Meget <br />
tilfredsstillende</font></div></td>
<td colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Tilfredsstillende</font></div></td>
<td colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Mindre <br />
tilfredsstillende</font></div></td>
<td width="31%" rowspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Bemerkning</font></td>
</tr>
<tr>
<td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Fagligt</font></div></td>
<td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Arbejds-indsats</font> </div></td>
<td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Fagligt</font></div></td>
<td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Arbejds-indsats</font> </div></td>
<td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Fagligt</font></div></td>
<td width="8%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Arbejds-indsats</font> </div></td>
</tr>
<% do until rs.EOF %>
<tr>
<% for each x in rs.fields %>
<td colspan="8"><table width="100%" border="0">
<tr>
<td width="20%">
<%
response.write(x.value & "<BR>")
%>
</td>
<td width="8%"><div align="center">
<input type="checkbox" name="spkarakter"
value="name1" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt")%>>
</div></td>
<td width="8%"><div align="center">
<input type="checkbox" name="spkarakter"
value="name2" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="8%"><div align="center">
<input type="checkbox" name="spkarakter"
value="<name3" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="8%"><div align="center">
<input type="checkbox" name="spkarakter"
value="name4" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="8%"><div align="center">
<input type="checkbox" name="spkarakter"
value="name5" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="8%"><div align="center">
<input type="checkbox" name="spkarakter"
value="name6" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="31%"> </td>
</tr>
</table></td>
</tr>
<%
next
Response.Write("<br />")
rs.MoveNext
%>
<% loop %>
</table>
<input type="submit" value="Submit">
</form>
<!-- her nede skal man nok lave om på hvordan man udskriver resultatet, er i tvivl hvordan -->
<%
if spkarakter<>"" then
Response.Write("<p>Dine givne karakter er: " & spkarakter)%>
<%end if
%>
<%
rs.close
conn.close
%>
</body></html>
