Acess og ASP - DB connetion

Du kan f.eks. åbne databasen sådan her:
connStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.MapPath("\") & "\database.mdb;"
Set conn = CreateObject("adodb.connection")
conn.Open connStr

Hvordan blir det inn i hele scriptet?

Tabellen (recordsættet) henter du ud på denne måde:
sqlstmt = "select * from tblOrdre"
oRS.open sqlstmt, conn (evt. plus de specifikke parametre for hvordan du vil åbne recordsættet)

...
' SKAL ÅPNE DATABASEN
connStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.MapPath("") & "database.mdb;"
Set conn = CreateObject("adodb.connection")
conn.Open connStr
' Åpne Recordset
Set oRS=Server.CreateObject("ADODB.Recordset")
sqlstmt = "select * from tblOrdre"
oRS.open sqlstmt, conn

- jeg finder lige parametrene, et øjeblik...

Hva er egentlig dette da`? adOpenKeyset, adLockOptimistic, adCmdTable er ikke disse nødvendige lenger da?

de parametre du har angivet ved åbningen af recordsættet svarer til disse tal:
oRS.open sqlstmt, conn, 1, 3, 2

så vidt jeg ved skal du selv angive tal-værdierne, med mindre du har gemt dem som konstanter med de navne...

du kan selv se navnene og talværdierne her:
http://www.devguru.com/Technologies/ado/quickref/recordset_open.html

BLIR DET SÅNN?

<%
    KID = Session("KID")
    error = ""
   
    ' Sjekk om handlekurven er tom...
    If Session("varer") < 1 Then
        error = error & "Du har ikke bestillt noen varer! "
    End If
   
    txtDato = Date()
    txtDato = Day( txtDato ) & "." & Month( txtDato ) & "." & Year( txtDato )

    ' SKAL ÅPNE TABELLEN ORDRE.
    connStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.MapPath("") & "database.mdb;"
    Set conn = CreateObject("adodb.connection")
    conn.Open connStr
    ' Åpne Recordset
    Set oRS=Server.CreateObject("ADODB.Recordset")
    sqlstmt = "select * from tblOrdre"
    oRS.open sqlstmt, conn, 1, 3, 2

   
    ' Legg til ny ordre
    oRS.AddNew
    oRS("OKID") = KID
    oRS("ODato") = txtDato
    oRS("OStatus") = "P"
    oRS.Update

    ' Hente ut ordre id
    OID = oRS("OID")
   
    ' Lukke ordren
    oRS.Close
   
    ' SKAL ÅPNE TABELLEN ORDRELINJER.
    connStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.MapPath("") & "database.mdb;"
    Set conn = CreateObject("adodb.connection")
    conn.Open connStr
    ' Åpne Recordset
    Set oRS=Server.CreateObject("ADODB.Recordset")
    sqlstmt = "select * from tblOrdrelinjer"
    oRS.open sqlstmt, conn, 1, 3, 2

    For i=1 To Session("varer")
        oRS.AddNew
        oRS("OLOID") = OID
        oRS("OLPID") = Session("PID" & i)
        oRS("OLKvant") = Session("Antall" & i)
        oRS.Update
    Next
   
    oRS.Close
   
    If Err.number <> 0 Then
        %>En feil oppstod... Beklager, ordren din ble ikke registrert.<%
        Response.End
    End If

    Session.Abandon
   
    Response.Redirect("takk.asp")   
%>

yep, det skulle kunne virke... (hvis databasen ligger i samme mappe som asp-filen)

Prøver det.

JEG FÅR FEIL I LINJE 20.

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause.
/Freeteam/lagreordre.asp, line 20


<%
    KID = Session("KID")
    error = ""
   
    ' Sjekk om handlekurven er tom...
    If Session("varer") < 1 Then
        error = error & "Du har ikke bestillt noen varer! "
    End If
   
    txtDato = Date()
    txtDato = Day( txtDato ) & "." & Month( txtDato ) & "." & Year( txtDato )

    ' SKAL ÅPNE TABELLEN ORDRE.
    connStr = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database/freeteam.mdb")
    Set oConn = CreateObject("adodb.connection")
    oConn.Open connStr
    ' Åpne Recordset
    Set oRS=Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT * FROM tblOrdre"
    oRS.open SQL, oConn, 1, 3, 2

   
    ' Legg til ny ordre
    oRS.AddNew
    oRS("OKID") = KID
    oRS("ODato") = txtDato
    oRS("OStatus") = "P"
    oRS.Update

    ' Hente ut ordre id
    OID = oRS("OID")
   
    ' Lukke ordren
    oRS.Close
   
    ' SKAL ÅPNE TABELLEN ORDRELINJER.
    connStr = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database/freeteam.mdb")
    Set oConn = CreateObject("adodb.connection")
    oConn.Open connStr
    ' Åpne Recordset
    Set oRS=Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT * FROM tblOrdrelinjer"
    oRS.open SQL, oConn, 1, 3, 2

    For i=1 To Session("varer")
        oRS.AddNew
        oRS("OLOID") = OID
        oRS("OLPID") = Session("PID" & i)
        oRS("OLKvant") = Session("Antall" & i)
        oRS.Update
    Next
   
    oRS.Close
   
    If Err.number <> 0 Then
        %>En feil oppstod... Beklager, ordren din ble ikke registrert.<%
        Response.End
    End If

    Session.Abandon
   
    Response.Redirect("takk.asp")   
%>

den fejl du får, betyder at syntaxen i sql-sætningen er forkert.
Har din database en tabel som hedder tblOrdre?

Det er her feilen er:

oRS.open SQL, oConn, 1, 3, 2

ja, men det er SQL-variablen, som indeholder sql-sætningen, som den brokker sig over, så det er et eller andet med databasen.