Lave kaldet i en Connection fil
Hej AlleDet kan godt være det lyder lidt fjollet, men jeg har altså et problem her, jeg ikke kan finde ud af.
Jeg har min connection fil der kalder databasen, og det virker fint.
Så har jeg en almindelig ASP side, der skal bruge nogle af oplysningerne i databasen, og derfor skal kalde denne.
Selve database kaldet vil jeg gerne have skal ske fra connection filen og ikke på hver side.
Men jeg kan altså ikke hitte ud af det.....
Min connection fil ser således ud:
<%
CONST ConnectionString = "Driver={Microsoft Access Driver (*.MDB)}; DBQ=\\serv001.storage.crusade.dk\data\userdata\d\www.dresden.dk\databaser\artikler.mdb;UID=;PWD=;"
Set DBforbindelse = Server.Createobject("ADODB.Connection")
DBforbindelse.Open ConnectionString
%>
og min ASP fil ser således ud:
<html>
<head>
<title>Vis alle</title>
</head>
<h1>Information</h1>
<%
P_kat=Request.QueryString("kat")
P_sprog=Request.QueryString("sprog")
Dim objRec, DBforbindelse
Set DBforbindelse = Server.Createobject("ADODB.Connection")
DBforbindelse.Open "Driver={Microsoft Access Driver (*.MDB)};
DBQ=\\serv001.storage.crusade.dk\data\userdata\d\www.dresden.dk\databaser\artikler.mdb;UID=;PWD=;"
strSQL = "SELECT * FROM artikel WHERE sprog="& P_sprog & " AND " & "kategori=" & P_kat & "ORDER BY id"
Set objRec = DBforbindelse.execute(strSQL)
Do While Not objRec.EOF
Response.Write "<br>" & objRec("overskrift") & "</br>"
Response.Write "<br>"
Response.Write Replace(objRec("indhold"),Vbcrlf,"<BR>")
objRec.MoveNext
Response.Write "<br>"
Loop
objRec.Close
Set objRec = Nothing
%>
</body></html>
Jeg ved jeg skal kalde connection filen vha. af:
<!--#include file="connection.asp"-->
i toppen, men hvad skal jeg så slette/redigere i resten af ASP filen ????
Hjælp..
