Access database spm
Hejsa eksperter!Hvorfor kan jeg kun få de 9 første rækker informationer fra min database og ud i et aspdokument!?
Hvad gør jeg forkert, er der en fejl ved min kode:
<html>
<title></title>
<head>
<style>
TD {COLOR: brown; FONT-FAMILY: Verdana; FONT-SIZE: 9pt}
</style>
</head>
<BODY BGCOLOR="#DBDDE8" TEXT="#000000" LINK="#0000FF" VLINK="#660066" ALINK="#FF0000">
<center>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("lteknik.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from læseteknik"
%>
<TR>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;">Nummer</TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;">Dato</TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;">Tid på dagen</TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;">Titel på tekst</TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;">Antal læste sider</TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;">Forståelsen var...</TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;">Ord/min</TD>
</TR>
<TR>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;"><% ' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen id
Response.Write rs("id") & "<BR><BR>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF %></TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;"><% ' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen dato
Response.Write rs("dato") & "<BR><BR>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF %></TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;"><% ' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen tid på dagen
Response.Write rs("tid på dagen") & "<BR><BR>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF %></TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;"><% ' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen titel på tekst
Response.Write rs("titel på tekst") & "<BR><BR>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF %></TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;"><% ' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen antal læste sider
Response.Write rs("antal læste sider") & "<BR><BR>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF %></TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;"><% ' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen forståelsen var
Response.Write rs("forståelsen var") & "<br><BR>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF %></TD>
<TD STYLE="border-left: 1 solid #021E38; border-right: 1 solid #021E38; border-bottom: 1 solid #021E38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021E38;"><% ' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen ord/min
Response.Write rs("ord/min") & "<br><BR>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF %></TD>
</TR>
</TABLE>
</CENTER>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Jeg håber der er en der ved noget!
/jsc
