Avatar billede rar_jacobsen Nybegynder
07. marts 2001 - 14:16 Der er 8 kommentarer og
1 løsning

Internet Explorer vs Internet Explorer

Hvad gør jeg galt her ???
Jeg skal oprette/ligge til i en database.

<% @language=\"VBScript\" %>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0

Session(\"Sending\") = Request.Servervariables(\"HTTP_REFERER\")

    If Session(\"KurveId\") = \"\" Then
        If Request.Cookies(\"KurveId\")(\"Nummer\") = \"\" Then
            Response.Cookies(\"KurveId\")(\"Nummer\") = Idnummer
            Response.Cookies(\"KurveId\").Path = \"/\"
            Response.Cookies(\"KurveId\").Expires = DateAdd(\"d\",7,now)           
            Session(\"KurveId\") = Idnummer
        Else
            Session(\"KurveId\") = Request.Cookies(\"KurveId\")(\"Nummer\")
            Response.Cookies(\"KurveId\")(\"Nummer\") = Request.Cookies(\"KurveId\")(\"Nummer\")
            Response.Cookies(\"KurveId\").Path = \"/\"
            Response.Cookies(\"KurveId\").Expires = DateAdd(\"d\",7,now)           
        End If
    End If

    Dim KurveRS, KoebRS, strConnection
    strConnection = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../access/lm-indkoebskurv.mdb\")
    Set KurveRS = Server.CreateObject(\"ADODB.RecordSet\")
    KurveRS.Open \"SELECT * FROM Kurve WHERE SessionId = \" & Session(\"KurveId\") & \"\", strConnection, 1,3

    If KurveRS.EOF Then
        KurveRS.AddNew
        KurveRS(\"SessionId\") = Session(\"KurveId\")
        KurveRS(\"Dato\") = now
        KurveRS.Update
    End If
        Set KoebRS = Server.CreateObject(\"ADODB.RecordSet\")
        KoebRS.Open \"SELECT * FROM Indhold WHERE Varenummer = \'\" & Request.Querystring(\"varenr\") & \"\' AND KurveId = \" & Session(\"KurveId\") & \"\", strConnection, 1,3   
       
            If KoebRS.EOF Then
                KoebRS.AddNew
                KoebRS(\"Varenummer\") = Request.Querystring(\"varenr\")
                KoebRS(\"Antal\") = \"1\"
                KoebRS(\"KurveId\") = Session(\"KurveId\")
                KoebRS(\"DataTabel\") = Request.Querystring(\"recordset\")
                KoebRS.Update
            Else
                KoebRS(\"Antal\") = KoebRS(\"Antal\") + \"1\"
                KoebRS.Update
            End If           
   
    KoebRS.Close
    Set KoebRS = Nothing
    KurveRS.Close
    Set KurveRS = Nothing
    Set strConnection = Nothing

    Response.Redirect(\"\" & Session(\"Sending\") &\"\")
%>

Den virker i IE 5.5, men ikke i 5.0....

Jeg har siddet og tæsket min hjerne, eller det der er tilbage af den i de sidste 14 dage.

Regards
Avatar billede tpiil Nybegynder
07. marts 2001 - 14:19 #1

            Else
                KoebRS(\"Antal\") = KoebRS(\"Antal\") + 1
                KoebRS.Update
            End If
Avatar billede tpiil Nybegynder
07. marts 2001 - 14:21 #2
og hvis feltet antal er et tal format så skal den se sådan ud:
            If KoebRS.EOF Then
                KoebRS.AddNew
                KoebRS(\"Varenummer\") = Request.Querystring(\"varenr\")
                KoebRS(\"Antal\") = 1
                KoebRS(\"KurveId\") = Session(\"KurveId\")
                KoebRS(\"DataTabel\") = Request.Querystring(\"recordset\")
                KoebRS.Update
            Else
                KoebRS(\"Antal\") = KoebRS(\"Antal\") + 1
                KoebRS.Update
            End If
Avatar billede tpiil Nybegynder
07. marts 2001 - 14:23 #3
nå ja det kan så ikke være det, hvad får du af fejl??
Avatar billede rar_jacobsen Nybegynder
07. marts 2001 - 14:26 #4
Jeg skal lige på ftp\'en så prøver jeg
Avatar billede rar_jacobsen Nybegynder
07. marts 2001 - 14:27 #5
Det var som... nope det virker desværre heller ikke.
Dvs. det virker ikke på IE 5.0
Avatar billede rar_jacobsen Nybegynder
07. marts 2001 - 14:30 #6
Jeg får ikke nogen bestemt fejl fra IE5.0, den siger bare der er noget galt med siden den forsøger at kalde.
Avatar billede rar_jacobsen Nybegynder
07. marts 2001 - 14:39 #7
Jeg har hentet databasen ned igen efter jeg har forsøgt at kalde funktionen fra en anden comp. med et andet KurveId, men det opretter ikke engang KurveId.

Dim KurveRS, KoebRS, strConnection
    strConnection = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../access/lm-indkoebskurv.mdb\")
    Set KurveRS = Server.CreateObject(\"ADODB.RecordSet\")
    KurveRS.Open \"SELECT * FROM Kurve WHERE SessionId = \" & Session(\"KurveId\") & \"\", strConnection, 1,3

    If KurveRS.EOF Then
        KurveRS.AddNew
        KurveRS(\"SessionId\") = Session(\"KurveId\")
        KurveRS(\"Dato\") = now
        KurveRS.Update
    End If

Så det er allerede der den går gal, eller er det bare mig.
Avatar billede rar_jacobsen Nybegynder
07. marts 2001 - 14:41 #8
Det skal lige siges at KurveId er et rent tal
Avatar billede rar_jacobsen Nybegynder
22. marts 2001 - 12:04 #9
Lukket spørgsmål
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester