hur göra ifall tomt?

2 svar · 208 visningar · startad av timedia 16 maj 2002

timediaMedlem sedan maj 2001420 inlägg

Frågan16 maj 2002 12:42#1

Har en sub som skriver ut nyheter från db. Hur ska jag skriva denna sub om jag inte vill att "Läs mer->>" ska skrivas ut ifall fältet är tomt i db?

sub sistanytt()

SQLlist = "SELECT TOP 10 ArtID, Rubrik, Datum, Lasmer, Brodtext FROM Nyheter WHERE Datum > date() ORDER BY ArtID Desc"
Set RS = Connect.Execute(SQLlist)
RS.Cachesize = 10

if not (RS.eof and RS.bof) THEN
DO UNTIL RS.EOF

  response.write RS("rubrik") 
  response.write "<br>"
  response.write fixatecken(RS("brodtext")) & "<br><a href=""" & RS("lasmer") & """ target=""main"">Läs mer->></a><br><br>" & chr(13)

  RS.MoveNext
Loop
else
  response.write "<br><b>Inga nyheter i databasen???</b><br>"
end if

RS.Close
End sub

Cy-4Medlem sedan maj 200180 inlägg

16 maj 2002 12:48#2

Hallå!!

Du får lägga till en koll:

response.write fixatecken(RS("brodtext")) & "<br>"
If RS("lasmer") <> "" Then
response.write "<a href=""" & RS("lasmer") & """ target=""main"">Läs mer->></a><br><br>" & chr(13)
End If

tohaMedlem sedan dec. 1999707 inlägg

16 maj 2002 12:48#3

This should do the trick. :)


  response.write RS("rubrik") 
  response.write "<br>"
  response.write fixatecken(RS("brodtext")) & "<br>"
  if len(Trim(RS("lasmer"))) > 0 then
    response.write "<a href=""" & RS("lasmer") & """ target=""main"">Läs mer->></a><br><br>" & chr(13)
  end if