Hvordan henter jeg tekst fra db

fx sådanne...

<% @language=VBscript %>
<% Response.Expires = 0 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
    <TITLE>txt</TITLE>
</HEAD>
<BODY>
<%
set objFS = Server.CreateObject("Scripting.FileSystemObject")
if objFS.FileExists("c:\dokument.txt") = True then
    Set objTextS = objFS.OpenTextFile("c:\dokument.txt")
        Response.Write "indeholdet af filen: <BR><BR>" & VbCrLF
Do While objTextS.AtEndOfStream <> True
    strLine = objTextS.ReadLine
  strLine = Server.HTMLEncode(strLine)
    Response.Write strLine & "<BR>" & VBCrLf
Loop

else
    Response.Write "Eksisterer ikke"
End if
objTextS.Close
Set objTextS = Nothing
Set ObjFS = Nothing
%>


</BODY>
</HTML>

Jeg har min connection her:

<%
set cn = server.createobject("adodb.connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Inetpub\wwwroot\Ejendom\db\Ejendom.mdb;"
SagNr = request.querystring("id")
sql = "SELECT * FROM Hovedtabel WHERE sagsnummer = " & SagNr
Set objRec = cn.Execute(sql)
while not objRec.eof
%>

Så jeg skal have hentet min txt fx sådan: <%=objRec("Tekstbeskrivelse")%>

men hvordan???

Jamen hvad er det der ligger i databasen? Er det stien eller hvad???

ja der ligger en sti som fx. villatekst.txt

fx sådanne...

<% @language=VBscript %>
<% Response.Expires = 0 %>
<%
set cn = server.createobject("adodb.connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Inetpub\wwwroot\Ejendom\db\Ejendom.mdb;"
SagNr = request.querystring("id")
sql = "SELECT * FROM Hovedtabel WHERE sagsnummer = " & SagNr
Set objRec = cn.Execute(sql)
while not objRec.eof
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
    <TITLE>txt</TITLE>
</HEAD>
<BODY>
<%
set objFS = Server.CreateObject("Scripting.FileSystemObject")
if objFS.FileExists("=objRec("tekstbeskrivelse")") = True then
    Set objTextS = objFS.OpenTextFile("=objRec("tekstbeskrivelse")")
        Response.Write "indeholdet af filen: <BR><BR>" & VbCrLF
Do While objTextS.AtEndOfStream <> True
    strLine = objTextS.ReadLine
  strLine = Server.HTMLEncode(strLine)
    Response.Write strLine & "<BR>" & VBCrLf
Loop

else
    Response.Write "Eksisterer ikke"
End if
objTextS.Close
Set objTextS = Nothing
Set ObjFS = Nothing
%>

Der er en fejl:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EE)
Tegnet ')' var ventet
/Ejendom/vis_bolig.asp, line 131, column 30
if objFS.FileExists("=objRec("tekstbeskrivelse")") = True then


Hvad er det ??

du mangler at sætte ' ind rundt om dit rs - eller JEG glemte det

forstår det ik?

har ik fået det til at passe