---

hej med jer alle sammen jeg vil høre om der er nogen som kan hjælpe mig med
at finde ud af at få en sætning skrivet rigtigt så jeg får vist et billede i
en forbindelse som jeg har jeg får den her fejl



Microsoft VBScript compilation error '800a0401'

Expected end of statement

/ny_side_1.asp, line 16

Response.Write RS("Billede")) <img alt="images" border="0" height="155"
src="<%=rs("Billede")
----------------------------^
er der en som kan hjælpe mig med at få skrive det rigtige så det virker så
er bare rigtigt godt

<%
Set myconn = Server.CreateObject("ADODB.Connection")

myconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Server.MapPath("fpdb/database.mdb") &";"

Set rs = myconn.Execute("SELECT * FROM Adresser")

While Not (rs.EOF)
Response.Write RS("navn") & "<br>"
Response.Write RS("Billede")) <img alt="images" border="0" height="155"
src="<%=rs("Billede")%>" width="110"><%Else%><img alt="images" border="0"
height="155" src="images/no_image.gif" width="110">




Response.Write RS("Billede") & "<br><br>"
rs.MoveNext
WEnd

rs.Close
Set rs = Nothing
myconn.Close
Set myconn = Nothing
%>


</body>
</html>

hilsen jeppe

---

Hej Jeppe : )

Husk når du spørger om noget herinde lige at lægge en forklaring med til
hvad du vil opnå - for det er ikke altid man kan læse det ud af den
tilhørende kode.

Jeg går ud fra at du vil have vist navnet og tilhørende foto på de emner
der ligger i databasen og hvis der ikke er noget foto, så skal der være
et "no_image.gif" billede?

I givet fald er du kommet et langt stykke af vejen.
Du får åbnet databasen, lavet en forespørgsel, laver en løkke der løber
til slutningen af resultatet og så er det lidt rodet i selve udsendelsen
af HTML.

Jeg ville omskrive selve WHILE løkken sådan:

'***************************************************************
'lav en variabel til at holde hhv. Billede og intet billede
'dette adskiller variabler, præsentation og kode mest muligt
'derved bliver det ikke så uoverskueligt inde i løkken senere
Dim Billede, IntetBillede

'klargør variablen til intet billede
IntetBillede = "images/no_image.gif"

'så længe der er indhold tilbage i resultatet
While Not (rs.EOF)

'skriv navnet
Response.Write RS("navn") & "<br>"

'hent et evt. billede og gem det i variablen Billede
Billede = RS("Billede")

'hvis der ikke er et billede, så brug IntetBillede
If Billede = "" Then Billede = IntetBillede

'tag så og udskriv HTML'en med variablen Billede i
%><img alt="images" border="0" height="155"
   src="<%=Billede%>" width="110"><br><br><%

'hop til næste række i resultatet
rs.MoveNext

Wend
'***************************************************************

Håber det hjalp, ellers skriv igen : )

Venligste hilsener - Jakob

Jeppe Søndergaard wrote:
> hej med jer alle sammen jeg vil høre om der er nogen som kan hjælpe mig
> med at finde ud af at få en sætning skrivet rigtigt så jeg får vist et
> billede i en forbindelse som jeg har jeg får den her fejl
>
>
>
> Microsoft VBScript compilation error '800a0401'
>
> Expected end of statement
>
> /ny_side_1.asp, line 16
>
> Response.Write RS("Billede")) <img alt="images" border="0" height="155"
> src="<%=rs("Billede")
> ----------------------------^
> er der en som kan hjælpe mig med at få skrive det rigtige så det virker
> så er bare rigtigt godt
>
> <%
> Set myconn = Server.CreateObject("ADODB.Connection")
>
> myconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
> Server.MapPath("fpdb/database.mdb") &";"
>
> Set rs = myconn.Execute("SELECT * FROM Adresser")
>
> While Not (rs.EOF)
> Response.Write RS("navn") & "<br>"
> Response.Write RS("Billede")) <img alt="images" border="0" height="155"
> src="<%=rs("Billede")%>" width="110"><%Else%><img alt="images"
> border="0" height="155" src="images/no_image.gif" width="110">
>
>
>
>
> Response.Write RS("Billede") & "<br><br>"
> rs.MoveNext
> WEnd
>
> rs.Close
> Set rs = Nothing
> myconn.Close
> Set myconn = Nothing
> %>
>
>
> </body>
> </html>
>
> hilsen jeppe

---

On Sun, 12 Apr 2009 15:08:29 +0200, Jakob Lund Krarup
<jowjow@saadeeeeet.dk> wrote:


> 'hent et evt. billede og gem det i variablen Billede
> Billede = RS("Billede")
>
> 'hvis der ikke er et billede, så brug IntetBillede
> If Billede = "" Then Billede = IntetBillede

Hvis Billede-feltet er tomt, vil den formentlig give en Null-værdi ud,
og den nederste If vil ikke blive sand (men Null). Så jeg foreslår:

Billede = Trim("" & RS("Billede"))

- så er du mere sikker på at have en tom streng som output (og fanger
desuden, hvis der skulle være kommet et enkelt mellemrumstegn ind - de
kan være svære at fange, vhsi man ikke sikrer sig v. hj. a. en evt.
input-formular).


Mvh. Jørn

--
Jørn Andersen,
Brønshøj

---

Jørn Andersen wrote:
> On Sun, 12 Apr 2009 15:08:29 +0200, Jakob Lund Krarup
> <jowjow@saadeeeeet.dk> wrote:
>
>
>> 'hent et evt. billede og gem det i variablen Billede
>> Billede = RS("Billede")
>>
>> 'hvis der ikke er et billede, så brug IntetBillede
>> If Billede = "" Then Billede = IntetBillede
>
> Hvis Billede-feltet er tomt, vil den formentlig give en Null-værdi ud,
> og den nederste If vil ikke blive sand (men Null). Så jeg foreslår:
>
> Billede = Trim("" & RS("Billede"))

Ja - det er en fiks konstruktion. Go' pointe! : )

- Jakob

>
> - så er du mere sikker på at have en tom streng som output (og fanger
> desuden, hvis der skulle være kommet et enkelt mellemrumstegn ind - de
> kan være svære at fange, vhsi man ikke sikrer sig v. hj. a. en evt.
> input-formular).
>
>
> Mvh. Jørn
>

---

On Sun, 12 Apr 2009 10:59:32 +0200, Jeppe Søndergaard
<jeppe@skala-n.com> wrote:

>Microsoft VBScript compilation error '800a0401'
>
>Expected end of statement

Check evt. fejlnumre på aspfaq.com (bare kopier nr. ind i søgefeltet)

>/ny_side_1.asp, line 16
>
>Response.Write RS("Billede")) <img alt="images" border="0" height="155"
>src="<%=rs("Billede")
>----------------------------^
<snip>

>Response.Write RS("Billede")) <img alt="images" border="0" height="155"
>src="<%=rs("Billede")%>" width="110"><%Else%><img alt="images" border="0"
>height="155" src="images/no_image.gif" width="110">

Du glemmer at skifte mellem "ASP-mode" og "HTML-mode":

Response.Write RS("Billede")) %>
<img alt="images" border="0" height="155" src="<%=rs("Billede")%>"
width="110"><%
Else
%><img alt="images" border="0" height="155" src="images/no_image.gif"
width="110">

Desuden hænger din Else ikke sammen med noget - konstruktionen skal
være:
If ... Then
Else
End If

Et par ekstra linieskift i koden hjælper nogle gange på overblikket

Brug Jakobs glimrende forklaring - jeg syntes bare lige du skulle have
en tilbagemelding på din egen kode.

Good luck!

--
Jørn Andersen,
Brønshøj

---

hej med jer
jeg har brug for endnu lidt hjælp til det jeg er igang
jeg er lidt i tvivl om hvordan jeg skal sætte billedet ind i den her tekst
---------------------------------------------------------------------------
<% Option Explicit
dim Overskfift, Billede, IntetBillede, SQL, REST, cn, constr, Cont %>
<html>
<head>
<title>Indhold i databasen</title>
</head>
<body>
Her kan du se hvad der ligger i databasen:<br><br>
<%
Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
width=150>Navn</th>"
Overskfift = Overskfift & "<th width=150>Adresse</th>"
Overskfift = Overskfift & "<th width=150>Postnrby</th>"
Overskfift = Overskfift & "<th width=25>Telefon</th>"
Overskfift = Overskfift & "<th width=25>Billede</th></tr>"

'*** Hele HTML output´et til Tabel header´en kodes i een streng (Overskrift)
'*** der sendes til browseren via response.write

response.write Overskfift

'*** Databaseforbindelsen sættes op og åbnes på samme måde som i
aspregistrer.asp
Set cn = Server.CreateObject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Server.MapPath("fpdb/database.mdb") &";"
cn.connectionstring = constr
cn.open

SQL = "SELECT * FROM adresser order by navn"

set REST = cn.execute(SQL)

'*** I variablen SQL gemmes alt indhold fra asresser
while not REST.eof

Cont = "<tr><td>" & rest("Navn") & "</td>"
Cont = Cont & "<td>" & rest("Adresse") & "</td>"
Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
Cont = Cont & "<td>" & rest("Telefon") & "</td>"
Cont = Cont & "<td>" & rest("billede") & "</td></TR>"

'*** og dernæst kodes en ny tabelrække for hver output fra databasen
(While-sætningen)
'*** alt placeres i strengen Cont

response.write Cont
'Strengen udskrives
rest.movenext
'*** Næste række i af de udtrukne data læses
wend
'*** Slut på While-sætningen
rest.close
cn.close
set cn=nothing
'*** Databaseforbindelserne lukkes og nulstilles
%>
</body>
</html>
her er det som jacoob har skrevet har prøvet og det virker bare fint men jeg
kunne godt tænke mig at det kom i den ovenstående table skriver lige koden
igen her neden under


'***************************************************************
'lav en variabel til at holde hhv. Billede og intet billede
'dette adskiller variabler, præsentation og kode mest muligt
'derved bliver det ikke så uoverskueligt inde i løkken senere
Dim Billede, IntetBillede

'klargør variablen til intet billede
IntetBillede = "images/no_image.gif"

'så længe der er indhold tilbage i resultatet
While Not (rs.EOF)

'skriv navnet
Response.Write RS("navn") & "<br>"

'hent et evt. billede og gem det i variablen Billede
Billede = RS("Billede")

'hvis der ikke er et billede, så brug IntetBillede
If Billede = "" Then Billede = IntetBillede

'tag så og udskriv HTML'en med variablen Billede i
%><img alt="images" border="0" height="155"
src="<%=Billede%>" width="110"><br><br><%

'hop til næste række i resultatet
rs.MoveNext

Wend
'***************************************************************
håber der er nogen som kan sætte de de sætninger ind som jeg mangler kan
ikke lige overskue det så på forhånd tak for hjælpen
hilsen jeppe
"Jørn Andersen" <jorn@jorna.dk> skrev i meddelelsen
news:cfr3u4thcl47jdoh4u9n33vfbvlatgj1gv@4ax.com...
> On Sun, 12 Apr 2009 10:59:32 +0200, Jeppe Søndergaard
> <jeppe@skala-n.com> wrote:
>
>>Microsoft VBScript compilation error '800a0401'
>>
>>Expected end of statement
>
> Check evt. fejlnumre på aspfaq.com (bare kopier nr. ind i søgefeltet)
>
>>/ny_side_1.asp, line 16
>>
>>Response.Write RS("Billede")) <img alt="images" border="0" height="155"
>>src="<%=rs("Billede")
>>----------------------------^
> <snip>
>
>>Response.Write RS("Billede")) <img alt="images" border="0" height="155"
>>src="<%=rs("Billede")%>" width="110"><%Else%><img alt="images" border="0"
>>height="155" src="images/no_image.gif" width="110">
>
> Du glemmer at skifte mellem "ASP-mode" og "HTML-mode":
>
> Response.Write RS("Billede")) %>
> <img alt="images" border="0" height="155" src="<%=rs("Billede")%>"
> width="110"><%
> Else
> %><img alt="images" border="0" height="155" src="images/no_image.gif"
> width="110">
>
> Desuden hænger din Else ikke sammen med noget - konstruktionen skal
> være:
> If ... Then
> Else
> End If
>
> Et par ekstra linieskift i koden hjælper nogle gange på overblikket
>
> Brug Jakobs glimrende forklaring - jeg syntes bare lige du skulle have
> en tilbagemelding på din egen kode.
>
> Good luck!
>
> --
> Jørn Andersen,
> Brønshøj

---

Hej Jeppe : )

Hvis du vil have auto-billede-mangler funktionaliteten, så skal du sætte
variablen "Billede" fra min kode ind der hvor du har skrevet:

> Cont = Cont & "<td>" & rest("billede") & "</td></TR>"

så det bliver til

> Cont = Cont & "<td>" & Billede & "</td></TR>"

stadig med dette lige over din din While Not linje

> Dim Billede, IntetBillede
>
> 'klargør variablen til intet billede
> IntetBillede = "images/no_image.gif"

og dette under din While Not linje:

> 'hent et evt. billede og gem det i variablen Billede
> Billede = RS("Billede")
>
> 'hvis der ikke er et billede, så brug IntetBillede
> If Billede = "" Then Billede = IntetBillede


Venligste hilsener - Jakob


