Avatar billede plato Juniormester
16. juni 2006 - 08:45 Der er 3 kommentarer og
1 løsning

Find en fejl. ASP

Hejsa NG.

Følgende kode giver overhovedet ikke fejl, men den sætter heller ikke noget ind. Alle felter acceptere NULL, men jeg har alligvel sikret mig med ' '. Jeg har en mulig tanke om 'active' som er et Ja/Nej felt i tabellen.

Jeg har stirret mig blind. Kan I finde fejlen?

<%
strSQL = "SELECT * 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("dato" & i) <> "" _
  AND Request("pic" & i) <> "" _
  AND Request("premiere" & i) <> "" _
  AND Request("active" & 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) <> "" 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)
dato = Request.Form("dato" & i)
pic = Request.Form("pic" & i)
premiere = Request.Form("premiere" & i)
active = Request.Form("active" & 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)



rs.addnew
rs("emne") = emne
rs("indhold") = indhold
rs("forfatter") = forfatter
rs("forumid") = forumid
rs("forumtopic") = forumtopic
rs("dato") = dato
rs("pic") = pic
rs("premiere") = premiere
rs("active") = active
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


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
%>
<input class="forms" size="40" type="text" name="emne<%=idx%>" value="<%=rsNews("titel")%>"><br>
<textarea name="indhold<%=idx%>" cols="40" rows="6" ><%=rsNews("omtale")%>&nbsp;</textarea><br>
<input class="forms" size="40" type="text" name="pic<%=idx%>" value="<%=rsNews("pic")%>"><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="dato<%=idx%>" value="<%=rsNews("premiere")%>"><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="premiere<%=idx%>" value="<%=rsNews("premiere")%>"><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>
<textarea name="teaser<%=idx%>" cols="40" rows="6" ><%=rsNews("teaser")%>&nbsp;</textarea><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 type="checkbox" name="active" value="active<%=idx%>" checked="<%=rsNews("active")%>">
<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>
<textarea name="anmeld<%=idx%>" cols="40" rows="6" ><%=rsNews("anmeld")%>&nbsp;</textarea><br>-------------------------------------------------------------<br>


<%
  idx = idx + 1
  rsNews.movenext
loop
%>
<input class="formsknap" type="submit" value="Tilføj Alle">
</form>
Avatar billede plato Juniormester
16. juni 2006 - 09:34 #1
Fandt en fejl her:
<input type="checkbox" name="active" value="active<%=idx%>" checked="<%=rsNews("active")%>">

skal være

<input type="checkbox" name="active<%=idx%>" value="active" checked="<%=rsNews("active")%>">

Men efter den er rettet melder browseren HTTP 500-serverfejl.?
Avatar billede plato Juniormester
16. juni 2006 - 14:10 #2
Jeg har fået det hele til at virke. Undtagen når jeg tilføjer min True/False (Ja/Nej). Hvordan kan dette rettes til?

Der må være nogen der kan hjælpe.

<%
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)
if Request.form("online" & i) = "online" Then
rs("online") = "True"
else
rs("online") = "False"
end if



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
rs("online") = online


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
16. juni 2006 - 14:13 #3
Rettet til, endnu en gang. Nu sætter den det hele ind. Men den vil ikke sætte 'online' til true i databasen.

<%
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
16. juni 2006 - 17:26 #4
Opretter nyt spm med bedre spm-beskrivelse.
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