Artikelsystem

Du kan lave det i et txt dokument.....

Så henter du det bare med:

<%
Connection = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.open Connection
Sql = \"SELECT * FROM Tabel ORDER BY id\"
Set rs = Conn.execute( Sql )

Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set f = fso.getFile(rs(\"den-tabel-hvor-stien-står-i\"), 1)
tekst = f.readall
response.write tekst
set f = Nothing
set fso = Nothing
Set rs = Nothing
Conn.close
Set Conn = Nothing
%>

Jeg får denne fejl:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01C2)
Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: \'getFile\'
/Hjemmeside/vis_artikel.asp, line 132

pfp.... Sen mig hele dig script + database til webmaster@backslash.dk, så skal jeg fikse det,...

-Anders

PS: Jeg kan have det færdigt inden for en ½ time...

Der er fejl i den tilsendte zipfil.....

-Anders

lav en ny.. Så laver jeg det til dig i morn aften..

-Anders

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Connection = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")


Conn.open Connection
Sql = \"SELECT * FROM artikler where id = \" & request.querystring(\"id\") & \" ORDER BY id\"
Set rs = Conn.execute( Sql )

  strFile = rs(\"artikel\")

Set fsoSystem = Server.CreateObject(\"Scripting.FileSystemObject\")
Set fsoStream = fsoSystem.OpenTextFile(Server.MapPath(strFile), 1, True)

If Not fsoStream.AtEndOfstream Then strContent = fsoStream.ReadAll

response.write \" \"& strContent  & \"\"

fsoStream.Close: Set fsoStream = Nothing
Set fsoSystem = Nothing 
%>


Den laver sagen..... Byt den ud med den du har u vis_artikel.asp nu

-Anders

Øhh... nej.. brug den her...


<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Connection = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")


Conn.open Connection
Sql = \"SELECT * FROM artikler where id = \" & request.querystring(\"id\") & \" ORDER BY id\"
Set rs = Conn.execute( Sql )

  strFile = rs(\"artikel\")

Set fsoSystem = Server.CreateObject(\"Scripting.FileSystemObject\")
Set fsoStream = fsoSystem.OpenTextFile(Server.MapPath(strFile), 1, True)

If Not fsoStream.AtEndOfstream Then strContent = fsoStream.ReadAll

response.write \" \"& Replace(strContent, vbCrLf, \"<br>\")  & \"\"

fsoStream.Close: Set fsoStream = Nothing
Set fsoSystem = Nothing 
%>

Den laver automatisk linjeskift.. det gør den første ikke....

-Anders

-> a-torsten

Tak det virker perfekt

Mvh Peter

Det var så lidt.....

-Anders