Værdi i tabel

do while no rs.eof
  if rs(\"svar\")=\"\" then
      ...
  else
      ...
  rs.movenext
loop

manglede lige noget :
  do while no rs.eof
  if rs(\"svar\")=\"\" then
      ...
  else
      ...
  end if
  rs.movenext
loop 

hmm... hvorfor virker dette så ikke? :(


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * From forum\"
set rs = Conn.execute(strSQL)

Response.Write \"<a href=\'forum.asp?mode=opret\'>Opret spørgesmål</a>\" & \"<p>\"
Response.Write \"<table>\"
    While NOT rs.EOF
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & \"<a href=\'forum.asp?mode=spm&id=\" & rs(\"id\") & \"\'>\" & rs(\"emne\") & \"</a>\" & \"</td>\"
        Response.Write \"</tr>\"
        If rs(\"spm\") = \"\" Then
        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"\"
        Response.Write \"\"
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        Else
        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"&nbsp;-\"
        Response.Write \"SV: \" & rs(\"emne\")
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        End If
        Response.Write \"<tr>\"
        Response.Write \"<td>&nbsp;</td>\"
        Response.Write \"</tr>\"
        rs.MoveNext
    Wend
        Response.Write \"</table>\"
    Set rs = Nothing
                     
Conn.Close
Set Conn = Nothing

Prøv dette:

//Claus
-----------------------------------------------
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * From forum\"
set rs = Conn.execute(strSQL)

Response.Write \"<a href=\'forum.asp?mode=opret\'>Opret spørgesmål</a>\" & \"<p>\"
Response.Write \"<table>\"
    Do While NOT rs.EOF
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & \"<a href=\'forum.asp?mode=spm&id=\" & rs(\"id\") & \"\'>\" & rs(\"emne\") & \"</a>\" & \"</td>\"
        Response.Write \"</tr>\"
        If rs(\"spm\") = \"\" Then
        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"\"
        Response.Write \"\"
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        Else
        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"&nbsp;-\"
        Response.Write \"SV: \" & rs(\"emne\")
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        End If
        Response.Write \"<tr>\"
        Response.Write \"<td>&nbsp;</td>\"
        Response.Write \"</tr>\"
        rs.MoveNext
    loop
   
    Response.Write \"</table>\"
    Set rs = Nothing
                     
Conn.Close
Set Conn = Nothing

nope!

nordclc=> hvad lavede du om på?

Har du prøvet at hive det ud i en variabel først?

hmm.. hive hvad ud?

medions> do while + loop. Får du en fejl og hvilken?

temp = rs(\"spm\")
if temp=\"\" then...

Altså det eneste jeg skal ha\' den til er:

hvis der er noget i tabelle rs(\"svar\") så skriv \'\"mellemrum\"\' -  og så emne!

Kan det være noget med null værdier?

runesoft-> Nope virkede ikke!

nordclc-> vil du ha\' jeg skal skrive do while + loop i mit dokument...-bare sådan uden videre?

skal der ikke stå noget istedet for + ? -er det sådan du mener det?

nordclc->nope!

medions> Du spurgte: \"nordclc=> hvad lavede du om på? \"

Jeg svarede: \"medions> do while + loop. Får du en fejl og hvilken? \"

*G* aahhh.. undskyld! :)

-Jeg fik ingen fejl.. den kom bare med det samme resultat!

ASP problem ;-)
-SV: ASP problem ;-)
 
Test
-SV: Test

men hvad der er galt er at der er ingen svar i \"test\" og så burde den ikke komme frem med -SV:Test ! -forstår du hvad jeg mener?

prøv at skrive feltet ud før du tester på det, så du kan se hvad der er i

runesoft->  ?

ja, undskyld...  jeg er ret bombet :-(

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * From forum\"
set rs = Conn.execute(strSQL)

Response.Write rs(\"spm\")

Set rs = Nothing
                     
Conn.Close
Set Conn = Nothing

jeg mente bare at du skulle prøve at teste på noget andet. false, len(rs(\"..\"))>1 o.s.v.

nordclc-> hehe...
hmm... det virker jo fint nok! Det eneste jeg skal ha\' er bare:
ASP problem ;-)
-SV: ASP problem ;-)
 
Test
-SV: Test

men hvad der er galt er at der er ingen svar i \"test\" og så burde den ikke komme frem med -SV:Test !

Øjeblik. Hvad får du udskrevet på skræmen når du kører ovenstående.

det har jeg skrevet!

ASP problem ;-)
-SV: ASP problem ;-)
 
Test
-SV: Test

Får du 5 linier ud?

ASP problem ;-)
-SV: ASP problem ;-)
 
Test
-SV: Test
 

nej 6!

OK 6 linier ;o)
Hvilken datatype er spm - et notat felt?

yep!

Og i det felt har du både spørgsmål og svar!!! Hvorfor det?

nu er jeg ikke lige helt med?
prøv lige at skær det ud i pap *G*

Du skriver jo du får følgende ud når du skriver Response.Write rs(\"spm\") ud een gang - uden loop!!!! Linje 1 er et spg. ikke? Linje 2 er et svar - ikke?
------------------------------------------------
ASP problem ;-)
-SV: ASP problem ;-)
 
