Hej, och tack för hjälpen!
Men jag har inte fått det att funka ändå... är det för att jag har en loop? Vet inte ens ifall själva kodandet är rätt, har inte lekt tillräckligt med "Dim" grejjset än :)
Så här ser ivarje fall koden ut, du kanske kan hjälpa mig?
<%
Dim TextAttVisa
set conn=server.createobject("adodb.connection")
path="DBQ=" & server.mappath("admin/news.mdb")
conn.open "driver={microsoft access driver (*.mdb)}; " & path,"name","name"
sql = "select * from News order by ID DESC"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
TextAttVisa = Left(rsObj("Text"), 70)
i = "1"
Do until rs.eof or i = "5"
%> <br>
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font face="Georgia, Times New Roman, Times, serif" color="#FFFFFF"><%=rs("topic")%></font></b><font face="Georgia, Times New Roman, Times, serif" color="#FFFFFF"><br>
<%= TextAttVisa %></font></font><A HREF="#" onClick="MyWi=window.open('news_win.asp?ID=<%=rs("ID")%>','Nyheter','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizeable=no,width=400,height= 450')"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">...</font>
<img src="images/arrow_black.gif" width="9" height="9" border="0"><br>
</a>
<br>
<% i = i +1
rs.movenext
loop
rs.close
conn.close %>
Fel meddelandet jag får är:
Microsoft VBScript runtime error '800a000d'