---
title: "Kontakten"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38093-kontakten"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2000-07-09T16:26:00.000Z"
updated: "2000-07-09T16:26:00.000Z"
replies: 0
views: 874
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38093-kontakten"
---

# Kontakten

## #1 — PatrikB, 2000-07-09T16:26Z

Vet inte om detta hör hemma här egentligen.
Men detta gör att man snabbt kan öppna och stänga en databaskontakt.

```
Börja alltid överst med detta i varje asp-fil:

<% @language="vbscript" %>
<% Option Explicit %>
<!--#include virtual="/mina_incfiler/adovbs.inc"-->
<!--#include virtual="/mina_incfiler/min_kontakt.asp"-->
<%
	Response.Buffer = True

	' Variable Declaration
	'---------------------
	Dim myConn ' as adodb.connection
%>
```

I filen - min_kontakt.asp - ska detta ligga:

```
<%
' Create db-connection
'---------------------
Function OpenDB()

	Set myConn = Server.CreateObject("ADODB.Connection")
	myConn.Provider = "Microsoft.Jet.OLEDB.4.0"
	myConn.ConnectionString = "Data Source=" & Server.MapPath("/path_to_db/my_db.mdb")
	myConn.Open

End Function

' Destroy db-connection
'----------------------
Function CloseDB()

	Set myConn = nothing

End Function
%>
```

som ni ser är det en dsn-lös koppling som funkar på de flesta NT-servrarna tom på [www.webhostme.com](http://www.webhostme.com) 

När du sedan vill öppna en databaskontakt skriver du bara:

```
OpenDB()
```

och när du sedan vill stänga den skriver du:

```
CloseDB()
```

Var allt för denna gång,

//PatrikB

Permalänk: https://www.webforum.nu/p/38093

---

Tråden på webben: https://www.webforum.nu/amne/asp/38093-kontakten