23. juni 2004 - 01:09
Der er
7 kommentarer og 1 løsning
Skriver ikke Til database !
Hey... <% if mode = "svartraad" then Set rs = Server.CreateObject("ADODB.Recordset") strSQL ="SELECT * FROM forumbesked Where forumid = " & Request.Querystring("forumid") rs.Open strsql, conn, 1, 3 %> <br> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid"> <tr> <td height="54" valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="1"> <tr> <td height="30" background="img/bar.gif"><center><p><u><b>Svar på emnet her:</b></u></p></center></td> </tr> <tr> <td valign="top"> <form method="POST" action="iframe.asp?vis=svartraad&id=<%=rs("id")%>&forumid=<%=rs("forumid")%>"> <p> <b>Forfatter:</b><br> <input name="forfatter" type="text" size="30" value="<%=forfatter%>"><br> <b>E-mail:</b><br> <input name="email" size="30" value="<%=email%>"><br><br> <b>Besked:</b><br> <textarea cols="40" name="besked" rows="10" wrap="virtual" style="font-family: tahoma; font-size: 11px; background-color: #ffffff; color: #000000; pt; border-width:1; border-color:000000;"><%=besked%></textarea><br><br> <input type="submit" value="Gem"> <input type="reset" value="Slet alt"> </p> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then if (Request.Form("forfatter") <> "" AND Request.Form("besked") <> "") then If rs.BOF Or rs.EOF Then rs.addnew rs("forfatter") = Server.HTMLEncode(Request("forfatter")) rs("email") = Server.HTMLEncode(Request("email")) rs("besked") = (Request("besked")) rs.update Response.Redirect("iframe.asp?vis=forum") else Response.Write("<b><font color='red'><p>Fejl!</p></font></b>") end if rs.Close set rs = nothing else Response.Write("<b><font color='red'><p>Udfyld alle Felter!</p></font></b>") end if end if %> <p> <b><a href="java script:history.back()">Tilbage</a></b> </p> </form> </td> </tr> </table></td> </tr> </table> <br> <% end if %> -- Hvorfor skriver den ikk det her til min database .. har en connection med databasen !!! og den virker !
Annonceindlæg fra Academic Work Denmark A/S
-- Hvorfor skriver den ikk det her til min database .. har en connection med databasen !!! og den virker !.. Når jeg udfylder alle felter og trykker GEM skriver den bare "FEJL!"
du har ikke nogen INSERT INTO sql-streng.
If rs.BOF Or rs.EOF Then det er fordi dit recordset ikke er tomt! Hvis du undlader dette check vil den tilføje en ny post og gemme data.
Virker ikk ... den tilføjer ikk!
Hmmm Jeg kan godt få det til at virke... Har kun ændret det der med rs.eof, ellers er det stort set den samme kode: <% if mode = "svartraad" then Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM forumbesked Where forumid = '" & Request.Querystring("forumid") & "'" rs.Open strSQL, Conn, 1, 3 %> <br> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid"> <tr> <td height="54" valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="1"> <tr> <td height="30" background="img/bar.gif"><center><p><u><b>Svar på emnet her:</b></u></p></center></td> </tr> <tr> <td valign="top"> <form method="POST" action="iframe.asp?vis=svartraad&id=<%=rs("id")%>&forumid=<%=rs("forumid")%>"> <p> <b>Forfatter:</b><br> <input name="forfatter" type="text" size="30" value="<%=forfatter%>"><br> <b>E-mail:</b><br> <input name="email" size="30" value="<%=email%>"><br><br> <b>Besked:</b><br> <textarea cols="40" name="besked" rows="10" wrap="virtual" style="font-family: tahoma; font-size: 11px; background-color: #ffffff; color: #000000; pt; border-width:1; border-color:000000;"><%=besked%></textarea><br><br> <input type="submit" value="Gem"> <input type="reset" value="Slet alt"> </p> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then if (Request.Form("forfatter") <> "" AND Request.Form("besked") <> "") then rs.Addnew rs("forfatter") = Server.HTMLEncode(Request("forfatter")) rs("email") = Server.HTMLEncode(Request("email")) rs("besked") = (Request("besked")) rs.Update Response.Redirect("iframe.asp?vis=forum") rs.Close set rs = nothing else Response.Write("<b><font color='red'><p>Udfyld alle Felter!</p></font></b>") end if end if %> <p> <b><a href="java script:history.back()">Tilbage</a></b> </p> </form> </td> </tr> </table></td> </tr> </table> <br> <% end if %>
Datatyperne stemmer ikke overens i kriterieudtrykket. Linje: 6 rs.Open strSQL, Conn, 1, 3 Hmm....
Nu virked det ... Laved bare lige connection om til denne: Set rs = Server.CreateObject("ADODB.Recordset") strSQL ="SELECT * FROM forumbesked Where forumid = " & Request.Querystring("forumid") rs.Open strsql, conn, 1, 3 .... Men den skulle også skrive til et forumid så den får samme id som der den skal være Kan i også hjælpe med det? ud fra det der?
Kurser inden for grundlæggende programmering