Avatar billede ameq Nybegynder
02. januar 2002 - 20:19 Der er 1 kommentar og
2 løsninger

Do \"løkke\"

jeg har en løkke \"do\"
<%
   
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
    DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
    Conn.Open DSN
   
    strSQL = \"select * from todw order by dato desc\"
    set rs = Conn.Execute(strSQL)
 
    if rs(\"todw\") = \"\" then
        response.write \"Ingen download sat i k&oslash;\"
    else
        response.write \"<title>.: To Download :.</title>\"
        Response.Write \"<table width=\'50%\' align=\'center\' border=\'0\'>\"
        Response.Write \"<tr width=\'80%\'><td colspan=3 align=center><font face=verdana size=3><b>.: To Downlaod :.</b></td></tr>\"
        Response.Write \"<tr><td><font face=verdana size=2><b>Navn</b></td>\"
        Response.Write \"<td width=\'20%\'><div align=\'right\'><font face=verdana size=2><b> Dato: </b></font></td></tr>\"       
    Do 
        Response.Write \"<table width=\'50%\' align=\'center\' border=\'0\'>\"
          Response.Write \"<tr><td width=\'80%\'><div align=\'left\'><font face=verdana size=2><a href=\'todwinfo.asp?id=\" & rs(\"Id\") & \"&todw=show\'>\" & rs(\"todw\") & \"</div></td>\"
          Response.Write \"<td width=\'20%\'><div align=\'right\'><font face=verdana size=2>\" & rs(\"dato\") & \"</div></td></tr>\"
        Response.Write \"</table>\"
       
   
    rs.MoveNext
    Loop While Not rs.EOF
    end if   
    Response.write \"<table width=\'80%\' border=\'0\' align=\'center\'><tr><td><hr class=\'hr\'</tr></table>\"
    Conn.Close
    Set Conn = Nothing

  %>
mit problem er i line 11 i kode \"if rs(\"todw\") = \"\" then\" det gider den ikke lige, hvordan laver jeg så hvis der ikke står noget i min databse så bliver der skriver en besked til brugen om der ikke er noget i database
Avatar billede invisibleman Nybegynder
02. januar 2002 - 20:22 #1
Lav:

    if rs(\"todw\") = \"\" then

om til:

If Rs.BOF Or Rs.EOF Then
Avatar billede kornfreak Nybegynder
02. januar 2002 - 20:23 #2
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN
   
strSQL = \"select * from todw order by dato desc\"
set rs = Conn.Execute(strSQL)
If Rs.eof Then
  Response.Write(\"Databasen er tom\")
Else
  If Rs(\"todw\") = \"\" then
    Response.write \"Ingen download sat i k&oslash;\"
  Else
    Response.write \"<title>.: To Download :.</title>\"
    Response.Write \"<table width=\'50%\' align=\'center\' border=\'0\'>\"
    Response.Write \"<tr width=\'80%\'><td colspan=3 align=center><font face=verdana size=3><b>.: To Downlaod :.</b></td></tr>\"
    Response.Write \"<tr><td><font face=verdana size=2><b>Navn</b></td>\"
    Response.Write \"<td width=\'20%\'><div align=\'right\'><font face=verdana size=2><b> Dato: </b></font></td></tr>\"       
    Do While Rs.Eof = False
      Response.Write \"<table width=\'50%\' align=\'center\' border=\'0\'>\"
      Response.Write \"<tr><td width=\'80%\'><div align=\'left\'><font face=verdana size=2><a href=\'todwinfo.asp?id=\" & rs(\"Id\") & \"&todw=show\'>\" & rs(\"todw\") & \"</div></td>\"
      Response.Write \"<td width=\'20%\'><div align=\'right\'><font face=verdana size=2>\" & rs(\"dato\") & \"</div></td></tr>\"
      Response.Write \"</table>\"
    Rs.MoveNext
    Loop
  End If   
  Response.write \"<table width=\'80%\' border=\'0\' align=\'center\'><tr><td><hr class=\'hr\'</tr></table>\"
  Conn.Close
  Set Conn = Nothing
End If
Avatar billede kornfreak Nybegynder
02. januar 2002 - 20:25 #3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN
   
strSQL = \"select * from todw order by dato desc\"
set rs = Conn.Execute(strSQL)
If Rs.eof Then
  Response.Write(\"Ingen download sat i k&oslash;\")
Else
  Response.write \"<title>.: To Download :.</title>\"
  Response.Write \"<table width=\'50%\' align=\'center\' border=\'0\'>\"
  Response.Write \"<tr width=\'80%\'><td colspan=3 align=center><font face=verdana size=3><b>.: To Downlaod :.</b></td></tr>\"
  Response.Write \"<tr><td><font face=verdana size=2><b>Navn</b></td>\"
  Response.Write \"<td width=\'20%\'><div align=\'right\'><font face=verdana size=2><b> Dato: </b></font></td></tr>\"       
  Do While Rs.Eof = False
    Response.Write \"<table width=\'50%\' align=\'center\' border=\'0\'>\"
    Response.Write \"<tr><td width=\'80%\'><div align=\'left\'><font face=verdana size=2><a href=\'todwinfo.asp?id=\" & rs(\"Id\") & \"&todw=show\'>\" & rs(\"todw\") & \"</div></td>\"
    Response.Write \"<td width=\'20%\'><div align=\'right\'><font face=verdana size=2>\" & rs(\"dato\") & \"</div></td></tr>\"
    Response.Write \"</table>\"
  Rs.MoveNext
  Loop
End If   
Response.write \"<table width=\'80%\' border=\'0\' align=\'center\'><tr><td><hr class=\'hr\'</tr></table>\"
Conn.Close
Set Conn = Nothing



Sorry..jeg sover :)
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