Session ID

SessionID fiskes ud med funktionen Session.SessionID.

Du laver en tabel i DB, som har felterne

-Dato
-SessionID
-VareID
-Antal

Når en kunde vil lave den endelige bestilling, så se hvad han har stående i tabellen.
Ting som er lave i kurven, men aldrig bestilt kan slettes efter x dage (alt efter DB plads).

Du laver den tabel med følgende felter:

Dato
SessionID
Vare

Når du så sætter en ny vare ind sætter du varenavn og ";" ind. Så kan du bruge Split(rs("varenavn"), ";") til at få lavet en array over alle vare.

Kan den uddybes.
Jeg er ikke helt med

En sessionID er principielt ikke unik. Når en session er aktiv, kan ingen
få den ID, men kører serveren længe nok, eller genstartes kan ID-er
blive genbrugt. Det jeg vil sige er: overvej at lave dit eget ID i en
sessionsvariabel.

Det er rigtige, men...
Inden man får brugt alle sessionID's (et 9 cifret tal), så har brugeren sikkert handlet eller glemt alt...

En anden måde er (som foreslået tidligere) at gemme datoen sammen med SessionID - for tilsammen at gøre disse to felter unikke.

Ja det er fint men hvad er koden for at tildele brugere unikke IDer
Skal jeg bruge en cookie eller hvad

ASPyyyyha

Det sker helt automatisk af ASP systemet.

Hvordan kan jeg så smide dette ID
ned i min database?

Foreksempel hvis jeg skal lægge et produktid sammmen med en sessionid i dben når man går til indkøbsvognen.

Lav en Access-database med følgende felter:

Dato
ID
Vare


Så laver du en if-sætning når en bruger kommer ind på den første side (det skal være det første på siden):

if Request.Cookies("Ditnavncookie")("ID") = "" then
Set Conn = Server.CreateObject("ADODB.connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("Dindatabase.mdb")
Sql = "SELECT count(*) AS antal FROM tabelnavn ORDER BY dato DESC"
Set rs = Conn.execute( Sql )
Response.Cookies("Ditnavncookie").expires = date + 30
Response.Cookies("Ditnavncookie").domain = "ditdomain"
Response.Cookies("Ditnavncookie")("ID") = rs("Antal") + 1
Set rs = Nothing
Conn.close
Set Conn = Nothing

Når så en bruger putter en vare i kurven skriver du:

Set Conn = Server.CreateObject("ADODB.connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("Dindatabase.mdb")
Sql = "SELECT * FROM tabelnavn WHERE id=" & request.Cookies("Ditnavncookie")("ID")
Sql = "UPDATE * FROM tabelnavn SET vare='" & rs("Vare") & ";" & Varenavn & "' WHERE id=" & request.Cookie("Ditnavncookie")("ID")
Conn.execute( Sql )
Set rs = Conn.execute( Sql )
Set rs = Nothing
Conn.close
Set Conn = Nothing


Håber du kan bruge dette. Ellers må du skrive igen.

Det skal lige siges at felterne skal se ud som følger:

Dato = "Dato og klokkeslet" (Standartværde: "=Now()")
ID = Autonummerering
Vare = Notat

Standartværde = Standartværdi

Standartværdi = Standardværdi        :-) just kidding

Mange tak S
Du definerer på et tidspunkt antal
er det et ekstra felt i min tabel?

Det ville måske hjælpe mig hvis du gad skrive sqlén på dansk.
Eks. Select tabelnavn(X) fra feltet (X)
hvor osv osv

Jeg kan ikke få lov til at definerer
standardværdien i access.

Den siger der er for mange afsluttende parametre?

Standardværdi = Standardværdi :)


Det var sone der skrev det med feltet vare. Det skal du ikke have med. Du definerer standartværdien i et felt ved at åbne en table i acces og vælge designvisning. Så finder du feltet og på den nederst fane kan du vælge standartværdien. Der skriver du "=Now()".

NOT!  ;-)

Nåh... det havde jeg godtnok skrevet. Men det er ikke et felt i databasen...


Fant lige en fejl i koden der putter en ny vare i men har ikke lige tid til at rette det nu.