CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

medions Nybegynder

20. juli 2001 - 13:59 Der er 36 kommentarer og
1 løsning

Værdi i tabel

hejsa... jeg står og skal tjekke om der er noget i tabellen rs(\"svar\") -hvis ikke så Response.Write \"blabla\" -og dette skal køres i gennem med en løkke... hvordan gøres det?

Synes godt om

runesoft Nybegynder

20. juli 2001 - 14:02 #1

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

Synes godt om

runesoft Nybegynder

20. juli 2001 - 14:02 #2

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:05 #3

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 \" -\"
Response.Write \"SV: \" & rs(\"emne\")
Response.Write \"</td>\"
Response.Write \"</tr>\"
End If
Response.Write \"<tr>\"
Response.Write \"<td> </td>\"
Response.Write \"</tr>\"
rs.MoveNext
Wend
Response.Write \"</table>\"
Set rs = Nothing

Conn.Close
Set Conn = Nothing

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:18 #4

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 \" -\"
Response.Write \"SV: \" & rs(\"emne\")
Response.Write \"</td>\"
Response.Write \"</tr>\"
End If
Response.Write \"<tr>\"
Response.Write \"<td> </td>\"
Response.Write \"</tr>\"
rs.MoveNext
loop

Response.Write \"</table>\"
Set rs = Nothing

Conn.Close
Set Conn = Nothing

Synes godt om

medions Nybegynder

20. juli 2001 - 14:21 #5

nope!

nordclc=> hvad lavede du om på?

Synes godt om

runesoft Nybegynder

20. juli 2001 - 14:22 #6

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:23 #7

hmm.. hive hvad ud?

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:24 #8

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

Synes godt om

runesoft Nybegynder

20. juli 2001 - 14:25 #9

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:25 #10

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

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

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:25 #11

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:27 #12

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?

Synes godt om

medions Nybegynder

20. juli 2001 - 14:28 #13

nordclc->nope!

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:30 #14

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

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:34 #15

*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?

Synes godt om

runesoft Nybegynder

20. juli 2001 - 14:35 #16

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:36 #17

runesoft-> ?

Synes godt om

runesoft Nybegynder

20. juli 2001 - 14:37 #18

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

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:38 #19

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

Synes godt om

runesoft Nybegynder

20. juli 2001 - 14:39 #20

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:43 #21

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 !

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:48 #22

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:49 #23

det har jeg skrevet!

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

Test
-SV: Test

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:50 #24

Får du 5 linier ud?

Synes godt om

medions Nybegynder

20. juli 2001 - 14:52 #25

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

Test
-SV: Test

nej 6!

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:53 #26

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

Synes godt om

medions Nybegynder

20. juli 2001 - 14:57 #27

yep!

Synes godt om

nordclc Nybegynder

20. juli 2001 - 14:59 #28

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

Synes godt om

medions Nybegynder

20. juli 2001 - 15:02 #29

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

Synes godt om

nordclc Nybegynder

20. juli 2001 - 15:04 #30

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
------------------------------------------------

Synes godt om

medions Nybegynder

20. juli 2001 - 15:08 #31

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 \" -\"
Response.Write \"SV: \" & rs(\"emne\")
Response.Write \"</td>\"
Response.Write \"</tr>\"
End If
Response.Write \"<tr>\"
Response.Write \"<td> </td>\"
Response.Write \"</tr>\"
rs.MoveNext
Wend
Response.Write \"</table>\"
Set rs = Nothing

Conn.Close
Set Conn = Nothing

Synes godt om

nordclc Nybegynder

20. juli 2001 - 15:13 #32

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?

Synes godt om

medions Nybegynder

20. juli 2001 - 15:15 #33

*G* jov!! *LOL*

hvordan gør jeg så det!=?

Synes godt om

nordclc Nybegynder

20. juli 2001 - 15:17 #34

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

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

//Claus

Synes godt om

medions Nybegynder

20. juli 2001 - 15:23 #35

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 \" -\"
Response.Write \"SV: \" & rs(\"emne\")
Response.Write \"</td>\"
Response.Write \"</tr>\"

Synes godt om

nordclc Nybegynder

20. juli 2001 - 15:25 #36

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 \" -\"
Response.Write \"SV: \" & rs(\"emne\")
Response.Write \"</td>\"
Response.Write \"</tr>\"
End If
Response.Write \"<tr>\"
Response.Write \"<td> </td>\"
Response.Write \"</tr>\"
rs.MoveNext
Wend
Response.Write \"</table>\"
Set rs = Nothing

Conn.Close
Set Conn = Nothing

Synes godt om

dkjohn Nybegynder

20. juli 2001 - 22:11 #37

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

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS