Hej!
Jeg sidder og roder med udtræk fra en Acess database, det giver nogle mærkelige resultater
Den skriver alle data ud x antal gange
I dette tilfælde er der 3 poster i databasen, men den skriver dem ud 3 gange så
Den kan samtidig ses på
http://83.72.128.181/vandrehjem/administration/admin.asp
koden ser således ud:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("hp.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
Set rss = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select Count(*) AS Sum From Brugerinfo"
Set rss = Conn.Execute(strSQL)
Response.Write rss("Sum")
strSQL ="SELECT Brugerinfo.Fornavn, Brugerinfo.Efternavn, Brugerinfo.Adresse, Brugerinfo.City, Brugerinfo.Postnummer, Brugerinfo.Telefonnummer, Brugerinfo.Mobilnummer, Brugerinfo.Kommentarer, Reservation.Ankomst, Reservation.Afrejse, Reservation.AntalPersoner, Reservation.AntalRooms FROM Brugerinfo INNER JOIN Reservation ON Brugerinfo.Telefonnummer = Reservation.BrugerID"
Set rss = Conn.Execute(strSQL)
%>
<table width="986" border="1">
<tr>
<td width="98">Telefon nr.</td>
<td colspan="2">Brugeroplysninger</td>
<td width="373">Reservationstid</td>
</tr>
<%
if rss.EOF then
Response.Write ""
Else
Do
%>
<tr>
<td valign="top"><% Response.Write rss("Telefonnummer") %></td>
<td width="166" valign="top"><% Response.Write rss("Fornavn") & " " & rss("Efternavn") & "<br>" & rss("Adresse") & "<br>" & rss("Postnummer") & " " & rss("City") %></td>
<td width="250" valign="top"><% Response.Write "Mobilnummer: " & rss("Mobilnummer") & "<br>" & "Kommentarer: " & rss("Kommentarer") %></td>
<td valign="top"><% Response.Write "Ankomst " & rss("Ankomst") & " -- " & "Afrejse " & rss("Afrejse") & "<br>" & "Antal personer: " & rss("AntalPersoner") & "<br>" & " Antal Værelser: " & rss("AntalRooms") %></td>
<%
rss.MoveNext
Loop While Not rss.EOF%> </tr><%
Conn.Close
Set Conn = Nothing
End if
%>
</table>