<% s = Request.QueryString("s") e = Request.QueryString("e") id = Request.QueryString("id") l = Request.QueryString("l") %> <% Const adOpenKeyset = 1 Const adLockOptimistic = 3 %>
-------------- Min default.asp kode er:
<% tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/madguru_data001.mdb") & ";UID=admin;PWD=;" %> <% aaSQL = "SELECT top 15 * FROM news ORDER BY id DESC" Set aa = server.CreateObject("ADODB.Recordset") aa.Open aaSQL, tempConn,1,3 %> <% do while not aa.EOF %> <table width="300" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="50" valign="top"><img src="pics/nav/gmz_nav_news_box_news.jpg" width="50" height="50"></td> <td width="250" valign="top"><br> <font size="1" face="Geneva, Arial, Helvetica, sans-serif"><strong>[<% =aa("news_titel")%>]</strong><br> [Dato: <%=aa("news_dato")%>] [Af: <a href="mailto:<%=aa("news_email")%>"><%=aa("news_forfatter")%></a>]<br> <br> <%=aa("news_minitekst")%><br> <br> [<a href="nyheder.asp?s=se&id=<%=aa("id")%>">Læs mere</a>] <u>[Kommentarer - <strong>0</strong>]</u></font></td> </tr> <tr> <td valign="top"><img src="pics/nav/gmz_nav_news_box_line_s.jpg" width="50" height="20"></td> <td valign="top"><img src="pics/nav/gmz_nav_news_box_line3.jpg" width="250" height="20"></td> </tr> </table> <% aa.MoveNext %> <% loop %> <% aa.Close %>
------------------ Min fejl besked er:
Error Type: ADODB.Recordset.1 (0x800A0BB9) The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another. /test2/default.asp, line 15
------------------ Linie 15 er uden nav_header indregnet:
aa.Open aaSQL, tempConn,1,3 %>
------------------ Mit spg er: hva satan? hvordan er det nu? hvad er der galt her... hmmm
prøv i stedet for det her: <% tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/madguru_data001.mdb") & ";UID=admin;PWD=;" %> <% aaSQL = "SELECT top 15 * FROM news ORDER BY id DESC" Set aa = server.CreateObject("ADODB.Recordset") aa.Open aaSQL, tempConn,1,3 %>
Men hvis det kunne hjælpe så bruger jeg inspiration fra en anden kode som jeg har brugt før - og den virker... (men på et tidspunkt havde jeg problemer med at noget af den side jeg dengang lavede kun virkede på nogle af mine webhoteller)
------------- Gammel kode til et andet site:
<% 'Her åbnes en connection til databasen tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/pidata.mdb") & ";UID=admin;PWD=pw;" %> <br> <% 'Her åbnes databasen over nyheder usersSQL = "SELECT top 30 * FROM news ORDER BY id DESC;" Set users = server.CreateObject("ADODB.Recordset") users.Open usersSQL, tempConn, 1, 3 %> <% do while not users.EOF %> :: <b><%=users("titel")%></b><font size="1"><br> [ <%=users("dato")%> ] [ <%=users("emne")%> ] [ Skrevet af: <%=users("forfatter")%> ]<br> <br> <%=replace(users("nyhed"), VbNewline,"<BR>")%><br> <br> <div align="center"><img src="billeder/nav/news_end_bg.jpg" width="380" height="2" border="0"></div> <br> </font> <% users.MoveNext %> <% loop %> <% users.Close %>
-------------------- Se - den er præcis magen til... og den har virket for en del måneder (hvis ik 1-2 år) siden...
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.