Søg
Avatar billede cardinale Nybegynder
16. november 2002 - 21:09 Der er 10 kommentarer og
1 løsning

Udskriv hvis der er noget i post...

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...
Avatar billede eagleeye Praktikant
17. november 2002 - 00:56 #1
Hvis tabellen er tom bliver den del der er inde i loopet ikke udskrevet det søger denne linie for:

do while not objRS.eof
Avatar billede cardinale Nybegynder
17. november 2002 - 14:28 #2
Nej - det er heller ikke meningen. Jeg vil jo netop ikke have noget udskrevet hvis tabellen er tom - men problemet er at den udskriver rammen om tabellen, selvom posten er tom!
Avatar billede medions Nybegynder
17. november 2002 - 14:32 #3
<%
strSQL = "select unikkommentar from kunder where id = " & id

Set objrs = objConn.Execute(strSQL)

While Not objRS.EOF
If Not objRs.EOF Then
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()
End If
Wend
%>

//>Rune
Avatar billede no_doubt Nybegynder
17. november 2002 - 14:34 #4
her
<%strSQL = "select unikkommentar from kunder where id = " & id

Set objrs = objConn.Execute(strSQL)

If objRS.EOF Then
%></p>

<p>Den er tom</p>

<p><%else%></p>

<table border="1" width="208">
<% do while not objRS.eof %>
  <tr>
    <td width="202"><%(Replace(objRS("unikkommentar")&"", vbCrLf, "<BR>"))%></td>
  </tr>
<% objRS.movenext %>
<%loop %>
</table>

<p><%end if%>

<p>Den er tom</p>

<p><%else%></p>

<table border="1" width="208">
  <tr>
    <td width="202"><%(Replace(objRS("unikkommentar")&"", vbCrLf, "<BR>"))%></td>
  </tr>
</table>

<p><%end if%></p>
Avatar billede medions Nybegynder
17. november 2002 - 15:04 #5
<%strSQL = "select unikkommentar from kunder where id = " & id

Set objrs = objConn.Execute(strSQL)

If objRS.EOF Then
%></p>

<p>Den er tom</p>

<p><%else%></p>

<table border="1" width="208">
<% do while not objRS.eof %>
  <tr>
    <td width="202"><%(Replace(objRS("unikkommentar")&"", vbCrLf, "<BR>"))%></td>
  </tr>
<% objRS.movenext %>
<%loop %>
</table>

<p><%end if%>

<p>Den er tom</p>

<p><%else%></p>

<table width="208">
  <tr>
    <td width="202"><%(Replace(objRS("unikkommentar")&"", vbCrLf, "<BR>"))%></td>
  </tr>
</table>

<p><%end if%></p>

-prøv lige med dette!

//>Rune
Avatar billede medions Nybegynder
17. november 2002 - 15:15 #6
Prøv lige med denne:

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

Set objrs = objConn.Execute(strSQL)

If Not objRs.EOF Then
    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
End If
%>

//>Rune
Avatar billede cardinale Nybegynder
17. november 2002 - 15:29 #7
Laver det på en anden måde
Avatar billede cardinale Nybegynder
17. november 2002 - 15:29 #8
Det virker ikke de svar jeg har fået desværre...
Avatar billede no_doubt Nybegynder
17. november 2002 - 15:30 #9
øhh medions ser du nogen grund til at de ikke skulle virke ?
Avatar billede cardinale Nybegynder
17. november 2002 - 15:33 #10
Jeg fatter det heller ikke - men sådan er det. Kan det være fordi der i kunder er mange andre info?
Jeg har en anden kode som virker. Den eneste forskel er:

strSQL = "Select * from besked order by ID desc"
Set objRS = objConn.Execute(strSQL)
do while not objRS.eof

Og i beskeder er der ikke andre data end beskeder hvor der i kunder er mange andre info end unikkommentar...
Avatar billede medions Nybegynder
17. november 2002 - 15:35 #11
no_doubt> Nej, men fejlen må åbenbart ligge et andet sted... Lidt weird...

//>Rune
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:31 Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
White papers
Flere white papers »