insert into...MySQL

Prøv lige med:

    sqlI = "INSERT INTO plakater (p_id, p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES ("&p_id&","&p_kategori&","&p_fotograf&",'"&p_img&"','"&p_titel&"',"&p_pris&",'"&p_txt&"')"
    Response.Write sqlI
    Conn.Execute(sqlI)

Så skulle den udskrive, hvordan hele din SQL kommer til at se ud, når dine variabler sættes ind.

Jeg fjernede i øvrigt "&" som ikke gjorde nogen forskel, men kun forvirrede.

Er du sikker på, at du har ' (apostrof) om alle dine felter, som ikke er af numerisk type i databasen?

Nu får jeg dette svar:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ',6,'fgh.jpg','ffghf',30,'<p>fhgfhgfhf</p>')' at line 1
/eksamenstest/byskov/cms/product_ny.asp, line 16

Her er linie 14-16:
sqlI = "INSERT INTO plakater (p_id, p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES ("&p_id&","&p_kategori&","&p_fotograf&",'"&p_img&"','"&p_titel&"',"&p_pris&",'"&p_txt&"')"
Response.Write sqlI
Conn.Execute(sqlI)

Jeg mener jeg har ' om alle de rigtige felter, da p_kategori, p_fotograf, p_id og p_pris alle har talværdier.

Sådan ser hele siden ud - måske hjælper det mere:

<%
If Request.ServerVariables("CONTENT_LENGTH") <> 0 then
%>
<!-- #include file="../includes/dbconnect.asp" -->
<%
    p_id = Request.Form("pid")
    p_kategori = Request.Form("pkategori")
    p_fotograf = Request.Form("pfotograf")
    p_img = Request.Form("pimg")
    p_titel = replace(Request.Form("ptitel"),"'","''")
    p_pris = Request.Form("ppris")
    p_txt = replace(Request.Form("ptxt"),"'","''")   
   
    sqlI = "INSERT INTO plakater (p_id, p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES ("&p_id&","&p_kategori&","&p_fotograf&",'"&p_img&"','"&p_titel&"',"&p_pris&",'"&p_txt&"')"
    Response.Write sqlI
    Conn.Execute(sqlI)

    Response.Redirect("cms_index.asp?page=product&act=product")
End if

btnSend = "Opret"
%>
    <form method="post" action="product_ny.asp" name="opretproduct">
        <input type="hidden" name="pid" value="<%=productid%>" />
        Overskrift: <input type="text" name="ptitel" /><br />
        <%
        'Dim oFCKeditor
        Set oFCKeditor = New FCKeditor
        oFCKeditor.BasePath = "fckeditor/"
        oFCKeditor.Toolbarset = "Basic"
        oFCKeditor.Width = "430"
        oFCKeditor.Create "ptxt"
        %>
        <br /><br />
        Billede: <input type="text" name="pimg" />
          &nbsp;
        Pris(&pound;): <input type="price" name="ppris" />
        <br /><br />
        <%
        sqlf = "SELECT * FROM fotograf ORDER BY f_txt ASC"
        set rsf = Conn.Execute(sqlf)
        %>
        Fotograf:     <select size="1" name="pfotograf">
                    <option selected="selected" value="">V&oelig;lg her...</option>
                    <%do until rsf.eof%>
                    <option value="<%=rsf("f_id")%>"><%=rsf("f_txt")%></option>
                    <%rsf.movenext
                    loop%>
                    </select>
        &nbsp;
        <%
        sqlk = "SELECT * FROM kategori ORDER BY k_txt ASC"
        set rsk = Conn.Execute(sqlk)
        %>
        Kategori:     <select size="1" name="pkategori">
                    <option selected="selected" value="">V&oelig;lg her...</option>
                    <%do until rsk.eof%>
                    <option value="<%=rsk("k_id")%>"><%=rsk("k_txt")%></option>
                    <%rsk.movenext
                    loop%>
                    </select>
        <br /><br />
        <input type="submit" value="<%=btnSend%>" />
    </form>

Fjern lige:

    Conn.Execute(sqlI)

    Response.Redirect("cms_index.asp?page=product&act=product")

så vi kan se, hvad den udskriver til os.

Så skriver den dette her:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01FA)
Klasse ikke defineret: 'FCKeditor'
/eksamenstest/byskov/cms/product_ny.asp, line 26

Har jeg mulighed for at se siden?

Hvilke af disse felter er tal og hvilke er tekst i din database: p_id, p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt ?

p_kategori, p_fotograf, p_id og p_pris = tal
p_img, p_titel og p_txt = tekst

Siden ligenu:

