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")%> </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")%> </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")%> </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")%> "><br> <textarea name="anmeld<%=idx%>" cols="40" rows="6" ><%=rsNews("anmeld")%> </textarea><br>-------------------------------------------------------------<br> <% idx = idx + 1 rsNews.movenext loop %> <input class="formsknap" type="submit" value="Tilføj Alle"> </form>
Annonceindlæg fra HP
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.?
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")%> </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>
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")%> </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>
Opretter nyt spm med bedre spm-beskrivelse.
Kurser inden for grundlæggende programmering