Jeppe Søndergaard wrote:
> hej med jer
> jeg har brug for endnu lidt hjælp til det jeg er igang
> jeg er lidt i tvivl om hvordan jeg skal sætte billedet ind i den her tekst
> ---------------------------------------------------------------------------
> <% Option Explicit
> dim Overskfift, Billede, IntetBillede, SQL, REST, cn, constr, Cont %>
> <html>
> <head>
> <title>Indhold i databasen</title>
> </head>
> <body>
> Her kan du se hvad der ligger i databasen:<br><br>
> <%
> Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
> width=150>Navn</th>"
> Overskfift = Overskfift & "<th width=150>Adresse</th>"
> Overskfift = Overskfift & "<th width=150>Postnrby</th>"
> Overskfift = Overskfift & "<th width=25>Telefon</th>"
> Overskfift = Overskfift & "<th width=25>Billede</th></tr>"
>
> '*** Hele HTML output´et til Tabel header´en kodes i een streng
> (Overskrift)
> '*** der sendes til browseren via response.write
>
> response.write Overskfift
>
> '*** Databaseforbindelsen sættes op og åbnes på samme måde som i
> aspregistrer.asp
> Set cn = Server.CreateObject("ADODB.Connection")
> constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
> Server.MapPath("fpdb/database.mdb") &";"
> cn.connectionstring = constr
> cn.open
>
> SQL = "SELECT * FROM adresser order by navn"
>
> set REST = cn.execute(SQL)
>
> '*** I variablen SQL gemmes alt indhold fra asresser
> while not REST.eof
>
> Cont = "<tr><td>" & rest("Navn") & "</td>"
> Cont = Cont & "<td>" & rest("Adresse") & "</td>"
> Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
> Cont = Cont & "<td>" & rest("Telefon") & "</td>"
> Cont = Cont & "<td>" & rest("billede") & "</td></TR>"
>
> '*** og dernæst kodes en ny tabelrække for hver output fra databasen
> (While-sætningen)
> '*** alt placeres i strengen Cont
>
> response.write Cont
> 'Strengen udskrives
> rest.movenext
> '*** Næste række i af de udtrukne data læses
> wend
> '*** Slut på While-sætningen
> rest.close
> cn.close
> set cn=nothing
> '*** Databaseforbindelserne lukkes og nulstilles
> %>
> </body>
> </html>
> her er det som jacoob har skrevet har prøvet og det virker bare fint men
> jeg kunne godt tænke mig at det kom i den ovenstående table skriver lige
> koden igen her neden under
>
>
> '***************************************************************
> 'lav en variabel til at holde hhv. Billede og intet billede
> 'dette adskiller variabler, præsentation og kode mest muligt
> 'derved bliver det ikke så uoverskueligt inde i løkken senere
> Dim Billede, IntetBillede
>
> 'klargør variablen til intet billede
> IntetBillede = "images/no_image.gif"
>
> 'så længe der er indhold tilbage i resultatet
> While Not (rs.EOF)
>
> 'skriv navnet
> Response.Write RS("navn") & "<br>"
>
> 'hent et evt. billede og gem det i variablen Billede
> Billede = RS("Billede")
>
> 'hvis der ikke er et billede, så brug IntetBillede
> If Billede = "" Then Billede = IntetBillede
>
> 'tag så og udskriv HTML'en med variablen Billede i
> %><img alt="images" border="0" height="155"
> src="<%=Billede%>" width="110"><br><br><%
>
> 'hop til næste række i resultatet
> rs.MoveNext
>
> Wend
> '***************************************************************
> håber der er nogen som kan sætte de de sætninger ind som jeg mangler kan
> ikke lige overskue det så på forhånd tak for hjælpen
> hilsen jeppe
> "Jørn Andersen" <jorn@jorna.dk> skrev i meddelelsen
> news:cfr3u4thcl47jdoh4u9n33vfbvlatgj1gv@4ax.com...
>> On Sun, 12 Apr 2009 10:59:32 +0200, Jeppe Søndergaard
>> <jeppe@skala-n.com> wrote:
>>
>>> Microsoft VBScript compilation error '800a0401'
>>>
>>> Expected end of statement
>>
>> Check evt. fejlnumre på aspfaq.com (bare kopier nr. ind i søgefeltet)
>>
>>> /ny_side_1.asp, line 16
>>>
>>> Response.Write RS("Billede")) <img alt="images" border="0" height="155"
>>> src="<%=rs("Billede")
>>> ----------------------------^
>> <snip>
>>
>>> Response.Write RS("Billede")) <img alt="images" border="0" height="155"
>>> src="<%=rs("Billede")%>" width="110"><%Else%><img alt="images"
>>> border="0"
>>> height="155" src="images/no_image.gif" width="110">
>>
>> Du glemmer at skifte mellem "ASP-mode" og "HTML-mode":
>>
>> Response.Write RS("Billede")) %>
>> <img alt="images" border="0" height="155" src="<%=rs("Billede")%>"
>> width="110"><%
>> Else
>> %><img alt="images" border="0" height="155" src="images/no_image.gif"
>> width="110">
>>
>> Desuden hænger din Else ikke sammen med noget - konstruktionen skal
>> være:
>> If ... Then
>> Else
>> End If
>>
>> Et par ekstra linieskift i koden hjælper nogle gange på overblikket
>>
>> Brug Jakobs glimrende forklaring - jeg syntes bare lige du skulle have
>> en tilbagemelding på din egen kode.
>>
>> Good luck!
>>
>> --
>> Jørn Andersen,
>> Brønshøj
>

---

hej igen jacob jeg vil høre om du ikke lige kan se mit script igennem da jeg
ikke lige kan finde ud af at sætt det ind det script jeg er ikke lige så
skrap til at overskue det så jeg vil blive glad for hvis du ville lige rette
det til og så sende igen
her er koden hvor jeg har sat lidt af det men kunne ikke lige finde ud af
resten

------
<% Option Explicit
dim Overskfift, SQL, REST, cn, constr, Cont %>
<html>
<head>
<title>Indhold i databasen</title>
</head>
<body>
Her kan du se hvad der ligger i databasen:<br><br>
<%
Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
width=150>Navn</th>"
Overskfift = Overskfift & "<th width=150>Adresse</th>"
Overskfift = Overskfift & "<th width=150>Postnrby</th>"
Overskfift = Overskfift & "<th width=25>Telefon</th>"
Overskfift = Overskfift & "<th width=25>Billede</th></tr>"

'*** Hele HTML output´et til Tabel header´en kodes i een streng (Overskrift)
'*** der sendes til browseren via response.write

response.write Overskfift

'*** Databaseforbindelsen sættes op og åbnes på samme måde som i
aspregistrer.asp
Set cn = Server.CreateObject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Server.MapPath("fpdb/database.mdb") &";"
cn.connectionstring = constr
cn.open

SQL = "SELECT * FROM adresser order by navn"

set REST = cn.execute(SQL)

'klargør variablen til intet billede
IntetBillede = "images/no_image.gif"

'*** I variablen SQL gemmes alt indhold fra asresser
while not REST.eof
'hent et evt. billede og gem det i variablen Billede
Billede = RS("Billede")

'hvis der ikke er et billede, så brug IntetBillede
If Billede = "" Then Billede = IntetBillede

Cont = "<tr><td>" & rest("Navn") & "</td>"
Cont = Cont & "<td>" & rest("Adresse") & "</td>"
Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
Cont = Cont & "<td>" & rest("Telefon") & "</td>"
Cont = Cont & "<td>" & Billede & "</td></TR>"

'*** og dernæst kodes en ny tabelrække for hver output fra databasen
(While-sætningen)
'*** alt placeres i strengen Cont

