[ ASP ] Probleem met Recordset addnew - Softwareontwikkeling

dinsdag 10 juni 2003 18:28

Acties:

Verwijderd

Topicstarter

Beste mensen,

Ik probeer een soort van nieuwsbericht in mijn access database te zetten.
Er zijn 5 kollomen

NieuwsId => autonummering
UploadDatum => Datum/Tijd
UploadUserId => nummeriek
Datum => Datum/Tijd
Nieuws => Memo

Deze gegevens komen uit een form en wil hem in de database zetten met

Mijn Script:

ASP:

<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<body>

<% 
    'kijken of er een bericht gepost is
    
    if request.form("nieuws") = "" then
    
%>
<FORM name="addNieuws" method="post" action="addNieuws.asp">
    <TABLE border="0">
        <TR>
            <td>
                <B>Datum :</B><br>
                <INPUT type="text" size=25 name="datum"></INPUT>
                <br>
                <B>Nieuwsbericht:</B><br>
                <TEXTAREA rows=10 cols=100 wrap="auto" name="nieuws"></TEXTAREA>
            </td>
        </TR>
        <TR>
            <td align="right">
                <INPUT type=submit value="Voeg nieuws toe!">
            </td>
        </TR>
    </TABLE>
</FORM>
<%

else

    Dim Conn
    Dim Rs
    Dim SqlString
    Dim filePath

    filePath = Server.MapPath("../db/gebdatabase.mdb")
    
    set Conn  = Server.Createobject("ADODB.Connection")
    Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
    
        set Rs = Server.Createobject("ADODB.Recordset")
        Rs.open "T4Nieuws", Conn

    Rs.addNew

    Rs("UploadDatum")= date()
    Rs("UploadUserId")= 1
    Rs("Datum")= Request.Form("datum")
    Rs("Nieuws")= cstr(Request.Form("nieuws"))

    Rs.Update

    Rs.close
    Conn.close
    Set Rs = Nothing
    Set Conn = nothing

    Response.Write "<br><br>Uw nieuwsbericht is toegevoegd"
    Response.Write "<a href='nieuws.asp'>Terug naar nieuws administratie</a>"   

end if
%>
</body>
</html>

Wie kan mij vertellen wat hier mis aan is

Alvast bedankt voor alle moeite

[ Voor 20% gewijzigd door Verwijderd op 10-06-2003 18:28 ]

dinsdag 10 juni 2003 18:29

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Wie kan mij vertellen wat hier mis aan is

Wat er mis aan is?

Nou, wij missen..
1. Wat de foutmelding is
2. Wat je geprobeerd hebt
3. Wat Google zegt op de foutmelding
4. Een stukje relevante code (dus geen: enorme lap tekst)
5. Debuginformatie.
6. Een post volgende de quickstart

[ Voor 46% gewijzigd door gorgi_19 op 10-06-2003 18:31 ]

Digitaal onderwijsmateriaal, leermateriaal voor hbo

dinsdag 10 juni 2003 18:36

Acties:

DeverauX

Focus is everything

Ten eerste: waarom gebruik je ADO om een record in te voegen en niet gewoon een SQL INSERT ?
Daarnaast open je je tabel ook niet, i.e:

ASP:

1	Rs.open "T4Nieuws", Conn

Hier moet een SQL Select-statement komen te staan

Zoiets als dit:

ASP:

1	Rs.Open "SELECT * FROM T4Nieuws", Conn

[ Voor 11% gewijzigd door DeverauX op 10-06-2003 18:37 ]

...whatever was distasteful or unpleasant or uncomfortable or painful - music could always soothe that.
All you have to do is reach out to beauty.
Quincy Jones

dinsdag 10 juni 2003 18:55

Acties:

dusty

Celebrate Life!

Lees onze volledige FAQ eens een keertje door : Welkom in P&W: FAQ en Beleid *updated: 14-04*

En probeer dan nog eens een goeie topic start te maken, weet je niet zeker of je topic start goed is stuur dan eerst het verhaaltje naar een van de (lite)mods en die geven je dan wel feedback of je verhaaltje goed genoeg is om een topic te plaatsen.

Back In Black!
"Je moet haar alleen aan de ketting leggen" - MueR