spørgeskema med radio buttons
Hej..ønske: en side med nogle radio-groups som skal afkrydses, og derefter gemmes i mysql db, har lavet følgende men der er probs..
<% strValg1 = Request("1")
strValg2 = Request("2")
strValg3 = Request("3")
strValg4 = Request("4")
strID = Request("id")
If strValg > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Mysql;SERVER=localhost; DATABASE=evaldata; UID=***** PWD=*****"
Select Case (strID > "")
Case True: strSQL = "UPDATE svar SET valg='" & strValg & "' WHERE id=" & strID & ";"
Case False: strSQL = "INSERT INTO svar (valg) VALUES ('" & strValg & "');"
End Select
Conn.Execute(strSQL)
Conn.Close: Set Conn = Nothing
ElseIf strID > "" And IsNumeric(strID) Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Mysql;SERVER=localhost; DATABASE=evaldata; UID=doobie PWD=puffer"
strSQL = "SELECT * FROM valg WHERE id=" & strID & ";"
Set Rs = Conn.Execute(strSQL)
strValg = Rs("valg")
Set Rs = Nothing
Conn.Close: Set Conn = Nothing
End If
%>
<span><font face="Tahoma" size="2">Udfyld venligst alle nedenstående spørgsmål og afslut med send.</font></span>
<br>
<br>
<fieldset>
<legend>Hvordan vurdere du dit udbytte af faget ? </legend>
<form action="test.asp" method="post">
dim i
<% for i=1 to 5%>
{
<input type="hidden" name="id" value="<%=strID%>">
<input type="radio" name="<%=i %>" value="1"<% If strValg<%=i%> = "1" Then Response.Write " checked" %>>Kanon!!
<input type="radio" name="<%=i %>" value="2"<% If strValg<%=i%> = "2" Then Response.Write " checked" %>>Over middel
<input type="radio" name="<%=i %>" value="3"<% If strValg<%=i%> = "3" Then Response.Write " checked" %>>Middel
<input type="radio" name="<%=i %>" value="4"<% If strValg<%=i%> = "4" Then Response.Write " checked" %>>Under middel
<input type="radio" name="<%=i %>" value="5"<% If strValg<%=i%> = "5" Then Response.Write " checked" %>>Skod !!!
}
<%next %>
<p>
</fieldset>
</div>
<br>
<center>
<input type="submit" value=" Send ">
</form>
