Jeg har en wall der ser sådan her ud hvad skal jeg gøre for at
hver besked bliver sat ind i en tabel i stedet for som det gør nu
at de står i røven af i hinanden ren udsagt :D du kan se fejlen
på
www.clan.krusenet.dk/test/default.htm
<%
dim conn
function OpenConn( DBName )
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"),
instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" &
ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"
end function
OpenConn("guestbook.mdb")
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<title>New Page 1</title>
</head>
<body topmargin="50" leftmargin="190" background="main1.jpg">
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="200" id="AutoNumber1" bordercolordark="#D2712E"
bordercolorlight="#D2712E" bgcolor="#000000">
<tr>
<td>
<font color="D2712E">
<%
SQL = "select * from guestbook order by created desc"
set guestbook = conn.execute( SQL )
if guestbook.eof then
Response.Write "The Wall er tom !"
Else
Response.Write "<br><br>"
do while not guestbook.eof
Response.Write "<b>Navn :</b> " &
guestbook("guest_name") & "<br>"
Response.Write "<b>E-mail :</b> " &
guestbook("email") & "<br>"
Response.Write "<b>Kommentar
:</b> " & guestbook("comments") & "<br>"
guestbook.movenext
loop
Response.Write "</table>"
End If
Response.Write ""
'
%>
</FONT>
</td>
</tr>
</table>
</body>
</html>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials