Her kommer koden
<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=HLEL.ElevID AND HLEL.HoldId=HOLD.HoldId AND HOLD.FagId=FAG.FagId AND ELEVER.ElevId=" & Request.Querystring("ElevId"), conn
%>
<%
Response.Write("Navn:" & Fornavn & Efternavn & "<br>")
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)
%>
</td>
<td width="8%"><div align="center">
<input type="radio" name="1" value="name1" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt")%>>
</div></td>
<td width="8%"><div align="center">
<input type="radio" name="2" value="name2" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="8%"><div align="center">
<input type="radio" name="1" value="name3" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="8%"><div align="center">
<input type="radio" name="2" value="name4" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="8%"><div align="center">
<input type="radio" name="1" value="name5" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
</div></td>
<td width="8%"><div align="center">
<input type="radio" name="2" 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>
Ny bruger
Nybegynder
Opret
Preview
