ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/portfolio/index.asp, line 497
Det fungerar inte att trycka på "bokstav" så det blir i bokstavsordning.
<!-- #include file="adovbs.inc" -->
<%
Set com1 = Server.CreateObject("ADODB.Connection")
com1.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/lankar.mdb")&";"
Set rs1 = Server.CreateObject("ADODB.Recordset")
If request.querystring("a")="alf" Then
sql1 = "SELECT * FROM lankar ORDER BY titel ASC"
ElseIf request.querystring("a")="dat" Then
sql1 = "SELECT *, Format$([datum],'yymmdd') AS fDatum, Format$([datum],'hh:mm') AS fTid FROM lankar ORDER BY datum DESC"
Else
sql1 = "SELECT *, Format$([datum],'yymmdd') AS fDatum, Format$([datum],'hh:mm') AS fTid FROM lankar ORDER BY datum DESC"
End If
rs1.open sql1, com1, 3, 3
%>
<div id="linkadder">
sortera efter:<a href="index.asp?a=alf"> bokstav</a> - <a href="index.asp?a=dat">datum</a> <br /> <br />
<%
rs1.movefirst
If rs1.eof Then
response.write "listan är tom"
Else
Do Until rs1.eof
%>
<div class="linkadder-datetime">
<div class="linkadder-datetime-in">
<%=rs1("fDatum") & " - " & rs1("fTid")%>
</div>
</div>
<div class="linkadder-linkmessage">
<div class="linkadder-linkmessage-in">
<b><a href=" <%=rs1("http")%> " target="_blank"> <%=rs1("titel")%></a></b>
<%=rs1("beskr")%><br /><br />
</div>
</div>
<%
rs1.movenext
Loop
End If
rs1.close
com1.close
%>
</div>