Test
-SV: Test 
------------------------------------------------

jov!

men jeg har loop!

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * From forum\"
set rs = Conn.execute(strSQL)
temp = rs(\"spm\")
Response.Write \"<a href=\'forum.asp?mode=opret\'>Opret spørgesmål</a>\" & \"<p>\"
Response.Write \"<table>\"
    While NOT rs.EOF
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & \"<a href=\'forum.asp?mode=spm&id=\" & rs(\"id\") & \"\'>\" & rs(\"emne\") & \"</a>\" & \"</td>\"
        Response.Write \"</tr>\"
        If temp = \"\" Then
        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"\"
        Response.Write \"\"
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        Else
        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"&nbsp;-\"
        Response.Write \"SV: \" & rs(\"emne\")
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        End If
        Response.Write \"<tr>\"
        Response.Write \"<td>&nbsp;</td>\"
        Response.Write \"</tr>\"
        rs.MoveNext
    Wend
        Response.Write \"</table>\"
    Set rs = Nothing
                     
Conn.Close
Set Conn = Nothing

Ahhh, vi snakke hinanden forbi, jaa ikke så god dansk nej. Nu jeg forstå.

I din if sætning spørger du om rs(\"spm\") er tom! Skal du ikke spørge om der er et svar i stedet for?

*G* jov!! *LOL*

hvordan gør jeg så det!=?

Hvad hedder dit feltnavn for spørgsmål i databsen?
Hvis spg så skriv:

så ret:
  temp = rs(\"spm\")
til
  temp = rs(\"spg\")


//Claus

jeg er HELT kulder i hovedet lige nu!!!

ALTSÅ.. det eneste jeg vil ha\' den til er:

hvis der er noget i rs(\"svar\") så skal den udskrive disse linier:

        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"&nbsp;-\"
        Response.Write \"SV: \" & rs(\"emne\")
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
       

Kopier ALT hvad der står herunder:


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * From forum\"
set rs = Conn.execute(strSQL)
temp = rs(\"svar\")
Response.Write \"<a href=\'forum.asp?mode=opret\'>Opret spørgesmål</a>\" & \"<p>\"
Response.Write \"<table>\"
    While NOT rs.EOF
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & \"<a href=\'forum.asp?mode=spm&id=\" & rs(\"id\") & \"\'>\" & rs(\"emne\") & \"</a>\" & \"</td>\"
        Response.Write \"</tr>\"
        If temp = \"\" Then
        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"\"
        Response.Write \"\"
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        Else
        Response.Write \"<tr>\"
        Response.Write \"<td>\"
        Response.Write \"&nbsp;-\"
        Response.Write \"SV: \" & rs(\"emne\")
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        End If
        Response.Write \"<tr>\"
        Response.Write \"<td>&nbsp;</td>\"
        Response.Write \"</tr>\"
        rs.MoveNext
    Wend
        Response.Write \"</table>\"
    Set rs = Nothing
                     
Conn.Close
Set Conn = Nothing

Norddc>Hvis det skal virke skal du nok ikke lade tildelingen til temp stå uden for loop\'en. Som den står nu vil den beholde feltværdien fra den først række i tabellen.
Fjern istedet \"temp = rs(\"svar\")\" og udskift
If temp = \"\" Then med
If rs(\"svar\") = \"\" then