Fra Session til database

du kalder dem bare med samme variabelnanv, som du har oprettet dem med..


sql = "insert into bruger (navn,adresse,tlfnr) values ('" & session("kunde_navn") & "','" & session("kunde_adresse") & "','" & session("kunde_tlfnr") & "')"

Jeg har prøvet med følgende, men siden viser en HTTP 500 Serverfejl????

<%
sub openConn()
    'use appropriate connection string
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db/database.mdb")

    Set dbc = Server.CreateObject("ADODB.Connection")
    dbc.open strConn
end sub

    sqlAdd = "INSERT INTO ordre(Kundenummer) VALUES ('" & session("Kundenummer") & "')
       
    call openConn()
    dbc.execute sqlAdd, intAffected
   
    dbc.close
    set dbc = nothing
%>

sqlAdd = "INSERT INTO ordre(Kundenummer) VALUES (" & session("Kundenummer") & ")

Hvis kundenummer er integer eller lignende

sqlAdd = "INSERT INTO ordre(Kundenummer) VALUES (" & session("Kundenummer") & ")"
Sådan sorry

Jeg kan ikke få det til at virke.

Du kan se shoppen på følgende adresse (vælg internet i kategorien)

http://www.rasmusaagaard.dk/shop/

og asp-filerne ligger under http://www.rasmusaagaard.dk/eksperten/ med samme navn, men i txt filer (eks. http://www.rasmusaagaard.dk/eksperten/checkout.txt )

Kan du se hvad fejlen er?

Har du en tabel der hedder 'Fsp_bogen'

xinux>>Er väk i en halv time.

Ja, eller dvs. det er en forespørgsel.

hvis du ser en HTTP 500 Serverfejl, så slå denne fra i IE (hvis du bruger IE, vel at mærke)

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "ved meddelelse om uskadelige http-fejl"

Så får du de rigtige fejlmeddelser.

alle sider undtagen process.asp virker efter hensigten..

<%
sub openConn()
    'use appropriate connection string
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db/libris.mdb")

    Set dbc = Server.CreateObject("ADODB.Connection")
    dbc.open strConn
end sub

    sqlAdd = "INSERT INTO ordre(Kundenummer) VALUES (" & session("Kundenummer") & ")"
           
    call openConn()
    dbc.execute sqlAdd, intAffected
   
    dbc.close
    set dbc = nothing
%>

Vi får en fejl i linie 13 - Object required: 'dbc'

Der skal lige mellemrum mellem ordre og (kundnummer)
sqlAdd = "INSERT INTO ordre (Kundenummer) VALUES (" & session("Kundenummer") & ")"

Pröv også at skrive dine sessions ud samt sql-stringen med response.write, hvis det stadig ikke virker

Vi får stadig samme fejl.. i Linie 13..

Session virker fint med Response.Write...

hvad siger din SQL-streng hvis du skriver den ud???

sqlAdd = "INSERT INTO ordre (Kundenummer) VALUES (" & session("Kundenummer") & ")"
Response.Write sqlAdd

Vi har fået til at virke med den ene session nu, men er det ikke iorden hvis vi venter med at acceptere til, det hele virker?

Foreløbig tak for hjælpen.

Pröv at initiere objectet först og se om det hjälper. Det er jo det den klager over.

sub openConn()
    'use appropriate connection string
    Set dbc = Server.CreateObject("ADODB.Connection")
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db/libris.mdb")
    dbc.open strConn
end sub

Absolut...

Vi har kommenterert den del af koden ud der virker, men vi får nu fejl i følgende kode (process.asp):

<!-- #include file="database.asp" -->
<!-- #include file="functions.asp" -->
<%


    'sqlAdd = "INSERT INTO ordre (Kundenummer) VALUES (" & session("Kundenummer") & ")"
           
    'call openConn()
    'dbc.execute sqlAdd, intAffected
   
Dim arrCart, scartItem
    arrCart = Session("MyCart")
    scartItem = Session("cartItem")

        Dim oid, sqlo
        sqlo = "SELECT max(ordrenummer) FROM ordre"
        Set rso = dbc.Execute(sqlo)   
        oid = Cint(rso(0))
        rso.Close
       
        If oid < 1 Then
            call closeConn()
            Response.Redirect "error.asp?msg=" & Server.URLEncode ("Error: No order id.")
        Else
            'insert order items into oitems table
            For i = 1 To scartItem
                sqlOItem = "INSERT INTO ordrelinie (ordrenummer,bogId,Antal) VALUES ("
                sqlOItem = sqlOItem & oid
                sqlOItem = sqlOItem & "," & arrCart(cProductid,i)
                sqlOItem = sqlOItem & "," & arrCart(cQuantity,i)
                sqlOItem = sqlOItem & ")"
                dbc.execute sqlOItem
            Next
   
    dbc.close
    set dbc = nothing
%>

Fejl:
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/shop/functions.asp, line 17

Du skal have en end if efter next

Ja, ok. Det virker nu mange tak for hjælpen, så hvis du lige gider svare.

Svar.

Tak for points.