Hejsan, Flytta ut <TABLE BORDER="1"> så att det hamnar utanför loopen.Skriva ut databas till en webbsida
Har försökt skriva ut en databas till en webbsida.
Detta fungerar hur bra som helst:
<%
Set ConMitt = Server.CreateObject("ADODB.Connection")
ConMitt.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("nisse/nodlista.mdb")&";"
Set rsMitt = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT * FROM Nodlista"
rsMitt.Open SQLstr, conMitt
Do Until rsMitt.EOF
Response.Write rsMitt("Lgh_nr") & " - " & rsMitt("Microduct") & " - " & rsMitt("Korskopplingsnr") & " - " & rsMitt("Portnr_konverterare") & "<br>"
rsMitt.Movenext
Loop
rsMitt.close
set rsMitt=nothing
conMitt.close
set rsMitt=nothing
%>
---------------------------------------------------------------------------------
Men detta fungerar inte, sidan hittas inte fast det är samma sökväg till databasen som i koden ovan. Är det tabellerna som är felkodade?
Kan någon tala om för mig vad jag har gjort för fel.
Tackar på förhand
/Ove
<html>
<head>
<title>NodLista</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<H1>Nodlista</H1>
<%
Set ConMitt = Server.CreateObject("ADODB.Connection")
ConMitt.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("nisse/nodlista.mdb")&";"
Set rsMitt = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT * FROM Nodlista"
rsMitt.Open SQLstr, conMitt
Do While Not rsMitt.EOF
%>
<TABLE BORDER="1">
<TR>
<TD><%=rsMitt("Lgh_nr")%>
<TD><%=rsMitt("Multiduct")%>
</TR>
<%
rsMitt.Movenext
Loop
rsMitt.close
set rsMitt=nothing
conMitt.close
set rsMitt=nothing
%>
</TABLE>
<HR WIDTH=25%>
Sidan skapades <%=Now%>
</body>
</html>Sv: Skriva ut databas till en webbsida
/Johan