Avatar billede vendelbjerg Nybegynder
28. juni 2002 - 14:06 Der er 6 kommentarer og
1 løsning

Fejl i min tagwall

Jeg har et lille problem... jeg har lavet en lille tagwall og den fungerer fint når nogen har skrevet i den... men hvis der ikke er nogen der har skrevet så skulle den gerne vise en tekst "Der er ingen beskeder!" eller sådan noget... men øhh... det vil den ikke gå med til, men det kan jo også være at jeg har lavet en lille irriterende fejl som bare ødelægger det hele *Grrrrr* hehe i kan se koden her:

<font face="Verdana" size="1">
<%
Set Conn = Server.CreateObject("ADODB.Connection")

DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "

DSN = DSN & "DBQ=" & Server.MapPath("/asp/tagwall/tagwall.mdb")

Conn.Open DSN

strSQL = "Select * from Tagwall Order by Id desc"

Set rs = Conn.Execute(strSQL)

If rs.eof then

Response.Write "Ingen beskeder!"

Else

Do

Response.Write rs("Navn") & "<br>"
Response.Write rs("Email") & "<br>"
Response.Write rs("Hjemmeside") & "<br>"
Response.Write rs("Dato") & "<br>"
Response.Write rs("Besked") & "<br><br>"

rs.MoveNext

Loop while not rs.eof

End if

Conn.Close
Set Conn = Nothing
%>
</font>

I kan se hvad den siger på http://www.rasmuslarsen.com/asp/tagwall/tagwall.asp

//Rasmus Larsen
http://www.rasmuslarsen.com
Avatar billede agony2 Nybegynder
28. juni 2002 - 14:15 #1
Prøv lige dette:
Set rs = Conn.Execute strSQL
Avatar billede vendelbjerg Nybegynder
28. juni 2002 - 14:31 #2
Virker ikke
Avatar billede bgo Nybegynder
28. juni 2002 - 14:36 #3
Prøv at bytte lidt om på det:

while not rs.EOF
response....
rs.MoveNext
wend
if rs.("Besked")="" then
response.write "Der er ingen beskeder"
end if

På denne måde checker den den sidste indlæste, er der ingen indlæste så må rs.("Besked") nødvendigvis være tom.

bgo
Avatar billede bgo Nybegynder
28. juni 2002 - 14:37 #4
Din set rs er iøvrigt ok

bgo
Avatar billede bgo Nybegynder
28. juni 2002 - 14:40 #5
Prøv denne:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/asp/tagwall/tagwall.mdb")
strSQL = "Select * from Tagwall Order by Id desc"
set rs = Conn.execute(strSQL)
Avatar billede vendelbjerg Nybegynder
28. juni 2002 - 14:50 #6
Virker ikke nogen af dem
Avatar billede vendelbjerg Nybegynder
28. juni 2002 - 14:54 #7
fandt selv ud af :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester