Avatar billede aventic Nybegynder
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 !
Avatar billede aventic Nybegynder
23. juni 2004 - 01:11 #1
-- 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!"
Avatar billede thedeathart Nybegynder
23. juni 2004 - 01:13 #2
du har ikke nogen INSERT INTO sql-streng.
Avatar billede ldanielsen Nybegynder
23. juni 2004 - 01:15 #3
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.
Avatar billede aventic Nybegynder
23. juni 2004 - 02:11 #4
Virker ikk ... den tilføjer ikk!
Avatar billede hansdam Nybegynder
23. juni 2004 - 09:44 #5
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 %>
Avatar billede aventic Nybegynder
23. juni 2004 - 11:35 #6
Datatyperne stemmer ikke overens i kriterieudtrykket.
Linje: 6

rs.Open strSQL, Conn, 1, 3


Hmm....
Avatar billede aventic Nybegynder
23. juni 2004 - 11:38 #7
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?
Avatar billede aventic Nybegynder
23. juni 2004 - 22:27 #8
hmm nej det virked ikk!
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

IT-JOB

Netcompany A/S

IT Consultant

Politiets Efterretningstjeneste

Fullstack softwareudvikler i PET

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Solution Manager til Cyberdivisionen