Avatar billede cardinale Nybegynder
16. november 2002 - 02:39 Der er 4 kommentarer og
1 løsning

Kun udskrive hvis post findes...

Jeg har en post der hedder unikkommentar i en db der hedder kunder. Jeg vil have indlæst denne unikkommentar hvis der er en. Jeg har følgende kode:

<%
strSQL = "select unikkommentar from kunder where id = " & id

Set objrs = objConn.Execute(strSQL)

do while not objRS.eof
response.write "<table border=""1"" bordercolor=""#E1E4EB"" cellpadding=""0"" cellspacing=""0"">"
response.write "<tr>"
response.write "<td>"
response.write "<table width=""300"" cellpadding=""3"" cellspacing=""0"">"
response.write "<tr>"
response.write "<td colspan=""2"">"
response.write "<table cellpadding=""0"" cellspacing=""0"" width=""250"">"
response.write "<tr>"
Response.Write(Replace(objRS("unikkommentar")&"", vbCrLf, "<BR>"))
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
objRS.MoveNext
loop
%>

Problemet er at hvis der ikke er nogen unikkommentar så udskriver den tabellen med borderfarve - så der bare er en ramme uden tekst. Jeg fatter ikke hvad der er galt men hvis du kan... Jeg er oxo træt nu!
Avatar billede justdoit Nybegynder
16. november 2002 - 10:32 #1
God morgen;o)

Prøv med dette:

<%
strSQL = "select unikkommentar from kunder where id = " & id

Set objrs = objConn.Execute(strSQL)

If objrs.EOF or objrs.BOF then
response.write "<table cellpadding=""0"" cellspacing=""0"">"
response.write "<tr></tr>"
response.write "</table>"

else

while not objRS.eof
response.write "<table border=""1"" bordercolor=""#E1E4EB"" cellpadding=""0"" cellspacing=""0"">"
response.write "<tr>"
response.write "<td>"
response.write "<table width=""300"" cellpadding=""3"" cellspacing=""0"">"
response.write "<tr>"
response.write "<td colspan=""2"">"
response.write "<table cellpadding=""0"" cellspacing=""0"" width=""250"">"
response.write "<tr>"
Response.Write(Replace(objRS("unikkommentar")& "", vbCrLf, "<BR>"))
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
objRS.MoveNext
wend
End if
%>
Avatar billede cardinale Nybegynder
16. november 2002 - 12:50 #2
Sorry det virker ikke. Jeg ved ikke hvad der kan være galt...
Avatar billede justdoit Nybegynder
16. november 2002 - 13:42 #3
Skriver den en fejl?
Avatar billede cardinale Nybegynder
16. november 2002 - 20:07 #4
Nej - men den viser rammen ligesom før...
Avatar billede cardinale Nybegynder
23. november 2002 - 17:13 #5
Lukket
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