Hej læser
Jeg har lidt problemer med et database udtræk.....
sætningen efter Do virker og det kan jeg se...men så vil jeg gerne have det
lidt flot sat op og prøver så det der står efter <center> tabel
overskrifterne bliver skrevet, men der kommer ikke noget udtræk....
<td height="1"> <div align="left"><% = rs.Fields ("navn") %></div></td>
har prøvet med <td height="1"> <div align="left"><% = rs("navn")
%></div></td>
Hvad skal der stå i den sætning.....?
<td height="1"> <div align="left"><% = rs.Fields ("navn") %></div></td>
henrik
KODEN
<%
' 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 ("brugere.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from mailliste"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
do
Response.Write "<p>Velkommen " & rs("navn") & " " & rs("efternavn") & ", " &
rs("adresse") & " " & rs("gadenr") & ", " & rs("postnr") & " " &
rs("postby") & ", " & rs("fodselsdag") & ", " & rs("email") & ".</p>"
'Response.Write "<p>Velkommen '" & rs("navn") & "' din e-mail er '" &
rs("email") & "'</p>"
rs.MoveNext
Loop While Not rs.EOF
'Conn.Close
'Set Conn = Nothing
%>
<center>
<TABLE BORDER=2 height="25">
<TR>
<TH height="19">Navn </TH>
<TH height="19">Efternavn </TH>
<TH height="19">Adresse </TH>
<TH height="19">GadeNr </TH>
<TH height="19">PostNr </TH>
<TH height="19">PostBy </TH>
<TH height="19">Fødselsdato </TH>
<TH height="19">E-mail </TH>
</TR>
</center>
<%
While NOT rs.EOF
If farve = "#CCCCCC" Then
farve = "#EEEEEE"
Else
farve = "#CCCCCC"
End If
%>
<tr bgcolor = "<% = farve%>">
<td height="1"> <div align="left"><% = rs.Fields ("navn") %></div></td>
<td height="1"> <div align="left"><% = rs.Fields
("efternavn")%></div></td>
<td height="1"> <div align="left"><% = rs.Fields ("adresse")%></div></td>
<td height="1"> <div align="left"><% = rs.Fields ("gadenr")%></div></td>
<td height="1"> <div align="left"><% = rs.Fields ("postnr")%></div></td>
<td height="1"> <div align="left"><% = rs.Fields ("postby")%></div></td>
<td height="1"> <div align="left"><% = rs.Fields
("fodselsdato")%></div></td>
<td height="1"> <div align="left"><% = rs.Fields ("email")%></div></td>
</tr>
<%
rs.MoveNext
Wend
%>
</body>
</html>