16. juni 2006 - 17:26
Der er
11 kommentarer og 1 løsning
Problem med True/False
Hejsa NG. Er der nogen der en idé hvorfor den ikke vil sætte mit Boolean i databasen til True. (Det er 'online'-formen) Formfeltet er vinget af inden jeg trykker på form-knappen. Her kommer koden: <% strSQL = "SELECT TOP 1 * FROM anmeld" Set rsNews = objConn.Execute(strSQL) Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/data.mdb") Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from forumindlaeg" rs.open sql, conn, 1, 3 continueSaving = true i = 0 while continueSaving if Request("emne" & i) <> "" _ AND Request("indhold" & i) <> "" _ AND Request("forfatter" & i) <> "" _ AND Request("forumid" & i) <> "" _ AND Request("forumtopic" & i) <> "" _ AND Request("pic" & i) <> "" _ AND Request("premiere" & i) <> "" _ AND Request("teaser" & i) <> "" _ AND Request("anmeld" & i) <> "" _ AND Request("boksen" & i) <> "" _ AND Request("star" & i) <> "" _ AND Request("instruk" & i) <> "" _ AND Request("spilletid" & i) <> "" _ AND Request("genre" & i) <> "" _ AND Request("stemmer" & i) <> "" _ AND Request("sum" & i) <> "" _ AND Request("anmeldtype" & i) <> "" _ AND Request("picsmall" & i) <> "" _ AND Request("online" & i) <> "" then emne = Request.Form("emne" & i) indhold = Request.Form("indhold" & i) forfatter = Request.Form("forfatter" & i) forumid = Request.Form("forumid" & i) forumtopic = Request.Form("forumtopic" & i) pic = Request.Form("pic" & i) premiere = Request.Form("premiere" & i) teaser = Request.Form("teaser" & i) anmeld = Request.Form("anmeld" & i) boksen = Request.Form("boksen" & i) star = Request.Form("star" & i) instruk = Request.Form("instruk" & i) spilletid = Request.Form("spilletid" & i) genre = Request.Form("genre" & i) stemmer = Request.Form("stemmer" & i) sum = Request.Form("sum" & i) anmeldtype = Request.Form("anmeldtype" & i) picsmall = Request.Form("picsmall" & i) online = Request.Form("online" & i) rs.addnew rs("emne") = emne rs("indhold") = indhold rs("forfatter") = forfatter rs("forumid") = forumid rs("forumtopic") = forumtopic rs("pic") = pic rs("premiere") = premiere rs("teaser") = teaser rs("anmeld") = anmeld rs("boksen") = boksen rs("star") = star rs("instruk") = instruk rs("spilletid") = spilletid rs("genre") = genre rs("stemmer") = stemmer rs("sum") = sum rs("anmeldtype") = anmeldtype rs("picsmall") = picsmall if rs("online") = "online" Then rs("online") = "True" else rs("online") = "False" end if rs.update rs.update i = i+1 else continueSaving = false end if wend rs.close set rs = Nothing %> <form method="post" action=""> <% idx = 0 Do While not rsNews.EOF %> <textarea name="emne<%=idx%>" cols="40" rows="6" ><%=rsNews("titel")%></textarea><br> <textarea name="indhold<%=idx%>" cols="40" rows="6" ><%=rsNews("omtale")%></textarea><br> <input class="forms" size="40" type="text" name="forfatter<%=idx%>" value="<%=rsNews("forfatter")%>"><br> <input type="hidden" name="forumid<%=idx%>" value="8"><br> <input type="hidden" name="forumtopic<%=idx%>" value="Anmeldelser"><br> <input class="forms" size="40" type="text" name="pic<%=idx%>" value="<%=rsNews("pic")%>"><br> <input class="forms" size="40" type="text" name="premiere<%=idx%>" value="<%=rsNews("premiere")%>"><br> <textarea name="teaser<%=idx%>" cols="40" rows="6" ><%=rsNews("teaser")%> </textarea><br> <textarea name="anmeld<%=idx%>" cols="40" rows="6" ><%=rsNews("anmeld")%></textarea><br> <textarea name="boksen<%=idx%>" cols="40" rows="6" ><%=rsNews("boksen")%> </textarea><br> <input class="forms" size="40" type="text" name="star<%=idx%>" value="<%=rsNews("star")%>"><br> <input class="forms" size="40" type="text" name="instruk<%=idx%>" value="<%=rsNews("instruk")%> "><br> <input class="forms" size="40" type="text" name="spilletid<%=idx%>" value="<%=rsNews("spilletid")%> "><br> <input class="forms" size="40" type="text" name="genre<%=idx%>" value="<%=rsNews("genre")%>"><br> <input class="forms" size="40" type="text" name="stemmer<%=idx%>" value="<%=rsNews("stemmer")%>"><br> <input class="forms" size="40" type="text" name="sum<%=idx%>" value="<%=rsNews("sum")%>"><br> <input class="forms" size="40" type="text" name="anmeldtype<%=idx%>" value="bio"><br> <input class="forms" size="40" type="text" name="picsmall<%=idx%>" value="<%=rsNews("writer")%> "><br> <input type="checkbox" name="online<%=idx%>" checked="<%=rsNews("active")%>"> <% idx = idx + 1 rsNews.movenext loop %> <input class="formsknap" type="submit" value="Tilføj Alle"> </form>
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
Er der virkelig ingen der kan hjælpe mig?
Start i hvert fald med at rette denne: if rs("online") = "online" Then rs("online") = "True" else rs("online") = "False" end if - til: if online = "online" Then rs("online") = True else rs("online") = False end if
Det er gjort. Den sætter alle felter ind, men sætter ikke online til True selvom online er vinget af i formen.
Hvordan ser din kode ud lige nu?
<% strSQL = "SELECT TOP 2 * FROM anmeld" Set rsNews = objConn.Execute(strSQL) Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/data.mdb") Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from forumindlaeg" rs.open sql, conn, 1, 3 continueSaving = true i = 0 while continueSaving if Request("emne" & i) <> "" _ AND Request("indhold" & i) <> "" _ AND Request("forfatter" & i) <> "" _ AND Request("forumid" & i) <> "" _ AND Request("forumtopic" & i) <> "" _ AND Request("pic" & i) <> "" _ AND Request("premiere" & i) <> "" _ AND Request("teaser" & i) <> "" _ AND Request("anmeld" & i) <> "" _ AND Request("boksen" & i) <> "" _ AND Request("star" & i) <> "" _ AND Request("instruk" & i) <> "" _ AND Request("spilletid" & i) <> "" _ AND Request("genre" & i) <> "" _ AND Request("stemmer" & i) <> "" _ AND Request("sum" & i) <> "" _ AND Request("anmeldtype" & i) <> "" _ AND Request("picsmall" & i) <> "" _ AND Request("online" & i) <> "" then emne = Request.Form("emne" & i) indhold = Request.Form("indhold" & i) forfatter = Request.Form("forfatter" & i) forumid = Request.Form("forumid" & i) forumtopic = Request.Form("forumtopic" & i) pic = Request.Form("pic" & i) premiere = Request.Form("premiere" & i) teaser = Request.Form("teaser" & i) anmeld = Request.Form("anmeld" & i) boksen = Request.Form("boksen" & i) star = Request.Form("star" & i) instruk = Request.Form("instruk" & i) spilletid = Request.Form("spilletid" & i) genre = Request.Form("genre" & i) stemmer = Request.Form("stemmer" & i) sum = Request.Form("sum" & i) anmeldtype = Request.Form("anmeldtype" & i) picsmall = Request.Form("picsmall" & i) online = Request.Form("online" & i) rs.addnew rs("emne") = emne rs("indhold") = indhold rs("forfatter") = forfatter rs("forumid") = forumid rs("forumtopic") = forumtopic rs("pic") = pic rs("premiere") = premiere rs("teaser") = teaser rs("anmeld") = anmeld rs("boksen") = boksen rs("star") = star rs("instruk") = instruk rs("spilletid") = spilletid rs("genre") = genre rs("stemmer") = stemmer rs("sum") = sum rs("anmeldtype") = anmeldtype rs("picsmall") = picsmall if online = "online" Then rs("online") = "True" else rs("online") = "False" end if rs.update rs.update i = i+1 else continueSaving = false end if wend rs.close set rs = Nothing %> <form method="post" action=""> <% idx = 0 Do While not rsNews.EOF %> <textarea name="emne<%=idx%>" cols="40" rows="6" ><%=rsNews("titel")%></textarea><br> <textarea name="indhold<%=idx%>" cols="40" rows="6" ><%=rsNews("teaser")%> </textarea><br> <input class="forms" size="40" type="text" name="forfatter<%=idx%>" value="<%=rsNews("forfatter")%>"><br> <input type="hidden" name="forumid<%=idx%>" value="8"><br> <input type="hidden" name="forumtopic<%=idx%>" value="Anmeldelser"><br> <input class="forms" size="40" type="text" name="pic<%=idx%>" value="<%=rsNews("pic")%>"><br> <input class="forms" size="40" type="text" name="premiere<%=idx%>" value="<%=rsNews("premiere")%>"><br> <textarea name="teaser<%=idx%>" cols="40" rows="6" ><%=rsNews("teaser")%> </textarea><br> <textarea name="anmeld<%=idx%>" cols="40" rows="6" ><%=rsNews("anmeld")%></textarea><br> <textarea name="boksen<%=idx%>" cols="40" rows="6" ><%=rsNews("boksen")%> </textarea><br> <input class="forms" size="40" type="text" name="star<%=idx%>" value="<%=rsNews("star")%>"><br> <input class="forms" size="40" type="text" name="instruk<%=idx%>" value="<%=rsNews("instruk")%> "><br> <input class="forms" size="40" type="text" name="spilletid<%=idx%>" value="<%=rsNews("spilletid")%> "><br> <input class="forms" size="40" type="text" name="genre<%=idx%>" value="<%=rsNews("genre")%>"><br> <input class="forms" size="40" type="text" name="stemmer<%=idx%>" value="<%=rsNews("stemmer")%>"><br> <input class="forms" size="40" type="text" name="sum<%=idx%>" value="<%=rsNews("sum")%>"><br> <input class="forms" size="40" type="text" name="anmeldtype<%=idx%>" value="bio"><br> <input class="forms" size="40" type="text" name="picsmall<%=idx%>" value="<%=rsNews("writer")%> "><br> <input type="checkbox" name="online<%=idx%>" checked="<%=rsNews("active")%>"> <% idx = idx + 1 rsNews.movenext loop %> <input class="formsknap" type="submit" value="Tilføj Alle"> </form>
Har du prøvet med: if online = "online" Then rs("online") = True else rs("online") = False end if - altså uden "-tegn rundt om True og False?
Stadig det samme. Den sætter ind, men sætter ikke online til True.
Det skal nok være "on" i stedet for "online": if online = "on" Then rs("online") = True else rs("online") = False end if
... bliver desværre lige nødt til at gå et par timer ...
17. juni 2006 - 13:26
#10
Så virker det! Jeg fjernede også " omkring = "online". Fik idéen fordi du foreslog at fjerne dem omkring True og False. Tak! :)
17. juni 2006 - 13:26
#11
Husk at smide et svar når du får tid.
17. juni 2006 - 13:26
#12
Svar :^) ciao
Kurser inden for grundlæggende programmering