Søg
Avatar billede dj-sejler Praktikant
23. november 2002 - 16:47 Der er 9 kommentarer og
2 løsninger

update side virker ikke, hvad er der galt

Jeg har den her i mit updateside men det virker ikke :(


<%
    Set rs = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../log/master.mdb")
    SQL = "SELECT * FROM link WHERE id = " & Request.Querystring("id")
    Set rs = conn.Execute(SQL)
    SQL = "UPDATE link SET Kat = '" & RemoveHTML(Request.Form("kat")) & "', link = '" & RemoveHTML(Request.Form("link")) & "', besk = '" & RemoveHTML(Request.Form("kat")) & "' WHERE id = " & Request.Form("id")
   
strKat = rs(Kat)
strLink = rs(Link)
strBesk = rs(Besk)

Conn.Close
Set Conn = Nothing
%>

Fejlmelding:
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'

Et objekt er obligatorisk: 'conn'

/link/ret.asp, linje 5
Avatar billede neteffect Nybegynder
23. november 2002 - 16:53 #1
Første linie skal være

Set Conn = Server.CreateObject("ADODB.Connection")
Avatar billede dj-sejler Praktikant
23. november 2002 - 16:57 #2
--> neteffect

Så før jeg denne fejlmelding:

ADODB.Connection fejl '800a0e78'

Handlingen er ikke tilladt, mens objektet er lukket.

/link/ret.asp, linje 5
Avatar billede ducks Nybegynder
23. november 2002 - 17:03 #3
Hvis du kan bruge det til noget, laver jeg database forbindelse sådan her:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM tabel"
rs.Open SQL, Conn, 3, 3
Avatar billede virus Nybegynder
23. november 2002 - 17:08 #4
<%
   
    Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../log/master.mdb")
   
    Set RS = Conn.Execute("SELECT * FROM link WHERE id = " & Request.Querystring("id"))

    strKat = rs(Kat)
    strLink = rs(Link)
    strBesk = rs(Besk)   

    Conn.Execute("UPDATE link SET Kat = '" & RemoveHTML(Request.Form("kat")) & "', link = '" & RemoveHTML(Request.Form("link")) & "', besk = '" & RemoveHTML(Request.Form("kat")) & "' WHERE id = " & Request.Form("id"))

    Conn.Close
    Set Conn = Nothing

%>
Avatar billede virus Nybegynder
23. november 2002 - 17:08 #5
<%
   
    Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../log/master.mdb")
   
    Set RS = Conn.Execute("SELECT * FROM link WHERE id = " & Request.Querystring("id"))

    strKat = rs(Kat)
    strLink = rs(Link)
    strBesk = rs(Besk)   

    Conn.Execute("UPDATE link SET Kat = '" & RemoveHTML(Request.Form("kat")) & "', link = '" & RemoveHTML(Request.Form("link")) & "', besk = '" & RemoveHTML(Request.Form("kat")) & "' WHERE id = " & Request.Form("id"))

    Conn.Close
    Set Conn = Nothing

%>
Avatar billede virus Nybegynder
23. november 2002 - 17:09 #6
Sleepy
Avatar billede virus Nybegynder
23. november 2002 - 17:10 #7
Ehh
Nu kan jeg sådan næsten gætte mig til hvad du vil
Avatar billede virus Nybegynder
23. november 2002 - 17:12 #8
<%
   
    Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../log/master.mdb")
   
    Set RS = Conn.Execute("SELECT * FROM link WHERE id = " & Request.Querystring("id"))

    Conn.Execute("UPDATE link SET kat = '" & RemoveHTML(RS("kat")) & "', link = '" & RemoveHTML(RS("link")) & "', besk = '" & RemoveHTML(RS("kat")) & "' WHERE id = " & Request.Form("id"))

    Conn.Close
    Set Conn = Nothing

%>
Avatar billede virus Nybegynder
23. november 2002 - 17:14 #9
Men forstår ikke hvorfor du laver et select statement først hvis du vil opdatere dataen du hiver ud med den selv samme data,
det kan slf være du vil opdatere fordi du smider formss med som indeholder den rigtige data, så skal du gøre...
Avatar billede virus Nybegynder
23. november 2002 - 17:14 #10
<%
   
    Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../log/master.mdb")
   
    Set RS = Conn.Execute("SELECT * FROM link WHERE id = " & Request.Querystring("id"))

    Conn.Execute("UPDATE link SET kat = '" & RemoveHTML(Request("kat")) & "', link = '" & RemoveHTML(Request("link")) & "', besk = '" & RemoveHTML(Request("kat")) & "' WHERE id = " & Request.Form("id"))

    Conn.Close
    Set Conn = Nothing

%>
Avatar billede dj-sejler Praktikant
12. december 2002 - 18:19 #11
Det har ikke hjulpet :(
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
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
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
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
White papers
Flere white papers »