<%
If Request.ServerVariables("CONTENT_LENGTH") <> 0 then
%>
<!-- #include file="../includes/dbconnect.asp" -->
<%
    p_id = Request.Form("pid")
    p_kategori = Request.Form("pkategori")
    p_fotograf = Request.Form("pfotograf")
    p_img = Request.Form("pimg")
    p_titel = replace(Request.Form("ptitel"),"'","''")
    p_pris = Request.Form("ppris")
    p_txt = replace(Request.Form("ptxt"),"'","''")   
   
    sqlI = "INSERT INTO plakater (p_id, p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES ("&p_id&","&p_kategori&","&p_fotograf&",'"&p_img&"','"&p_titel&"',"&p_pris&",'"&p_txt&"')"
    Response.Write sqlI

End if

btnSend = "Opret"
%>
    <form method="post" action="product_ny.asp" name="opretproduct">
        <input type="hidden" name="pid" value="<%=productid%>" />
        Overskrift: <input type="text" name="ptitel" /><br />
        <%
        'Dim oFCKeditor
        Set oFCKeditor = New FCKeditor
        oFCKeditor.BasePath = "fckeditor/"
        oFCKeditor.Toolbarset = "Basic"
        oFCKeditor.Width = "430"
        oFCKeditor.Create "ptxt"
        %>
        <br /><br />
        Billede: <input type="text" name="pimg" />
          &nbsp;
        Pris(&pound;): <input type="price" name="ppris" />
        <br /><br />
        <%
        sqlf = "SELECT * FROM fotograf ORDER BY f_txt ASC"
        set rsf = Conn.Execute(sqlf)
        %>
        Fotograf:     <select size="1" name="pfotograf">
                    <option selected="selected" value="">V&oelig;lg her...</option>
                    <%do until rsf.eof%>
                    <option value="<%=rsf("f_id")%>"><%=rsf("f_txt")%></option>
                    <%rsf.movenext
                    loop%>
                    </select>
        &nbsp;
        <%
        sqlk = "SELECT * FROM kategori ORDER BY k_txt ASC"
        set rsk = Conn.Execute(sqlk)
        %>
        Kategori:     <select size="1" name="pkategori">
                    <option selected="selected" value="">V&oelig;lg her...</option>
                    <%do until rsk.eof%>
                    <option value="<%=rsk("k_id")%>"><%=rsk("k_txt")%></option>
                    <%rsk.movenext
                    loop%>
                    </select>
        <br /><br />
        <input type="submit" value="<%=btnSend%>" />
    </form>

Prøv lige:

<%
If Request.ServerVariables("CONTENT_LENGTH") <> 0 then
%>
<!-- #include file="../includes/dbconnect.asp" -->
<%
    p_id = Request.Form("pid")
    p_kategori = Request.Form("pkategori")
    p_fotograf = Request.Form("pfotograf")
    p_img = Request.Form("pimg")
    p_titel = replace(Request.Form("ptitel"),"'","''")
    p_pris = Request.Form("ppris")
    p_txt = replace(Request.Form("ptxt"),"'","''")   
   
    sqlI = "INSERT INTO plakater (p_id, p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES ("&p_id&","&p_kategori&","&p_fotograf&",'"&p_img&"','"&p_titel&"',"&p_pris&",'"&p_txt&"')"
    Response.Write sqlI
Else

btnSend = "Opret"
%>
    <form method="post" action="product_ny.asp" name="opretproduct">
        <input type="hidden" name="pid" value="<%=productid%>" />
        Overskrift: <input type="text" name="ptitel" /><br />
        <%
        'Dim oFCKeditor
        Set oFCKeditor = New FCKeditor
        oFCKeditor.BasePath = "fckeditor/"
        oFCKeditor.Toolbarset = "Basic"
        oFCKeditor.Width = "430"
        oFCKeditor.Create "ptxt"
        %>
        <br /><br />
        Billede: <input type="text" name="pimg" />
          &nbsp;
        Pris(&pound;): <input type="price" name="ppris" />
        <br /><br />
        <%
        sqlf = "SELECT * FROM fotograf ORDER BY f_txt ASC"
        set rsf = Conn.Execute(sqlf)
        %>
        Fotograf:    <select size="1" name="pfotograf">
                    <option selected="selected" value="">V&oelig;lg her...</option>
                    <%do until rsf.eof%>
                    <option value="<%=rsf("f_id")%>"><%=rsf("f_txt")%></option>
                    <%rsf.movenext
                    loop%>
                    </select>
        &nbsp;
        <%
        sqlk = "SELECT * FROM kategori ORDER BY k_txt ASC"
        set rsk = Conn.Execute(sqlk)
        %>
        Kategori:    <select size="1" name="pkategori">
                    <option selected="selected" value="">V&oelig;lg her...</option>
                    <%do until rsk.eof%>
                    <option value="<%=rsk("k_id")%>"><%=rsk("k_txt")%></option>
                    <%rsk.movenext
                    loop%>
                    </select>
        <br /><br />
        <input type="submit" value="<%=btnSend%>" />
    </form>
<%End if%>

Denne skulle gerne vise os din SQL-sætning, sådan som den bliver sat sammen. Den skal vi se for at vide, hvad der går galt.

Det gik helt galt, nu forsvandt hjemmesiden og istedet stod der kun dette:

INSERT INTO plakater (p_id, p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES (,1,6,'fgh.jpg','gfhgfh',30,'
fhgh

')

Det gik ikke galt. Jeg satte den til at forsvinde, så vi kunne se den besked.

Og helt rigtigt:

(,1,6,'fgh.jpg','gfhgfh',30,'fhgh')

Her kan vi jo se, at den første værdi helt mangler! Der kan jo ikke indledes med et komma her.

Så nu kan du indsætte din gamle kode igen. Nu ved vi nemlig, at problemet opstår med variablen p_id, som er tom.

Dvs. at følgende:

p_id = Request.Form("pid")

ikke duer. p_id bliver ikke sat!

Så din Request.Form("pid") er vel tom.

Min p_id er sat til Auto Inkrementiel - så den burde selv sætte et id-nr.
og den er vel tom fordi den endnu ikke er oprettet eller hvad?

Tjaeh, det kunne godt tænkes. Så prøv at rette:

    sqlI = "INSERT INTO plakater (p_id, p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES ("&p_id&","&p_kategori&","&p_fotograf&",'"&p_img&"','"&p_titel&"',"&p_pris&",'"&p_txt&"')"

til:

    sqlI = "INSERT INTO plakater (p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES ("&p_kategori&","&p_fotograf&",'"&p_img&"','"&p_titel&"',"&p_pris&",'"&p_txt&"')"

:) Burde virke!

Det virker desværre heller ikke.

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01FA)
Klasse ikke defineret: 'FCKeditor'
/eksamenstest/byskov/cms/product_ny.asp, line 26

Linie 26 er denne linie:
Set oFCKeditor = New FCKeditor

Jeg har fået hjælp på klassen og dette blev resultatet:

<%
If Request.ServerVariables("CONTENT_LENGTH") > 0 then
%>
<!-- #include file="../includes/dbconnect.asp" -->
<%
    p_id = Request.Form("pid")
    p_kategori = Request.Form("pkategori")
    p_fotograf = Request.Form("pfotograf")
    p_img = Request.Form("pimg")
    p_titel = replace(Request.Form("ptitel"),"'","''")
    p_pris = Request.Form("ppris")
    p_txt = replace(Request.Form("ptxt"),"'","''")   
   
    sqlI = "INSERT INTO plakater (p_kategori, p_fotograf, p_img, p_titel, p_pris, p_txt) VALUES ("&p_kategori&","&p_fotograf&",'"&p_img&"','"&p_titel&"',"&p_pris&",'"&p_txt&"')"
    Conn.Execute(sqlI)
    Response.Redirect(request.ServerVariables("HTTP_REFERER"))
End if

btnSend = "Opret"
%>
    <form method="post" action="product_ny.asp" name="opretproduct">
        <input type="hidden" name="pid" value="<%=productid%>" />
        Overskrift: <input type="text" name="ptitel" /><br />
        <%
        'Dim oFCKeditor
        Set oFCKeditor = New FCKeditor
        oFCKeditor.BasePath = "fckeditor/"
        oFCKeditor.Toolbarset = "Basic"
        oFCKeditor.Width = "430"
        oFCKeditor.Create "ptxt"
        %>
        <br /><br />
        Billede: <input type="text" name="pimg" />
          &nbsp;
        Pris(&pound;): <input type="price" name="ppris" />
        <br /><br />
        <%
        sqlf = "SELECT * FROM fotograf ORDER BY f_txt ASC"
        set rsf = Conn.Execute(sqlf)
        %>
        Fotograf:     <select size="1" name="pfotograf">
                    <option selected="selected" value="">V&oelig;lg her...</option>
                    <%do until rsf.eof%>
                    <option value="<%=rsf("f_id")%>"><%=rsf("f_txt")%></option>
                    <%rsf.movenext
                    loop%>
                    </select>
        &nbsp;
        <%
        sqlk = "SELECT * FROM kategori ORDER BY k_txt ASC"
        set rsk = Conn.Execute(sqlk)
        %>
        Kategori:     <select size="1" name="pkategori">
                    <option selected="selected" value="">V&oelig;lg her...</option>
                    <%do until rsk.eof%>
                    <option value="<%=rsk("k_id")%>"><%=rsk("k_txt")%></option>
                    <%rsk.movenext
                    loop%>
                    </select>
        <br /><br />
        <input type="submit" value="<%=btnSend%>" />
    </form>

Så desværre, men pointene ryger tilbage til mig.

Det er helt i orden. Men bortset fra det, så havde den sidste fejl intet med din Insert Into at gøre og derimod med din editor.