response.write Cont
'Strengen udskrives
rest.movenext
'*** Næste række i af de udtrukne data læses
wend
'*** Slut på While-sætningen
rest.close
cn.close
set cn=nothing
'*** Databaseforbindelserne lukkes og nulstilles
%>
</body>
</html>
hilsen jeppe
"Jakob Lund Krarup" <jowjow@saadeeeeet.dk> skrev i meddelelsen
news:49e37c69$0$90276$14726298@news.sunsite.dk...
> Hej Jeppe : )
>
> Hvis du vil have auto-billede-mangler funktionaliteten, så skal du sætte
> variablen "Billede" fra min kode ind der hvor du har skrevet:
>
> > Cont = Cont & "<td>" & rest("billede") & "</td></TR>"
>
> så det bliver til
>
> > Cont = Cont & "<td>" & Billede & "</td></TR>"
>
> stadig med dette lige over din din While Not linje
>
> > Dim Billede, IntetBillede
> >
> > 'klargør variablen til intet billede
> > IntetBillede = "images/no_image.gif"
>
> og dette under din While Not linje:
>
> > 'hent et evt. billede og gem det i variablen Billede
> > Billede = RS("Billede")
> >
> > 'hvis der ikke er et billede, så brug IntetBillede
> > If Billede = "" Then Billede = IntetBillede
>
>
> Venligste hilsener - Jakob
>
>
> Jeppe Søndergaard wrote:
>> hej med jer
>> jeg har brug for endnu lidt hjælp til det jeg er igang
>> jeg er lidt i tvivl om hvordan jeg skal sætte billedet ind i den her
>> tekst
>> ---------------------------------------------------------------------------
>> <% Option Explicit
>> dim Overskfift, Billede, IntetBillede, SQL, REST, cn, constr, Cont %>
>> <html>
>> <head>
>> <title>Indhold i databasen</title>
>> </head>
>> <body>
>> Her kan du se hvad der ligger i databasen:<br><br>
>> <%
>> Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
>> width=150>Navn</th>"
>> Overskfift = Overskfift & "<th width=150>Adresse</th>"
>> Overskfift = Overskfift & "<th width=150>Postnrby</th>"
>> Overskfift = Overskfift & "<th width=25>Telefon</th>"
>> Overskfift = Overskfift & "<th width=25>Billede</th></tr>"
>>
>> '*** Hele HTML output´et til Tabel header´en kodes i een streng
>> (Overskrift)
>> '*** der sendes til browseren via response.write
>>
>> response.write Overskfift
>>
>> '*** Databaseforbindelsen sættes op og åbnes på samme måde som i
>> aspregistrer.asp
>> Set cn = Server.CreateObject("ADODB.Connection")
>> constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
>> Server.MapPath("fpdb/database.mdb") &";"
>> cn.connectionstring = constr
>> cn.open
>>
>> SQL = "SELECT * FROM adresser order by navn"
>>
>> set REST = cn.execute(SQL)
>>
>> '*** I variablen SQL gemmes alt indhold fra asresser
>> while not REST.eof
>>
>> Cont = "<tr><td>" & rest("Navn") & "</td>"
>> Cont = Cont & "<td>" & rest("Adresse") & "</td>"
>> Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
>> Cont = Cont & "<td>" & rest("Telefon") & "</td>"
>> Cont = Cont & "<td>" & rest("billede") & "</td></TR>"
>>
>> '*** og dernæst kodes en ny tabelrække for hver output fra databasen
>> (While-sætningen)
>> '*** alt placeres i strengen Cont
>>
>> response.write Cont
>> 'Strengen udskrives
>> rest.movenext
>> '*** Næste række i af de udtrukne data læses
>> wend
>> '*** Slut på While-sætningen
>> rest.close
>> cn.close
>> set cn=nothing
>> '*** Databaseforbindelserne lukkes og nulstilles
>> %>
>> </body>
>> </html>
>> her er det som jacoob har skrevet har prøvet og det virker bare fint men
>> jeg kunne godt tænke mig at det kom i den ovenstående table skriver lige
>> koden igen her neden under
>>
>>
>> '***************************************************************
>> 'lav en variabel til at holde hhv. Billede og intet billede
>> 'dette adskiller variabler, præsentation og kode mest muligt
>> 'derved bliver det ikke så uoverskueligt inde i løkken senere
>> Dim Billede, IntetBillede
>>
>> 'klargør variablen til intet billede
>> IntetBillede = "images/no_image.gif"
>>
>> 'så længe der er indhold tilbage i resultatet
>> While Not (rs.EOF)
>>
>> 'skriv navnet
>> Response.Write RS("navn") & "<br>"
>>
>> 'hent et evt. billede og gem det i variablen Billede
>> Billede = RS("Billede")
>>
>> 'hvis der ikke er et billede, så brug IntetBillede
>> If Billede = "" Then Billede = IntetBillede
>>
>> 'tag så og udskriv HTML'en med variablen Billede i
>> %><img alt="images" border="0" height="155"
>> src="<%=Billede%>" width="110"><br><br><%
>>
>> 'hop til næste række i resultatet
>> rs.MoveNext
>>
>> Wend
>> '***************************************************************
>> håber der er nogen som kan sætte de de sætninger ind som jeg mangler kan
>> ikke lige overskue det så på forhånd tak for hjælpen
>> hilsen jeppe
>> "Jørn Andersen" <jorn@jorna.dk> skrev i meddelelsen
>> news:cfr3u4thcl47jdoh4u9n33vfbvlatgj1gv@4ax.com...
>>> On Sun, 12 Apr 2009 10:59:32 +0200, Jeppe Søndergaard
>>> <jeppe@skala-n.com> wrote:
>>>
>>>> Microsoft VBScript compilation error '800a0401'
>>>>
>>>> Expected end of statement
>>>
>>> Check evt. fejlnumre på aspfaq.com (bare kopier nr. ind i søgefeltet)
>>>
>>>> /ny_side_1.asp, line 16
>>>>
>>>> Response.Write RS("Billede")) <img alt="images" border="0" height="155"
>>>> src="<%=rs("Billede")
>>>> ----------------------------^
>>> <snip>
>>>
>>>> Response.Write RS("Billede")) <img alt="images" border="0" height="155"
>>>> src="<%=rs("Billede")%>" width="110"><%Else%><img alt="images"
>>>> border="0"
>>>> height="155" src="images/no_image.gif" width="110">
>>>
>>> Du glemmer at skifte mellem "ASP-mode" og "HTML-mode":
>>>
>>> Response.Write RS("Billede")) %>
>>> <img alt="images" border="0" height="155" src="<%=rs("Billede")%>"
>>> width="110"><%
>>> Else
>>> %><img alt="images" border="0" height="155" src="images/no_image.gif"
>>> width="110">
>>>
>>> Desuden hænger din Else ikke sammen med noget - konstruktionen skal
>>> være:
>>> If ... Then
>>> Else
>>> End If
>>>
>>> Et par ekstra linieskift i koden hjælper nogle gange på overblikket
>>>
>>> Brug Jakobs glimrende forklaring - jeg syntes bare lige du skulle have
>>> en tilbagemelding på din egen kode.
>>>
>>> Good luck!
>>>
>>> --
>>> Jørn Andersen,
>>> Brønshøj
>>

---

Det ser da fornuftigt ud : )

Virker det ikke?
Ellers så send lige et link til hvor man kan se fejlbeskeden henne på
nettet.

Venligste hilsener - Jakob

