Update streng - Hvad er der galt???
Den melder fejl i følgende kode, hvis den skal opdatere i db'en. Hvis den skal indsætte date, er der ikke noget problem. Hvad er der galt?<!--#include file="dbconn.asp"-->
<%
IF Request.Querystring("show") = "" THEN
sql = "SELECT * FROM konkurspm WHERE enhed = '" & Session("enhed") & "'"
SET rs = Conn.Execute(sql)
IF Request.Querystring("spm") = "" THEN
spm = "1"
ELSE
spm = Request.Querystring("spm")
END IF
%>
<p><b>Spørgsmål:</b> <%=rs("spm" & spm)%>
<form method="POST" name="svar" action="index.asp?id=<%=Request.Querystring("id")%>&show=gemsvar&spm=<%=spm%>&spmid=<%=rs("id")%>">
<%IF rs("sv" & spm & "1") <> "" THEN %><input type="radio" name="sv" value="1"><%=rs("sv" & spm & "1")%><%END IF%><br>
<%IF rs("sv" & spm & "2") <> "" THEN %><input type="radio" name="sv" value="2"><%=rs("sv" & spm & "2")%><%END IF%><br>
<%IF rs("sv" & spm & "3") <> "" THEN %><input type="radio" name="sv" value="3"><%=rs("sv" & spm & "3")%><%END IF%><br>
<%IF rs("sv" & spm & "4") <> "" THEN %><input type="radio" name="sv" value="4"><%=rs("sv" & spm & "4")%><%END IF%><br>
<%IF rs("sv" & spm & "5") <> "" THEN %><input type="radio" name="sv" value="5"><%=rs("sv" & spm & "5")%><%END IF%><br>
<input type="submit" value="Send" name="B1"></p>
</form>
<%
END IF
IF Request.Querystring("show") = "gemsvar" THEN
sql = "SELECT * FROM konkursv WHERE brugerid = " & Session("id") & " AND spmid = " & Request.Querystring("spmid")
' Response.Write(sql)
SET rs = Conn.Execute(sql)
IF rs.EOF THEN
sql = "INSERT INTO konkursv (spmid, brugerid, sv" & Request.Querystring("spm") & ") VALUES ('" & Request.Querystring("spmid") & "','" & session("id") & "','" & Request.Form("sv") & "')"
Response.Write sql
SET rs = Conn.Execute(sql)
ELSE
sql = "UPDATE konkursv SET sv" & Request.Querystring("spm") & " = " & Request.Form("sv") & " WHERE brugerid = '" & Session("id") & "' AND spmid = " & Request.Querystring("spmid")
Response.Write sql
SET rs = Conn.Execute(sql)
END IF
spm = Request.Querystring("spm") + 1
Response.Redirect ("index.asp?id=" & Request.Querystring("id") & "&spm=" & spm)
END IF
%>
