ASP og Access database

Den sidste \"End If\" ..hvad gør den godt for ?

ahh.. det et fordi jeg ikke fik if mode = et eller andet med !

Her er det hele ;-)

If mode = \"gem\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath (\"db.mdb\")
        strSQL = \"SELECT * From forum\"
                            rs.Open strSQL, Conn, 1, 3
                            If Not (rs.BOF Or rs.EOF) Then
                            Response.Write(\" \")
                            End If
                                rs.addnew
                                rs(\"bruger\")      = Request.form(\"bruger\")
                                rs(\"emne\")        = Request.form(\"emne\")
                                rs(\"sporgesmaal\") = Request.form(\"sporgesmaal\")
                                rs.update
                                Response.Write \"spørgesmålet er nu blevet oprettet!\"
                                rs.Close
                                End If

Hvad med Dim RS? ( bare et guess )

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01a8\'

Et objekt er obligatorisk: \'\'

/div/test/forum.asp, linje 53

du mangler at afslutte en string.. 

f.eks.


if something = \"hej

skal være = \"hej\"

*G* yep... well, men hvor!? :-)

Du skal oprette dit recordset med en server.createobject

hmm.. kan du komme med et eksempel?

set rs=server.createobject(\"ADODB.RecordSet\")

...inden du bruger rs

i don\'t get it!
kan du prøve at lave et eksempel med det jeg har nu?

altså hvor du indsættet det?

Du har en linie der hedder
rs.Open strSQL, Conn, 1, 3
Den skal hedde
rs.Execute(strSQL)

så burde den del virker.

sludder...det skal se sådan ud.

Set rs = Server.CreateObject(\"ADODB.Recordset\")
    connstr = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath (\"db.mdb\")
        rs.Open \"forum\", connstr, 1, 3
                            If Not (rs.BOF Or rs.EOF) Then
                                rs.addnew
                                rs(\"bruger\")      = Request.form(\"bruger\")
                                rs(\"emne\")        = Request.form(\"emne\")
                                rs(\"sporgesmaal\") = Request.form(\"sporgesmaal\")
                                rs.update
                                Response.Write \"spørgesmålet er nu blevet oprettet!\"
                                rs.Close
                            End If

Jeg bemærkede ikke i første omgang at du lavede en addNew.

hmm... så kommer der ikke noget i DB\'en?!

If Not (rs.BOF Or rs.EOF) Then

skal være

If Not (rs.BOF And rs.EOF) Then

den overså jeg da jeg rettede

nope..! der kommer stadivæk ikke noget i db\'en!

den er faktisk underordnet:
If Not (rs.BOF And rs.EOF) Then
End if.

Du skal ikke checke hvor i recordsettet du står når du bare skal lave en addnew.

så din kode kan blive endnu mere enkelt.

Set rs = Server.CreateObject(\"ADODB.Recordset\")
    connstr = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath (\"db.mdb\")
        rs.Open \"forum\", connstr, 1
                                rs.addnew
                                rs(\"bruger\")      = Request.form(\"bruger\")
                                rs(\"emne\")        = Request.form(\"emne\")
                                rs(\"sporgesmaal\") = Request.form(\"sporgesmaal\")
                                rs.update
                                Response.Write \"spørgesmålet er nu blevet oprettet!\"
                                rs.Close

så kommer denne fejl bare:
ADODB.Recordset fejl \'800a0cb3\'

Den handling, programmet anmodede om, understøttes ikke af provideren.

/div/test/forum.asp, linje 53



linie 53:                                rs.addnew

Har du checket at der er skriverettigheder til DB\'en ?

well jeg kører det over min PWS! så det skulle der vidst være!

check alligevel på din .mdb fil.
Den får nemlig ikke automatisk skriverettigheder.

og din fejl kunne tyde på at du ikke kan skrive til databasen.

den står kun på \"arkiv\"

hmm... ikke kunne skrive til db\'en? det er jo bare en access db. og den kan man da vel skrive til lige meget hvad, næsten... ik\'? der er da ikke nogle funktioner hvor man kan slå det fra!
eller er der?

hvilken o/s er det ?
og hvilken access version ?

har du cuttet og pasted min version direkte ind ?
der var mange rettelser..bl.a. skal du bruge ADODB.Recordset & ikke ADODB.connection.

det er access\'s den nyeste.. well, ja jeg har cuttet og pastet dine koder ind!

hvad mener du med o/s ?

Her er det hele!

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Forum</title>
</head>

<body>

<%
mode = Request(\"mode\")
%>

<%
If mode = \"\" Then
Response.Write \"Velkommen til forumet\" & \"<p>\"
Response.Write \"<a href=\'forum.asp?mode=opret\'>\" & \"Opret spørgesmål\" & \"</a>\"
End If
%>

<%
If mode = \"opret\" Then
%>
<form action=\"forum.asp?mode=gem\" method=\"post\">
<table>
<tr>
  <td><input type=\"hidden\" name=\"bruger\" value=\"<%= session(\"brugernavn\") %>\"></td>
</tr>
<tr>
  <td>Bruger:</td><td><%= session(\"brugernavn\")%></td>
</tr>
<tr>
  <td>Emne</td>
  <td><input type=\"text\" name=\"emne\"></td>
</tr>
<tr>
  <td>Spørgesmål</td>
  <td><textarea name=\"sporgesmaal\"></textarea></td>
</tr>
<tr>
  <td><input type=\"submit\" value=\"send\"></td>
</tr>
</table>
</form>
<% End If %>

<%
If mode = \"gem\" Then
dim rs
Set rs = Server.CreateObject(\"ADODB.Recordset\")
    connstr = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath (\"db.mdb\")
        rs.Open \"forum\", connstr, 1
                                rs.addnew
                                rs(\"bruger\")      = Request.form(\"bruger\")
                                rs(\"emne\")        = Request.form(\"emne\")
                                rs(\"sporgesmaal\") = Request.form(\"sporgesmaal\")
                                rs.update
                                Response.Write \"spørgesmålet er nu blevet oprettet!\"
                                rs.Close
End If
%>
</body>
</html>

jeg bruger samme script til en access2000 db, der virker det fint.

den eneste forskel er at min open ser således ud.
  rs.Open \"forum\", connstr, 1, 2, &H0002

jeg er ikke helt klar over hvad paramenterne betyder.

aner jeg heller ikke, -har det selv fra en bog!

men kunne jeg ikke få din mail adresse og så maile hele scriptet til dig, så du kunne se det hele, og self rette det til det rigtige! -så får du de 50 point! ?

Mit sidste foreslag var at ændre linien
  rs.Open \"forum\", connstr, 1, 2, &H0002

hvis ikke det virker er det ikke script-delen der er gal, så jeg har ikke flere ideer.
Det virker som sagt her.

Mon ikke vi bare skulle

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath (\"db.mdb\")
strSQL = \"SELECT * From forum\"
rs.Open strSQL, Conn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
  ....osv....

altså bruge den connection, og ikke bare en connectionstring

måske det virker..det er bare meget omstændigt.
Han skal jo bare addnew, så hvorfor bruge SELECT, når han bare kan åbne tabellen.

Prøv at kigge her http://asp101.com/samples/db_edit.asp

Jeg syntes jeg har fået de mest korekte svar fra \"euroman28\" så derfor får han æren af de 50 point!

-fandt ud af en anden løsning!