Jeppe Søndergaard wrote:
> hej igen jacob jeg vil høre om du ikke lige kan se mit script igennem da
> jeg ikke lige kan finde ud af at sætt det ind det script jeg er ikke
> lige så skrap til at overskue det så jeg vil blive glad for hvis du
> ville lige rette det til og så sende igen
> her er koden hvor jeg har sat lidt af det men kunne ikke lige finde ud
> af resten
>
> ------
> <% Option Explicit
> dim Overskfift, SQL, REST, cn, constr, Cont %>
> <html>
> <head>
> <title>Indhold i databasen</title>
> </head>
> <body>
> Her kan du se hvad der ligger i databasen:<br><br>
> <%
> Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
> width=150>Navn</th>"
> Overskfift = Overskfift & "<th width=150>Adresse</th>"
> Overskfift = Overskfift & "<th width=150>Postnrby</th>"
> Overskfift = Overskfift & "<th width=25>Telefon</th>"
> Overskfift = Overskfift & "<th width=25>Billede</th></tr>"
>
> '*** Hele HTML output´et til Tabel header´en kodes i een streng
> (Overskrift)
> '*** der sendes til browseren via response.write
>
> response.write Overskfift
>
> '*** Databaseforbindelsen sættes op og åbnes på samme måde som i
> aspregistrer.asp
> Set cn = Server.CreateObject("ADODB.Connection")
> constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
> Server.MapPath("fpdb/database.mdb") &";"
> cn.connectionstring = constr
> cn.open
>
> SQL = "SELECT * FROM adresser order by navn"
>
> set REST = cn.execute(SQL)
>
> 'klargør variablen til intet billede
> IntetBillede = "images/no_image.gif"
>
> '*** I variablen SQL gemmes alt indhold fra asresser
> while not REST.eof
> 'hent et evt. billede og gem det i variablen Billede
> Billede = RS("Billede")
>
> 'hvis der ikke er et billede, så brug IntetBillede
> If Billede = "" Then Billede = IntetBillede
>
> Cont = "<tr><td>" & rest("Navn") & "</td>"
> Cont = Cont & "<td>" & rest("Adresse") & "</td>"
> Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
> Cont = Cont & "<td>" & rest("Telefon") & "</td>"
> Cont = Cont & "<td>" & Billede & "</td></TR>"
>
> '*** og dernæst kodes en ny tabelrække for hver output fra databasen
> (While-sætningen)
> '*** alt placeres i strengen Cont
>
> response.write Cont
> 'Strengen udskrives
> rest.movenext
> '*** Næste række i af de udtrukne data læses
> wend
> '*** Slut på While-sætningen
> rest.close
> cn.close
> set cn=nothing
> '*** Databaseforbindelserne lukkes og nulstilles
> %>
> </body>
> </html>
> hilsen jeppe
> "Jakob Lund Krarup" <jowjow@saadeeeeet.dk> skrev i meddelelsen
> news:49e37c69$0$90276$14726298@news.sunsite.dk...
>> Hej Jeppe : )
>>
>> Hvis du vil have auto-billede-mangler funktionaliteten, så skal du
>> sætte variablen "Billede" fra min kode ind der hvor du har skrevet:
>>
>> > Cont = Cont & "<td>" & rest("billede") & "</td></TR>"
>>
>> så det bliver til
>>
>> > Cont = Cont & "<td>" & Billede & "</td></TR>"
>>
>> stadig med dette lige over din din While Not linje
>>
>> > Dim Billede, IntetBillede
>> >
>> > 'klargør variablen til intet billede
>> > IntetBillede = "images/no_image.gif"
>>
>> og dette under din While Not linje:
>>
>> > 'hent et evt. billede og gem det i variablen Billede
>> > Billede = RS("Billede")
>> >
>> > 'hvis der ikke er et billede, så brug IntetBillede
>> > If Billede = "" Then Billede = IntetBillede
>>
>>
>> Venligste hilsener - Jakob
>>
>>
>> Jeppe Søndergaard wrote:
>>> hej med jer
>>> jeg har brug for endnu lidt hjælp til det jeg er igang
>>> jeg er lidt i tvivl om hvordan jeg skal sætte billedet ind i den her
>>> tekst
>>> ---------------------------------------------------------------------------
>>>
>>> <% Option Explicit
>>> dim Overskfift, Billede, IntetBillede, SQL, REST, cn, constr, Cont %>
>>> <html>
>>> <head>
>>> <title>Indhold i databasen</title>
>>> </head>
>>> <body>
>>> Her kan du se hvad der ligger i databasen:<br><br>
>>> <%
>>> Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
>>> width=150>Navn</th>"
>>> Overskfift = Overskfift & "<th width=150>Adresse</th>"
>>> Overskfift = Overskfift & "<th width=150>Postnrby</th>"
>>> Overskfift = Overskfift & "<th width=25>Telefon</th>"
>>> Overskfift = Overskfift & "<th width=25>Billede</th></tr>"
>>>
>>> '*** Hele HTML output´et til Tabel header´en kodes i een streng
>>> (Overskrift)
>>> '*** der sendes til browseren via response.write
>>>
>>> response.write Overskfift
>>>
>>> '*** Databaseforbindelsen sættes op og åbnes på samme måde som i
>>> aspregistrer.asp
>>> Set cn = Server.CreateObject("ADODB.Connection")
>>> constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
>>> Server.MapPath("fpdb/database.mdb") &";"
>>> cn.connectionstring = constr
>>> cn.open
>>>
>>> SQL = "SELECT * FROM adresser order by navn"
>>>
>>> set REST = cn.execute(SQL)
>>>
>>> '*** I variablen SQL gemmes alt indhold fra asresser
>>> while not REST.eof
>>>
>>> Cont = "<tr><td>" & rest("Navn") & "</td>"
>>> Cont = Cont & "<td>" & rest("Adresse") & "</td>"
>>> Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
>>> Cont = Cont & "<td>" & rest("Telefon") & "</td>"
>>> Cont = Cont & "<td>" & rest("billede") & "</td></TR>"
>>>
>>> '*** og dernæst kodes en ny tabelrække for hver output fra databasen
>>> (While-sætningen)
>>> '*** alt placeres i strengen Cont
>>>
>>> response.write Cont
>>> 'Strengen udskrives
>>> rest.movenext
>>> '*** Næste række i af de udtrukne data læses
>>> wend
>>> '*** Slut på While-sætningen
>>> rest.close
>>> cn.close
>>> set cn=nothing
>>> '*** Databaseforbindelserne lukkes og nulstilles
>>> %>
>>> </body>
>>> </html>
>>> her er det som jacoob har skrevet har prøvet og det virker bare fint
>>> men jeg kunne godt tænke mig at det kom i den ovenstående table
>>> skriver lige koden igen her neden under
>>>
>>>
>>> '***************************************************************
>>> 'lav en variabel til at holde hhv. Billede og intet billede
>>> 'dette adskiller variabler, præsentation og kode mest muligt
>>> 'derved bliver det ikke så uoverskueligt inde i løkken senere
>>> Dim Billede, IntetBillede
>>>
>>> 'klargør variablen til intet billede
>>> IntetBillede = "images/no_image.gif"
>>>
>>> 'så længe der er indhold tilbage i resultatet
>>> While Not (rs.EOF)
>>>
>>> 'skriv navnet
>>> Response.Write RS("navn") & "<br>"
>>>
>>> 'hent et evt. billede og gem det i variablen Billede
>>> Billede = RS("Billede")
>>>
>>> 'hvis der ikke er et billede, så brug IntetBillede
>>> If Billede = "" Then Billede = IntetBillede
>>>
>>> 'tag så og udskriv HTML'en med variablen Billede i
>>> %><img alt="images" border="0" height="155"
>>> src="<%=Billede%>" width="110"><br><br><%
>>>
>>> 'hop til næste række i resultatet
>>> rs.MoveNext
>>>
>>> Wend
>>> '***************************************************************
>>> håber der er nogen som kan sætte de de sætninger ind som jeg mangler
>>> kan ikke lige overskue det så på forhånd tak for hjælpen
>>> hilsen jeppe
>>> "Jørn Andersen" <jorn@jorna.dk> skrev i meddelelsen
>>> news:cfr3u4thcl47jdoh4u9n33vfbvlatgj1gv@4ax.com...
>>>> On Sun, 12 Apr 2009 10:59:32 +0200, Jeppe Søndergaard
>>>> <jeppe@skala-n.com> wrote:
>>>>
>>>>> Microsoft VBScript compilation error '800a0401'
>>>>>
>>>>> Expected end of statement
>>>>
>>>> Check evt. fejlnumre på aspfaq.com (bare kopier nr. ind i søgefeltet)
>>>>
>>>>> /ny_side_1.asp, line 16
>>>>>
>>>>> Response.Write RS("Billede")) <img alt="images" border="0"
>>>>> height="155"
>>>>> src="<%=rs("Billede")
>>>>> ----------------------------^
>>>> <snip>
>>>>
>>>>> Response.Write RS("Billede")) <img alt="images" border="0"
>>>>> height="155"
>>>>> src="<%=rs("Billede")%>" width="110"><%Else%><img alt="images"
>>>>> border="0"
>>>>> height="155" src="images/no_image.gif" width="110">
>>>>
>>>> Du glemmer at skifte mellem "ASP-mode" og "HTML-mode":
>>>>
>>>> Response.Write RS("Billede")) %>
>>>> <img alt="images" border="0" height="155" src="<%=rs("Billede")%>"
>>>> width="110"><%
>>>> Else
>>>> %><img alt="images" border="0" height="155" src="images/no_image.gif"
>>>> width="110">
>>>>
>>>> Desuden hænger din Else ikke sammen med noget - konstruktionen skal
>>>> være:
>>>> If ... Then
>>>> Else
>>>> End If
>>>>
>>>> Et par ekstra linieskift i koden hjælper nogle gange på overblikket
>>>>
>>>> Brug Jakobs glimrende forklaring - jeg syntes bare lige du skulle have
>>>> en tilbagemelding på din egen kode.
>>>>
>>>> Good luck!
>>>>
>>>> --
>>>> Jørn Andersen,
>>>> Brønshøj
>>>
>

---

hej jacob selvføldig jeg glemte at se den med

her er fejl beskrivelsen
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'IntetBillede'

/asphentdata.asp, line 32

og her er koden igen
hvis du har tid og lys så må du meget gerne rette det sted hvor fejlen er
eller hvis jeg mangler noget

hilsen jeppe
<% Option Explicit
dim Overskfift, SQL, REST, cn, constr, Cont %>
<html>
<head>
<title>Indhold i databasen</title>
</head>
<body>
Her kan du se hvad der ligger i databasen:<br><br>
<%
Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
width=150>Navn</th>"
Overskfift = Overskfift & "<th width=150>Adresse</th>"
Overskfift = Overskfift & "<th width=150>Postnrby</th>"
Overskfift = Overskfift & "<th width=25>Telefon</th>"
Overskfift = Overskfift & "<th width=25>Billede</th></tr>"

