ASP gæstebog
Hvem kan hjælpe med at rette nedenstående fil til? Den henter data i en database med navnet database.mdb - men viser kun den sidste post i databasen ???Og hvordan får jeg navn, By og land fra databasen til at stå på samme linie som det Faste Navn, by og land
<title>Gæstebog</title>
<base target="Ukendt">
</head>
<body>
<center><h2><font face="Arial" size="3">Læs i Gæstebogen</font></h2></center>
<br>
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "select* from gaestebogen ORDER BY ID DESC"
Set rs = Conn.Execute(strSQL)
If rs.Eof then
Response.Write "<br>"
Response.Write "<b>Gæstebogen er tom!</b>"
Else
strNavn = rs("navn")
strBy = rs("By")
strLand = rs("Land")
strBesked = RS("besked")
strBesked = Replace(strBesked, "<", "<")
strBesked = Replace(strBesked, ">", ">")
strBesked = Replace(strBesked,":)","<IMG SRC=gfx/glad.jpg>")
strBesked= Replace(strBesked,":-)","<IMG SRC=gfx/glad.jpg>")
strBesked= Replace(strBesked,":(","<IMG SRC=gfx/sur.jpg>")
strBesked= Replace(strBesked,":-(","<IMG SRC=gfx/sur.jpg>")
strBesked= Replace(strBesked,";)","<IMG SRC=gfx/blink.jpg>")
strBesked= Replace(strBesked,";-)","<IMG SRC=gfx/blink.jpg>")
strBesked= Replace(strBesked,"(o)","<IMG SRC=gfx/op.jpg>")
strBesked= Replace(strBesked,"(O)","<IMG SRC=gfx/op.jpg>")
strBesked= Replace(strBesked,"(n)","<IMG SRC=gfx/ned.jpg>")
strBesked= Replace(strBesked,"(N)","<IMG SRC=gfx/ned.jpg>")
strBesked= Replace(strBesked,":P","<IMG SRC=gfx/tunge.jpg>")
strBesked= Replace(strBesked,":-P","<IMG SRC=gfx/tunge.jpg>")
strBesked= Replace(strBesked,":)(","<IMG SRC=gfx/evil.jpg>")
strBesked= Replace(strBesked,";(","<IMG SRC=gfx/ked.jpg>")
strBesked= Replace(strBesked,";))","<IMG SRC=gfx/ond.jpg>")
strBesked= Replace(strBesked,"(?)","<IMG SRC=gfx/sp.jpg>")
Do
' Skriv data
Response.Write "<dt><b>Navn:</b></dt>"
Response.Write "<dd>" & strNavn & "</dd>"
Response.Write "<dt><b>By:</b></dt>"
Response.Write "<dd>" & strBy & " </dd>"
Response.Write "</a>"
Response.Write "<dt><b>land:</b></dt>"
Response.Write "<dd>" & strLand & "</dd>"
Response.Write "</a>"
Response.Write "<dt><b>Besked:</b></dt><dd>" & strBesked & "</dd>"
Response.Write "<br>"
Response.Write "<hr>"
rs.MoveNext
Loop While Not rs.EOF
End if
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
