---

Hej alle

Hvordan kan man kalde det samme stykke kode fra flere forskellige
asp sider

eksempelvis en database forbindelse

noget ala det her

public function

<%
Set Con = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.RecordSet")
strConnect = "DRIVER={MySQL ODBC 3.51
Driver};SERVER=mithotel.dk;DATABASE=minDB;UID=xxx;PWD=xxx"

Con.Open strConnect

%>

end function

således at, man spare noget kodeplads på sine sider og/eller
hvis man omdøbte sin database,username etc... så kunne man nøjes
med at rette koden et sted og ikke alle sine sider.
Jeg kunne forstille mig at det var noget der kunne laves i et
vbscript.?

mvh Jens





--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jens E wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej alle
>
> Hvordan kan man kalde det samme stykke kode fra flere forskellige
> asp sider
>
> eksempelvis en database forbindelse

Ved at lave en fil kaldet fx. FORBINDELSE.ASP
<%
Dim vPath, pPath, ConString
vPath = "database\sko.mdb"
pPath = Server.MapPath( vPath )
ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath
& ";" & "JET OLEDB:Database "
%>

I filer der skal "nå" databasen skrives:

<!--#include file="FORBINDELSE.ASP"-->

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString

' åbner databasen og "læser" i tabellen katalogherre
set rsCatalog = Conn.Execute("select * from TABELNAVN")
%>


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Hej Falcon

> > Hvordan kan man kalde det samme stykke kode fra flere forskellige
> > asp sider
> >
> > eksempelvis en database forbindelse
>
> Ved at lave en fil kaldet fx. FORBINDELSE.ASP

Når Skal koden placeres på en seperat asp side.
og jeg godt kunne tænke mig at, samle alle mine kald under et
er jeg vel nød til at,deklarere de enkelte kald hver for sig! sådan at
kaldet
kun i det her tilfælde udfører FORBINDELSE.ASP og derefter forlader
siden
og returnerer til det sted hvor fra kaldet kom.

public function FORBINDELSE.ASP ()

> <%
&gt; Dim vPath, pPath, ConString
&gt; vPath = "database\sko.mdb"
&gt; pPath = Server.MapPath( vPath )
&gt; ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" &
pPath
&gt; & ";" & "JET OLEDB:Database "
&gt; %>

end function
>
> I filer der skal "nå" databasen skrives:
>
> <!--#include file="FORBINDELSE.ASP"-->
--------------------------------------------------------------------
1) Og jeg går ud fra at, her kaldes provideren .
<!--#include file="FORBINDELSE.ASP"-->
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''
2)
men kan jeg ikke også føje dette stykke ind således at når kaldet er
udført så er forbindelsen åben !
<%
&gt; set Conn = Server.CreateObject("ADODB.Connection")
&gt; Conn.Open ConString
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''

hvorefter jeg eksikverer SQL strengen
eks.
set rsCatalog = Server.CreateObject("ADODB.RecordSet")
set rsCatalog = Conn.Execute("select * from TABELNAVN" where et eller
andet")

og så slippe recordsettet
og lukke databasen

3) Da jeg ikke ditto er særlig avanceret i asp endnu ! du har måske en
god
link til dette emne.

mvh jens


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials