Nu har jeg lavet følgende... ------------------------------------- <% Set Connect = Server.CreateObject(\"ADODB.Connection\") Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database/syvmand.mdb\") & \";\" rsTrainer = \"SELECT Username, Dato, Overskrift, Nyhedstext FROM trainernyt ORDER BY ID DESC\", Connect, 2, 3 rsNyt = \"SELECT Forfatter, Dato, Overskrift, Nyhedstext FROM nyheder ORDER BY ID DESC\", Connect, 2, 3 rsTopsc = \"SELECT Navn, Maal FROM spillere ORDER BY Maal DESC\", Connect, 2, 3 rsBode = \"SELECT Navn, Boeder, Seneste_bode FROM spillere ORDER BY Boeder DESC\", Connect, 2, 3 rsfjol = \"SELECT * FROM citater ORDER BY id DESC\", Connect, 2, 3 rslink = \"SELECT Linktekst, url FROM links ORDER BY id DESC\", Connect, 2, 3 %> ------------------------------------
Nu får jeg så fejlmeddelsen:
Expected end of statement
/7/Default.asp, line 6
rsTrainer = \"SELECT Username, Dato, Overskrift, Nyhedstext FROM trainernyt ORDER BY ID DESC\", Connect, 2, 3 --------------------------------------------------------------------------------------------^
Set Connect = Server.CreateObject(\"ADODB.Connection\") Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database/syvmand.mdb\") & \";\" Set rsTrainer = Server.CreateObject(\"ADODB.Recordset\") rsTrainer.Open \"SELECT Username, Dato, Overskrift, Nyhedstext FROM trainernyt ORDER BY ID DESC\", Connect, 2, 3 Set rsNyt = Server.CreateObject(\"ADODB.Recordset\") rsNyt.Open \"SELECT Forfatter, Dato, Overskrift, Nyhedstext FROM nyheder ORDER BY ID DESC\", Connect, 2, 3 Set rsTopscr = Server.CreateObject(\"ADODB.Recordset\") rsTopsc.Open \"SELECT Navn, Maal FROM spillere ORDER BY Maal DESC\", Connect, 2, 3 Set rsBode = Server.CreateObject(\"ADODB.Recordset\") rsBode.Open \"SELECT Navn, Boeder, Seneste_bode FROM spillere ORDER BY Boeder DESC\", Connect, 2, 3 Set rsFjol = Server.CreateObject(\"ADODB.Recordset\") rsfjol.Open \"SELECT * FROM citater ORDER BY id DESC\", Connect, 2, 3 Set rsLink = Server.CreateObject(\"ADODB.Recordset\") rslink.Open \"SELECT Linktekst, url FROM links ORDER BY id DESC\", Connect, 2, 3
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.