Avatar billede plato Juniormester
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")%>&nbsp;</textarea><br>
<textarea name="anmeld<%=idx%>" cols="40" rows="6" ><%=rsNews("anmeld")%></textarea><br>
<textarea name="boksen<%=idx%>" cols="40" rows="6" ><%=rsNews("boksen")%>&nbsp;</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")%>&nbsp;"><br>
<input class="forms" size="40" type="text" name="spilletid<%=idx%>" value="<%=rsNews("spilletid")%>&nbsp;"><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")%>&nbsp;"><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>
Avatar billede plato Juniormester
17. juni 2006 - 13:05 #1
Er der virkelig ingen der kan hjælpe mig?
Avatar billede nielle Nybegynder
17. juni 2006 - 13:08 #2
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
Avatar billede plato Juniormester
17. juni 2006 - 13:19 #3
Det er gjort. Den sætter alle felter ind, men sætter ikke online til True selvom online er vinget af i formen.
Avatar billede nielle Nybegynder
17. juni 2006 - 13:20 #4
Hvordan ser din kode ud lige nu?
Avatar billede plato Juniormester
17. juni 2006 - 13:21 #5
<%
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")%>&nbsp;</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")%>&nbsp;</textarea><br>
<textarea name="anmeld<%=idx%>" cols="40" rows="6" ><%=rsNews("anmeld")%></textarea><br>
<textarea name="boksen<%=idx%>" cols="40" rows="6" ><%=rsNews("boksen")%>&nbsp;</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")%>&nbsp;"><br>
<input class="forms" size="40" type="text" name="spilletid<%=idx%>" value="<%=rsNews("spilletid")%>&nbsp;"><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")%>&nbsp;"><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>
Avatar billede nielle Nybegynder
17. juni 2006 - 13:22 #6
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?
Avatar billede plato Juniormester
17. juni 2006 - 13:24 #7
Stadig det samme. Den sætter ind, men sætter ikke online til True.
Avatar billede nielle Nybegynder
17. juni 2006 - 13:24 #8
Det skal nok være "on" i stedet for "online":

if online = "on" Then
rs("online") = True
else
rs("online") = False
end if
Avatar billede nielle Nybegynder
17. juni 2006 - 13:25 #9
... bliver desværre lige nødt til at gå et par timer ...
Avatar billede plato Juniormester
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! :)
Avatar billede plato Juniormester
17. juni 2006 - 13:26 #11
Husk at smide et svar når du får tid.
Avatar billede nielle Nybegynder
17. juni 2006 - 13:26 #12
Svar :^)

ciao
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