'*** Hele HTML output´et til Tabel header´en kodes i een streng (Overskrift)
'*** der sendes til browseren via response.write

response.write Overskfift

'*** Databaseforbindelsen sættes op og åbnes på samme måde som i
aspregistrer.asp
Set cn = Server.CreateObject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Server.MapPath("fpdb/database.mdb") &";"
cn.connectionstring = constr
cn.open

SQL = "SELECT * FROM adresser order by navn"

set REST = cn.execute(SQL)

'klargør variablen til intet billede
IntetBillede = "images/no_image.gif"

'*** I variablen SQL gemmes alt indhold fra asresser
while not REST.eof
'hent et evt. billede og gem det i variablen Billede
Billede = RS("Billede")

'hvis der ikke er et billede, så brug IntetBillede
If Billede = "" Then Billede = IntetBillede

Cont = "<tr><td>" & rest("Navn") & "</td>"
Cont = Cont & "<td>" & rest("Adresse") & "</td>"
Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
Cont = Cont & "<td>" & rest("Telefon") & "</td>"
Cont = Cont & "<td>" & Billede & "</td></TR>"

'*** og dernæst kodes en ny tabelrække for hver output fra databasen
(While-sætningen)
'*** alt placeres i strengen Cont

response.write Cont
'Strengen udskrives
rest.movenext
'*** Næste række i af de udtrukne data læses
wend
'*** Slut på While-sætningen
rest.close
cn.close
set cn=nothing
'*** Databaseforbindelserne lukkes og nulstilles
%>
</body>
</html>

---

On 13 Apr., 22:37, Jeppe Søndergaard <je...@skala-n.com> wrote:
> hej jacob selvføldig jeg glemte at se den med
>
> her er fejl beskrivelsen
> Microsoft VBScript runtime error '800a01f4'
> Variable is undefined: 'IntetBillede'
>
> /asphentdata.asp, line 32
>
> og her er koden igen
> hvis du har tid og lys så må du meget gerne rette det sted hvor fejlen er
> eller hvis jeg mangler noget
>
> hilsen jeppe


Hej igen Jeppe

Fejlen "Variable is undefined" kommer når du øverst i dokumentet har
skrevet OPTION EXPLICIT.
Option Explicit betyder "Jeg (programmøren) vil altid angive med DIM
at jeg skal bruge en variabel".
Det er en rigtig god praksis for så undgår du at en variabel der er
stavet forkert gør at noget ikke virker.
I stedet får du besked om at der er en variabel som ASP ikke kender.
Så i toppen af din side hvor du har "Dim Overskfift, etc, etc."
tilføjer du lige Billede og intetBillede i slutningen af rækken:

dim Overskfift, SQL, REST, cn, constr, Cont, Billede, IntetBillede %>

Venligste hilsener - Jakob

---

Hej igen Jeppe

Der var lige en fejlformulering:

> Fejlen "Variable is undefined" kommer når du øverst i dokumentet har
> skrevet OPTION EXPLICIT.

Der skulle have stået

Fejlen "Variable is undefined" kommer når du øverst i dokumentet har
skrevet OPTION EXPLICIT
! OG så anvender en variabel som du ikke har angivet med DIM !


- Jakob

>
> Option Explicit betyder "Jeg (programmøren) vil altid angive med DIM
> at jeg skal bruge en variabel".
> Det er en rigtig god praksis for så undgår du at en variabel der er
> stavet forkert gør at noget ikke virker.
> I stedet får du besked om at der er en variabel som ASP ikke kender.
> Så i toppen af din side hvor du har "Dim Overskfift, etc, etc."
> tilføjer du lige Billede og intetBillede i slutningen af rækken:
>
> dim Overskfift, SQL, REST, cn, constr, Cont, Billede, IntetBillede %>
>
> Venligste hilsener - Jakob

---

hej igen tak for den info med intetbillede og billede men den laver stadig
fejl her er fejl beskrivelsen

Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'RS'

/asphentdata.asp, line 35

og koden sætter jeg lige endnu engang ind nedenunder

<% Option Explicit
dim Overskfift, SQL, REST, cn, constr, Cont, Billede, IntetBillede %>
<html>
<head>
<title>Indhold i databasen</title>
</head>
<body>
Her kan du se hvad der ligger i databasen:<br><br>
<%
Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
width=150>Navn</th>"
Overskfift = Overskfift & "<th width=150>Adresse</th>"
Overskfift = Overskfift & "<th width=150>Postnrby</th>"
Overskfift = Overskfift & "<th width=25>Telefon</th>"
Overskfift = Overskfift & "<th width=25>Billede</th></tr>"

'*** Hele HTML output´et til Tabel header´en kodes i een streng (Overskrift)
'*** der sendes til browseren via response.write

response.write Overskfift

'*** Databaseforbindelsen sættes op og åbnes på samme måde som i
aspregistrer.asp
Set cn = Server.CreateObject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Server.MapPath("fpdb/database.mdb") &";"
cn.connectionstring = constr
cn.open

SQL = "SELECT * FROM adresser order by navn"

set REST = cn.execute(SQL)


'*** I variablen SQL gemmes alt indhold fra asresser
while not REST.eof
'hent et evt. billede og gem det i variablen Billede
Billede = RS("Billede")

'hvis der ikke er et billede, så brug IntetBillede
If Billede = "" Then Billede = IntetBillede

Cont = "<tr><td>" & rest("Navn") & "</td>"
Cont = Cont & "<td>" & rest("Adresse") & "</td>"
Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
Cont = Cont & "<td>" & rest("Telefon") & "</td>"
Cont = Cont & "<td>" & Billede & "</td></TR>"

'*** og dernæst kodes en ny tabelrække for hver output fra databasen
(While-sætningen)
'*** alt placeres i strengen Cont

response.write Cont
'Strengen udskrives
rest.movenext
'*** Næste række i af de udtrukne data læses
wend
'*** Slut på While-sætningen
rest.close
cn.close
set cn=nothing
'*** Databaseforbindelserne lukkes og nulstilles
%>
</body>
</html>
jeg håber der er nogen som kan hjælpe mig med at finde fejlen i linje 35 og
ellers der vil være af fejl hilsen jeppe

"Jake" <JakobLundKrarup@gmail.com> skrev i meddelelsen
news:2bfb2e48-20e9-42e5-a42a-3d906d391710@g37g2000yqn.googlegroups.com...
Hej igen Jeppe

Der var lige en fejlformulering:

> Fejlen "Variable is undefined" kommer når du øverst i dokumentet har
> skrevet OPTION EXPLICIT.

Der skulle have stået

Fejlen "Variable is undefined" kommer når du øverst i dokumentet har
skrevet OPTION EXPLICIT
! OG så anvender en variabel som du ikke har angivet med DIM !


- Jakob

>
> Option Explicit betyder "Jeg (programmøren) vil altid angive med DIM
> at jeg skal bruge en variabel".
> Det er en rigtig god praksis for så undgår du at en variabel der er
> stavet forkert gør at noget ikke virker.
> I stedet får du besked om at der er en variabel som ASP ikke kender.
> Så i toppen af din side hvor du har "Dim Overskfift, etc, etc."
> tilføjer du lige Billede og intetBillede i slutningen af rækken:
>
> dim Overskfift, SQL, REST, cn, constr, Cont, Billede, IntetBillede %>
>
> Venligste hilsener - Jakob

---

Jeppe Søndergaard skrev:
> hej igen tak for den info med intetbillede og billede men den laver
> stadig fejl her er fejl beskrivelsen
>
> Microsoft VBScript runtime error '800a01f4'
> Variable is undefined: 'RS'
>
> /asphentdata.asp, line 35
>
> og koden sætter jeg lige endnu engang ind nedenunder
>
> <% Option Explicit
> dim Overskfift, SQL, REST, cn, constr, Cont, Billede, IntetBillede %>


