Avatar billede kongsteddk Nybegynder
27. oktober 2002 - 12:01 Der er 1 kommentar og
1 løsning

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
%>
Avatar billede kongsteddk Nybegynder
27. oktober 2002 - 12:29 #1
Beklager - Klarede det selv! :-)
Jeg fjernede alle ' i updatesætningen!
Avatar billede kongsteddk Nybegynder
27. oktober 2002 - 12:29 #2
Point
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester