Notifikationer

Markér alle som læst Log ud

mortency Nybegynder

24. januar 2002 - 11:16 Der er 10 kommentarer og
2 løsninger

ERROR FEILMELDING.

Får feil i denne linjen:

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

1=adOpenKeyset
2=adLockOptimistic
3=adCmdTable

-----SCRIPTET-----------------
<%
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")
%>

Synes godt om

coltau Juniormester

24. januar 2002 - 11:27 #1

Prøv med disse parametre

oRS.CursorLocation = 2 ' adUseServer
oRS.CursorType = 0 ' adOpenForwardOnly
oRS.LockType = 3 ' adLockOptimistic
oRS.Open SQL, oConn, , , &H0001

og så er adLockOptimistic = 3

Disse konstanter findes i adovbs.inc, som følger med PWS.

Synes godt om

mortency Nybegynder

24. januar 2002 - 11:35 #2

Hvordan blir det inn i scriptet?

Synes godt om

coltau Juniormester

24. januar 2002 - 11:47 #3

Det skal lægges ind her.

' Åpne Recordset
Set oRS=Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblOrdre"
oRS.open SQL, oConn, 1, 3, 2

' Åpne Recordset
Set oRS=Server.CreateObject("ADODB.Recordset")
oRS.CursorLocation = 2 ' adUseServer
oRS.CursorType = 0 ' adOpenForwardOnly
oRS.LockType = 3 ' adLockOptimistic
SQL = "SELECT * FROM tblOrdre"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText

Synes godt om

mortency Nybegynder

24. januar 2002 - 11:53 #4

Dette virker jo ikke! Hva gjør jeg feil? HJELP!!
<%
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")
oRS.CursorLocation = 2 ' adUseServer
oRS.CursorType = 0 ' adOpenForwardOnly
oRS.LockType = 3 ' adLockOptimistic
SQL = "SELECT * FROM tblOrdre"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText

' 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")
oRS.CursorLocation = 2 ' adUseServer
oRS.CursorType = 0 ' adOpenForwardOnly
oRS.LockType = 3 ' adLockOptimistic
SQL = "SELECT * FROM tblOrdrelinjer"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText

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")
%>

Synes godt om

mortency Nybegynder

24. januar 2002 - 12:02 #5

Beklager så en feil: Men den legger ikke inn i tabellen ordrelinjer? Hva kan det være?

Synes godt om

coltau Juniormester

24. januar 2002 - 12:02 #6

Får du fejl i samme linie: ?

oRS.Open SQL, oConn, , , &H0001 ' adCmdText

Synes godt om

mortency Nybegynder

24. januar 2002 - 12:07 #7

Får ingen feilmelding men den legger ikke inn data i tblOrdreLinjer.

Synes godt om

coltau Juniormester

24. januar 2002 - 12:39 #8

Disse linier skal slette.

' 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")
oRS.CursorLocation = 2 ' adUseServer
oRS.CursorType = 0 ' adOpenForwardOnly
oRS.LockType = 3 ' adLockOptimistic
SQL = "SELECT * FROM tblOrdrelinjer"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText

Du skal kun anvende disse linier:

' SKAL ÅPNE TABELLEN ORDRELINJER.
SQL = "SELECT * FROM tblOrdrelinjer"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText

Synes godt om

mortency Nybegynder

24. januar 2002 - 13:14 #9

DEN VIL FORTSATT IKKE SETTE INN ORDRELINJER! HJLP!

<%
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")
oRS.CursorLocation = 2 ' adUseServer
oRS.CursorType = 0 ' adOpenForwardOnly
oRS.LockType = 3 ' adLockOptimistic
SQL = "SELECT * FROM tblOrdre"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText

' Hente ut ordre id
OID = oRS("OID")

'Response.Write(OID)

'Response.End

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

' Lukke ordren
oRS.Close

' SKAL ÅPNE TABELLEN ORDRELINJER.
SQL2 = "SELECT * FROM tblOrdrelinjer"
oRS.Open SQL2, oConn, , , &H0001 ' adCmdText

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")
%>

Synes godt om

coltau Juniormester

24. januar 2002 - 13:59 #10

Jeg mener at koden skal se sådan ud.

<%
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")
oRS.CursorLocation = 2 ' adUseServer
oRS.CursorType = 0 ' adOpenForwardOnly
oRS.LockType = 3 ' adLockOptimistic
SQL = "SELECT * FROM tblOrdre"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText

' 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.
SQL = "SELECT * FROM tblOrdrelinjer"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText

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")
%>

Synes godt om

mortency Nybegynder

31. maj 2002 - 01:50 #11

//COLTAU.

Den henter ikke ut OID!

Synes godt om

mortency Nybegynder

04. juni 2002 - 17:24 #12

Opprette nytt spm. //COLTAU du får 100 point.

http://www.eksperten.dk/spm/220241

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS