---

Denne koder henter alle records i en tabel, men jeg vil gerne
have en If Then classe der kan se om feltet New er tomt skal den
ikke skive noget men hvis feltet er udfyldt skal den skrive en
tekst ud for den aktuelle record.

Men hvordan sættes denne If ind så den kan kigge på et DB
resultat


<%

Set dbConnection = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DB/Generel_DB.mdb")
dbConnection.Open DSN

strSQL = "SELECT * FROM Links WHERE Genre = 'Nyheder'"

Set rsRecordSet = dbConnection.Execute(strSQL)

If not(rsRecordSet.EOF and rsRecordSet.BOF) then

RsRecordSet.MoveFirst

While not rsRecordSet.EOF

%>

   <%Response.Write(rsRecordSet.Fields.Item("Webadresse"))%>
   <%Response.Write(rsRecordSet.Fields.Item("Email"))%>

<%


<%
RsRecordSet.MoveNext

wend

End if

RsRecordSet.Close

DbConnection.Close

Set rsRecordSet = Nothing

Set dbConnection = Nothing

%>

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Kim Hansen" <KimHansen@mail1.stofanet.dk> wrote in message
news:bcfs5o$5jp$1@sunsite.dk...
> Denne koder henter alle records i en tabel, men jeg vil gerne
> have en If Then classe der kan se om feltet New er tomt skal den
> ikke skive noget men hvis feltet er udfyldt skal den skrive en
> tekst ud for den aktuelle record.


Jeg kan ikke lige se hvor du har feltet New, men du kan sikkert bruge dette
?

IF rsRecordSet.Fields.Item("New") <>"" THEN

<%Response.Write(rsRecordSet.Fields.Item("New"))%>

END IF

--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
" If something's hard to do, then it's not worth doing. Homer J. Simpson"

---

Christian M. Nielsen skrev:

>> Denne koder henter alle records i en tabel, men jeg vil gerne
>> have en If Then classe der kan se om feltet New er tomt skal
>> den ikke skive noget men hvis feltet er udfyldt skal den
>> skrive en tekst ud for den aktuelle record.

Hvis New er et tekstfelt er der to forskellige muligheder for et
"tomt" felt. Dels værdien Null (som også kan eksistere i andre
felttyper) og dels værdien "" (den tomme streng). Null kræver
særbehandling - man kan ikke skrive "If x = Null Then", men skal i
stedet skrive: "If IsNull(x) Then"


> IF rsRecordSet.Fields.Item("New") <>"" THEN

I forkortet form:

If rsRecordSet("New") <> "" Then

> <%Response.Write(rsRecordSet.Fields.Item("New"))%>

I forkortet form:

<%= rsRecordSet("New") %>


(Der er ikke noget galt med de lange former, men det er lidt
lettere at læse kortformerne).
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> wrote in message
news:Xns939B95FFCF4E2jcdmfdk@gyrosmod.cybercity.dk...
>
>
> (Der er ikke noget galt med de lange former, men det er lidt
> lettere at læse kortformerne).

Enig, jeg gjorde med lange former, for at vise det på baggrund af det
indsendte. Det er ikke let at vide brugerens baggrund.
Men jeg burde jo have forklaret den simple måde også
--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
" If something's hard to do, then it's not worth doing. Homer J. Simpson"