---

Hej,

I stedet for at åbne og lukke den samme database flere gange i mit dokument,
har jeg i starten:
set conn = server.createobject("ADODB.connection")
conn.Open "DBQ=" & Server.MapPath("administration\produkter.mdb") &
";DefaultDir=" & Server.MapPath("administration") & ";Driver={Microsoft
Access Driver (*.mdb)}"

og så de forsk. steder, hvor jeg bruger den, eks.:
strSQL = "Select * From produkter Where varenummer = " & arrKurv(t) & ""
Set rs = Conn.Execute(strSQL)
(det har jeg en række forsk. steder i dokumentet)

men det resulterer i en fejl i den linie, hvor jeg lukker den:
Conn.Close
Set Conn = Nothing

Fejlen:
Expected 'End'

--
Venlig hilsen / Best regards,

Rasmus Nielsen.

---

Rasmus Nielsen skrev:

> men det resulterer i en fejl i den linie, hvor jeg lukker den:
> Conn.Close
> Set Conn = Nothing
>
> Fejlen:
> Expected 'End'

Fejlen har næppe noget at gøre med den linje - se efter om du
mangler at afslutte en "If Then..." eller lignende højere oppe i
koden.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> Fejlen har næppe noget at gøre med den linje - se efter om du
> mangler at afslutte en "If Then..." eller lignende højere oppe i
> koden.

Ahh, tak for det.

--
Venlig hilsen / Best regards,

Rasmus Nielsen.