Når det hjalp at dim'e IntetBillede, da den var "undefined", tror du så
ikke det hjælper at dim'e RS, når den er "undefined"?



Leif

---

hej igen nu har jeg sat RS ind i dim linjen men den kommer stadigvæk med
fejl i linje 35 så jeg sætter lige hele min kode ind i igen jeg er ved at
være fortabt over hva dælen der kan være i vejn
fejbeskrivelse

Her kan du se hvad der ligger i databasen:

Navn Adresse Postnrby Telefon Billede
Microsoft VBScript runtime error '800a000d'
Type mismatch

/asphentdata.asp, line 35

koden nedenunder


<% Option Explicit
dim Overskfift, SQL, REST, cn, constr, Cont, RS, Billede, IntetBillede %>
<html>
<head>
<title>Indhold i databasen</title>
</head>
<body>
Her kan du se hvad der ligger i databasen:<br><br>
<%
Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
width=150>Navn</th>"
Overskfift = Overskfift & "<th width=150>Adresse</th>"
Overskfift = Overskfift & "<th width=150>Postnrby</th>"
Overskfift = Overskfift & "<th width=25>Telefon</th>"
Overskfift = Overskfift & "<th width=25>Billede</th></tr>"

'*** Hele HTML output´et til Tabel header´en kodes i een streng (Overskrift)
'*** der sendes til browseren via response.write

response.write Overskfift

'*** Databaseforbindelsen sættes op og åbnes på samme måde som i
aspregistrer.asp
Set cn = Server.CreateObject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Server.MapPath("fpdb/database.mdb") &";"
cn.connectionstring = constr
cn.open

SQL = "SELECT * FROM adresser order by navn"

set REST = cn.execute(SQL)


'*** I variablen SQL gemmes alt indhold fra asresser
while not REST.eof
'hent et evt. billede og gem det i variablen Billede
Billede = RS("Billede")

'hvis der ikke er et billede, så brug IntetBillede
If Billede = "" Then Billede = IntetBillede

Cont = "<tr><td>" & rest("Navn") & "</td>"
Cont = Cont & "<td>" & rest("Adresse") & "</td>"
Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
Cont = Cont & "<td>" & rest("Telefon") & "</td>"
Cont = Cont & "<td>" & Billede & "</td></TR>"

'*** og dernæst kodes en ny tabelrække for hver output fra databasen
(While-sætningen)
'*** alt placeres i strengen Cont

response.write Cont
'Strengen udskrives
rest.movenext
'*** Næste række i af de udtrukne data læses
wend
'*** Slut på While-sætningen
rest.close
cn.close
set cn=nothing
'*** Databaseforbindelserne lukkes og nulstilles
%>
</body>
</html>


hisen jeppe




"Leif Neland" <leif@neland.dk> skrev i meddelelsen
news:49e4de65$0$56790$edfadb0f@dtext02.news.tele.dk...
> Jeppe Søndergaard skrev:
>> hej igen tak for den info med intetbillede og billede men den laver
>> stadig fejl her er fejl beskrivelsen
>>
>> Microsoft VBScript runtime error '800a01f4'
>> Variable is undefined: 'RS'
>>
>> /asphentdata.asp, line 35
>>
>> og koden sætter jeg lige endnu engang ind nedenunder
>>
>> <% Option Explicit
>> dim Overskfift, SQL, REST, cn, constr, Cont, Billede, IntetBillede %>
>
>
> Når det hjalp at dim'e IntetBillede, da den var "undefined", tror du så
> ikke det hjælper at dim'e RS, når den er "undefined"?
>
>
>
> Leif

---

Hej Jeppe : )

Nu forklarer jeg lige den måde du skal tænke på hvis du gerne vil til at
programmere. Du må ikke tage det som et flabet udspil, men tværtimod et
eksempel på "giv en mand en fisk og han har mad til en dag, lær ham at
fiske og han har mad til resten af livet".

Når du får en fejlbesked så skal du tænke "har jeg set en anden
fejlbesked der minder om denne?" Hvis det er tilfældet, så skal du se på
hvad der adskiller sig i de to fejlbeskeder.

Den sidste fejl du bad om hjælp til hed:

> Microsoft VBScript runtime error '800a01f4'
> Variable is undefined: 'IntetBillede'

og der tilføjede vi "IntetBillede" til listen af variabler der blev
erklæret (oprettet) med kommandoen "Dim".

Nu får du fejlen

> Microsoft VBScript runtime error '800a01f4'
> Variable is undefined: 'RS'

Så skal du tænke "aha... - jeg har nok heller ikke erklæret variablen
RS"
....for hvis du tænker sådan har du ret

Så normalt ville du skulle tilføje "RS" til enden af Dim sætningen.
MEN...
Der er dog en drillepind her, for du har gemt resultatet af cn.Execute i
en variabel der hedder "Rest" men du forsøger at hente navnet på
billedet ud af en variabel der hedder "RS".
(Det er muligvis mig der har klippe-klistret forkert i en tidligere
rettelse)

Så ret "RS" til "Rest" i linje 35, så skulle det køre : )

Et andet forslag til hvordan du kan gribe script problemer an i ASP:

Kopier fejlbeskeden ind i Google og se hvad der sker.
Det eneste du kan være HELT sikker på - er at du er ikke den første der
har fået en given fejl.

F.eks en søgning på "> Microsoft VBScript runtime error '800a01f4'"

giver resultatet: (klik her -> ) http://surl.dk/5np/

allerede andet link giver svaret: (Klik her -> ) http://surl.dk/5nq/

Håber du tager forslagene i den ånd det er givet : )

Venligste hilsener - Jakob




