Loop
RS.movenext
Byt ordning på ovanstående rader
Set RS = Server.CreateObject("ADODB.Recordset")
behövs inte. Executemetoden skapar ett nytt recordset
Frågan#1
Hellojsan!!
jag hålelr på med ett litet halvtaningt nyhetsscript.. men d vill sig inte.. jag får ingen felmedelande.. det enda felmedelandet jag får är att datorn halvt hänger sig.. tänker som ett djur när jag kör denna kod!
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/nyheter.mdb")&";"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL="SELECT TOP 3 * FROM nyheter ORDER BY datum DESC"
Set RS = conn.execute(SQL)
Do until RS.eof
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="5" bgcolor="#00349A"> </td>
<td height="13" bgcolor="#00349A"><b><%=RS("rubrik")%></b> - <i><%=RS("datum")%></i></td>
</tr>
<tr>
<td width="5"> </td>
<td> </td>
</tr>
</table><BR>
<%
Loop
RS.movenext
RS.close
conn = nothing
%>
inget kommer upp på skärmen =/ inga felmedelanden eller nått