Jeppe Søndergaard wrote:
> hej igen tak for den info med intetbillede og billede men den laver
> stadig fejl her er fejl beskrivelsen
>
> Microsoft VBScript runtime error '800a01f4'
> Variable is undefined: 'RS'
>
> /asphentdata.asp, line 35
>
> og koden sætter jeg lige endnu engang ind nedenunder
>
> <% Option Explicit
> dim Overskfift, SQL, REST, cn, constr, Cont, Billede, IntetBillede %>
> <html>
> <head>
> <title>Indhold i databasen</title>
> </head>
> <body>
> Her kan du se hvad der ligger i databasen:<br><br>
> <%
> Overskfift = "<table border=1><font face=Arial size=2><b><tr><th
> width=150>Navn</th>"
> Overskfift = Overskfift & "<th width=150>Adresse</th>"
> Overskfift = Overskfift & "<th width=150>Postnrby</th>"
> Overskfift = Overskfift & "<th width=25>Telefon</th>"
> Overskfift = Overskfift & "<th width=25>Billede</th></tr>"
>
> '*** Hele HTML output´et til Tabel header´en kodes i een streng
> (Overskrift)
> '*** der sendes til browseren via response.write
>
> response.write Overskfift
>
> '*** Databaseforbindelsen sættes op og åbnes på samme måde som i
> aspregistrer.asp
> Set cn = Server.CreateObject("ADODB.Connection")
> constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
> Server.MapPath("fpdb/database.mdb") &";"
> cn.connectionstring = constr
> cn.open
>
> SQL = "SELECT * FROM adresser order by navn"
>
> set REST = cn.execute(SQL)
>
>
> '*** I variablen SQL gemmes alt indhold fra asresser
> while not REST.eof
> 'hent et evt. billede og gem det i variablen Billede
> Billede = RS("Billede")
>
> 'hvis der ikke er et billede, så brug IntetBillede
> If Billede = "" Then Billede = IntetBillede
>
> Cont = "<tr><td>" & rest("Navn") & "</td>"
> Cont = Cont & "<td>" & rest("Adresse") & "</td>"
> Cont = Cont & "<td>" & rest("Postnrby") & "</td>"
> Cont = Cont & "<td>" & rest("Telefon") & "</td>"
> Cont = Cont & "<td>" & Billede & "</td></TR>"
>
> '*** og dernæst kodes en ny tabelrække for hver output fra databasen
> (While-sætningen)
> '*** alt placeres i strengen Cont
>
> response.write Cont
> 'Strengen udskrives
> rest.movenext
> '*** Næste række i af de udtrukne data læses
> wend
> '*** Slut på While-sætningen
> rest.close
> cn.close
> set cn=nothing
> '*** Databaseforbindelserne lukkes og nulstilles
> %>
> </body>
> </html>
> jeg håber der er nogen som kan hjælpe mig med at finde fejlen i linje 35
> og ellers der vil være af fejl hilsen jeppe
>
> "Jake" <JakobLundKrarup@gmail.com> skrev i meddelelsen
> news:2bfb2e48-20e9-42e5-a42a-3d906d391710@g37g2000yqn.googlegroups.com...
> Hej igen Jeppe
>
> Der var lige en fejlformulering:
>
>> Fejlen "Variable is undefined" kommer når du øverst i dokumentet har
>> skrevet OPTION EXPLICIT.
>
> Der skulle have stået
>
> Fejlen "Variable is undefined" kommer når du øverst i dokumentet har
> skrevet OPTION EXPLICIT
> ! OG så anvender en variabel som du ikke har angivet med DIM !
>
>
> - Jakob
>
>>
>> Option Explicit betyder "Jeg (programmøren) vil altid angive med DIM
>> at jeg skal bruge en variabel".
>> Det er en rigtig god praksis for så undgår du at en variabel der er
>> stavet forkert gør at noget ikke virker.
>> I stedet får du besked om at der er en variabel som ASP ikke kender.
>> Så i toppen af din side hvor du har "Dim Overskfift, etc, etc."
>> tilføjer du lige Billede og intetBillede i slutningen af rækken:
>>
>> dim Overskfift, SQL, REST, cn, constr, Cont, Billede, IntetBillede %>
>>
>> Venligste hilsener - Jakob
>

---

Jakob Lund Krarup skrev:
> Hej Jeppe : )
>
> Nu forklarer jeg lige den måde du skal tænke på hvis du gerne vil til at
> programmere. Du må ikke tage det som et flabet udspil, men tværtimod et
> eksempel på "giv en mand en fisk og han har mad til en dag, lær ham at
> fiske og han har mad til resten af livet".

Sådan burde jeg også have formuleret mig

> Der er dog en drillepind her, for du har gemt resultatet af cn.Execute i
> en variabel der hedder "Rest" men du forsøger at hente navnet på
> billedet ud af en variabel der hedder "RS".

Den faldgrube faldt jeg så lige i

Leif

---

hej allesammen tak for hjælpen
jeg prøvede ige at erstatte RS med REST nu kommer der bare kun stien på
billede men pyt jeg lader det ligge og dropper scriptet jeg syndes bare det
var sjovt at ha et billede i en adresse bog jeg er ved at lave men tak for
hjælpen for den her gang og ja jeg er ikke skrap til asp, den måde jeg har
lavet de ting jeg har lavet ind til vidre er nogen guider på nettet og så
ville jeg bare prøve at tilføje f. eks billede til den her guide så det er
derfor at jeg ikke har væet skrap til at sætte noget ind som ikke lige har
stået i guiden men nok om det i har været til stor hjælp og har go
tulmodighed

hilsen jeppe
"Leif Neland" <leif@neland.dk> skrev i meddelelsen
news:49e4e49e$0$56780$edfadb0f@dtext02.news.tele.dk...
> Jakob Lund Krarup skrev:
>> Hej Jeppe : )
>>
>> Nu forklarer jeg lige den måde du skal tænke på hvis du gerne vil til at
>> programmere. Du må ikke tage det som et flabet udspil, men tværtimod et
>> eksempel på "giv en mand en fisk og han har mad til en dag, lær ham at
>> fiske og han har mad til resten af livet".
>
> Sådan burde jeg også have formuleret mig
>
>> Der er dog en drillepind her, for du har gemt resultatet af cn.Execute i
>> en variabel der hedder "Rest" men du forsøger at hente navnet på billedet
>> ud af en variabel der hedder "RS".
>
> Den faldgrube faldt jeg så lige i
>
> Leif

---

Jeppe Søndergaard skrev:
> hej allesammen tak for hjælpen
> jeg prøvede ige at erstatte RS med REST nu kommer der bare kun stien på
> billede men pyt jeg lader det ligge og dropper scriptet

Du har da ikke megen rygrad


Som også sagt tidligere, hvis du først tænker på hvilken html, du vil
have, så kan du bagefter tænke på at lave det i html.

Cont = Cont & "<td>" & Billede & "</td></TR>"

Resultatet giver naturligvis
<td>images/no_image.gif</td>
altså stien.

Du vil have
<td><img src="images/no_image.gif"></td>

Tilbage i asp er det:

Cont = Cont & "<td><img src=""" & Billede & """></td></TR>"

Leif

---

hej igen tak for hjælpen nu virker det og ja det kan godt være jeg ikke har
ryg rad jeg havde heller ikke gættet at det var det der skulle stå men tak
for hjælpen
"Leif Neland" <leif@neland.dk> skrev i meddelelsen
news:49e4f4cf$0$56767$edfadb0f@dtext02.news.tele.dk...
> Jeppe Søndergaard skrev:
>> hej allesammen tak for hjælpen
>> jeg prøvede ige at erstatte RS med REST nu kommer der bare kun stien på
>> billede men pyt jeg lader det ligge og dropper scriptet
>
> Du har da ikke megen rygrad
>
>
> Som også sagt tidligere, hvis du først tænker på hvilken html, du vil
> have, så kan du bagefter tænke på at lave det i html.
>
> Cont = Cont & "<td>" & Billede & "</td></TR>"
>
> Resultatet giver naturligvis
> <td>images/no_image.gif</td>
> altså stien.
>
> Du vil have
> <td><img src="images/no_image.gif"></td>
>
> Tilbage i asp er det:
>
> Cont = Cont & "<td><img src=""" & Billede & """></td></TR>"
>
> Leif

---

Jeppe Søndergaard skrev:
> hej igen tak for hjælpen nu virker det og ja det kan godt være jeg ikke
> har ryg rad jeg havde heller ikke gættet at det var det der skulle stå

Hvis du skal gætte dig til det hele, så spår jeg ikke en stor fremtid
som webdesigner

Leif

---

"Leif Neland" <leif@neland.dk> skrev
> Jeppe Søndergaard skrev:
>> hej igen tak for hjælpen nu virker det og ja det kan godt være jeg ikke
>> har ryg rad jeg havde heller ikke gættet at det var det der skulle stå
>
> Hvis du skal gætte dig til det hele, så spår jeg ikke en stor fremtid som
> webdesigner

Enig - det går ikke uden at studere en hel del...
Bjarne

---

On Tue, 14 Apr 2009 21:22:06 +0200, Jakob Lund Krarup
<jowjow@saadeeeeet.dk> wrote:


>Kopier fejlbeskeden ind i Google og se hvad der sker.
>Det eneste du kan være HELT sikker på - er at du er ikke den første der
>har fået en given fejl.
>
>F.eks en søgning på "> Microsoft VBScript runtime error '800a01f4'"
>
>giver resultatet: (klik her -> ) http://surl.dk/5np/
>
>allerede andet link giver svaret: (Klik her -> ) http://surl.dk/5nq/

Til fejlnumre synes jeg oftest det er nemmere at bruge
http://aspfaq.com.
I dette tilfælde kom man så samme sted hen, men ellers kan man nogle
gange skulle igennem mange Google-resultater, inden man finder noget
brugbart.


Mvh. Jørn

--
Jørn Andersen,
Brønshøj