---

Hej,

Har brugt database eksemplet her på html.dk, det er meget nyt for
mig at arbejde med db, men jeg forstår princippet og det virker.

Problemet er at hvis jeg laver et udtræk på fornavn får jeg en
lang liste, hvordan kan man inddele det i to kolonner i en tabel
hvor den første kolonne kun skal indeholde 51 navne?

Kan man dertil lave udtræk på bestemte datoer f.eks dagens
fødselsdag, der kun bliver vist hvis en bestemt dato hvis et
medlem har fødselsdag?

Min kode er:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/medlemmer.mdb")
Conn.Open DSN
strSQL = "Select * From medlemmer Order by Fornavn"
Set rs = Conn.Execute(strSQL)

Do
' Personens navn
strNavn = rs("Fornavn") & " " & rs("Efternavn")

' lav et link til person.asp med Id-værdien i URL
strLink = "<a href='person.asp?id=" & rs("Id") & "'>" &
strNavn & "</a>"

' Liste med links
Response.Write "<li>" & strLink & "</li>"

rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

mvh.
Henrik

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

---

On 26 Oct 2008 17:55:36 GMT, mahlhn <mahlhn@ft.dk> wrote:

>Har brugt database eksemplet her på html.dk

Bare lige for en ordens skyld: Du er ikke "her på html.dk", men i en
offentlig nyhedsgruppe, som fx html.dk stiller til rådighed via et
webinterface. Andre læser det via en nyhedslæser - eller et andet
webinterface som Google News.
Men ellers: Velkommen til.

>Problemet er at hvis jeg laver et udtræk på fornavn får jeg en
>lang liste, hvordan kan man inddele det i to kolonner i en tabel
>hvor den første kolonne kun skal indeholde 51 navne?

Ja, men mener du:
Allan Berit
Catja Dennis
Erik Freja
osv.
- eller:
Allan Dennis
Berit Erik
Catja Freja
- ?

Det første er nemmest:

' Nulstil tæller
intAntal = 0
' Skriv tabelstart uden for loop
Response.Write "<table>" & vbcrlf

Do While Not rs.Eof
' Step tælleren et skridt frem
intAntal = intAntal + 1

strNavn = rs("Fornavn") & " " & rs("Efternavn")

' Skriv rækkestart hver ulige gang
If intAntal Mod 2 = 1 Then
Response.Write "<tr>"
End If

' Skriv celle med indhold (tilføj selv link)
Response.Write "<td>" & strNavn & "</td>"

' Skriv rækkeslut hver lige gang
If intAntal Mod 2 = 0 Then
Response.Write "</tr>" & vbcrlf
End If

rs.MoveNext
Loop

' Afslut række + ekstra celle, hvis der var et ulige antal navne
If intAntal Mod 2 = 1 Then
Response.Write "<td> &nbsp; </td></tr>" & vbcrlf
End If

' Afslut tabel
Response.Write "</table>" & vbcrlf


Eksemplet tager ikke højde for, om der er mere end 51 navne. Tyg selv på
den og spørg igen, hvis du bliver træt af at tygge.


>Kan man dertil lave udtræk på bestemte datoer f.eks dagens
>fødselsdag, der kun bliver vist hvis en bestemt dato hvis et
>medlem har fødselsdag?

På samme måde men med en anden SQL-sætning:
SELECT *
FROM medlemmer
WHERE Day([Fdato]) = Day(Now) AND Month([FDato]) = Month(Now)
ORDER BY Fornavn

<snip>

Lige en kommentar. Du har:
>Do
<snip>
>Loop While Not rs.EOF

Hvis der intet resultat er i dit udtræk, så får du en fejl ved dit
første:
> strNavn = rs("Fornavn") & " " & rs("Efternavn")

Derfor er det oftest bedre med:
Do While Not rs.Eof
' blabla
Loop

Husk også at lukke og slukke for Recordset-objektet:
rs.Close
Set rs = Nothing
- inden:
>Conn.Close
>Set Conn = Nothing


Good luck!

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

---

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> On 26 Oct 2008 17:55:36 GMT, mahlhn <mahlhn@ft.dk> wrote:
>
> >Har brugt database eksemplet her på html.dk
>
> Bare lige for en ordens skyld: Du er ikke "her på html.dk", men i en
> offentlig nyhedsgruppe, som fx html.dk stiller til rådighed via et
> webinterface. Andre læser det via en nyhedslæser - eller et andet
> webinterface som Google News.
> Men ellers: Velkommen til.

OK, tak
>
> >Problemet er at hvis jeg laver et udtræk på fornavn får jeg en
> >lang liste, hvordan kan man inddele det i to kolonner i en tabel
> >hvor den første kolonne kun skal indeholde 51 navne?
>
> Ja, men mener du:
> Allan Berit
> Catja Dennis
> Erik Freja
> osv.
> - eller:
> Allan Dennis
> Berit Erik
> Catja Freja
> - ?

Jeg mener

a e
b f
c g
d h
>
> Det første er nemmest:
>
> ' Nulstil tæller
> intAntal = 0
> ' Skriv tabelstart uden for loop
> Response.Write "<table>" & vbcrlf
>
> Do While Not rs.Eof
> ' Step tælleren et skridt frem
> intAntal = intAntal + 1
>
> strNavn = rs("Fornavn") & " " & rs("Efternavn")
>
> ' Skriv rækkestart hver ulige gang
> If intAntal Mod 2 = 1 Then
> Response.Write "<tr>"
> End If
>
> ' Skriv celle med indhold (tilføj selv link)
> Response.Write "<td>" & strNavn & "</td>"
>
> ' Skriv rækkeslut hver lige gang
> If intAntal Mod 2 = 0 Then
> Response.Write "</tr>" & vbcrlf
> End If
>
> rs.MoveNext
> Loop
>
> ' Afslut række + ekstra celle, hvis der var et ulige antal navne
> If intAntal Mod 2 = 1 Then
> Response.Write "<td>   </td></tr>" & vbcrlf
> End If
>
> ' Afslut tabel
> Response.Write "</table>" & vbcrlf
>
>
> Eksemplet tager ikke højde for, om der er mere end 51 navne. Tyg selv på
> den og spørg igen, hvis du bliver træt af at tygge.

Der tabte du mig, det er meget nyt for mig det her, den kode du giver skal
vel kombineres med min, for at få link til person.asp, men jeg er i tvivl
om hvordan det hele skal sammensættes.

Dertil mener jeg at hvis jeg har 90 navne skal der være 51 i første kolonne
og resten i anden kolonne.
>
>
> >Kan man dertil lave udtræk på bestemte datoer f.eks dagens
> >fødselsdag, der kun bliver vist hvis en bestemt dato hvis et
> >medlem har fødselsdag?
>
> På samme måde men med en anden SQL-sætning:
> SELECT *
> FROM medlemmer
> WHERE Day([Fdato]) = Day(Now) AND Month([FDato]) = Month(Now)
> ORDER BY Fornavn
>
> <snip>
>
> Lige en kommentar. Du har:
> >Do
> <snip>
> >Loop While Not rs.EOF
>
> Hvis der intet resultat er i dit udtræk, så får du en fejl ved dit
> første:
> > strNavn = rs("Fornavn") & " " & rs("Efternavn")
>
> Derfor er det oftest bedre med:
> Do While Not rs.Eof
> ' blabla
> Loop
>
> Husk også at lukke og slukke for Recordset-objektet:
> rs.Close
> Set rs = Nothing
> - inden:
> >Conn.Close
> >Set Conn = Nothing
>
>
> Good luck!
>
> --
> Jørn Andersen,
> Brønshøj


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

---

On 27 Oct 2008 07:47:55 GMT, mahlhn <mahlhn@ft.dk> wrote:


>Der tabte du mig, det er meget nyt for mig det her, den kode du giver skal
>vel kombineres med min, for at få link til person.asp, men jeg er i tvivl
>om hvordan det hele skal sammensættes.

Det skal ind i stedet for den del der går fra Do -> Loop (incl.) i din
kode.

Men som sagt får du et resultat som:
a b
c d
e f
osv.

Så det er ikke det du er ude efter.- Men brug det evt. som træning



Mvh. Jørn

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

---

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> On 27 Oct 2008 07:47:55 GMT, mahlhn <mahlhn@ft.dk> wrote:
>
>
> >Der tabte du mig, det er meget nyt for mig det her, den kode du giver skal
> >vel kombineres med min, for at få link til person.asp, men jeg er i tvivl
> >om hvordan det hele skal sammensættes.
>
> Det skal ind i stedet for den del der går fra Do -> Loop (incl.) i din
> kode.

Fik det til at virke, men desværre ikke på den måde jeg håbede på.
>
> Men som sagt får du et resultat som:
> a b
> c d
> e f
> osv.
>
> Så det er ikke det du er ude efter.- Men brug det evt. som træning

Tak,
mvh.
Henrik
>
>
>
> Mvh. Jørn
>
> --
> Jørn Andersen,
> Brønshøj


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

---

On 27 Oct 2008 07:47:55 GMT, mahlhn <mahlhn@ft.dk> wrote:

>Jeg mener
>
>a e
>b f
>c g
>d h
<snip>

>Dertil mener jeg at hvis jeg har 90 navne skal der være 51 i første kolonne
>og resten i anden kolonne.

Den er lidt mere besværlig - i hvert fald hvis det skal være i samme
tabel. Hvis du kan acceptere, at det kun er to kolonner ved siden af
hinanden, kan du evt. lægge dem i hver sin <div>, som floates.

<%
' Nulstil tæller
intAntal = 0
' Skriv kolonnestart uden for loop
Response.Write "<div class=""kolonne"">" & vbcrlf

Do While Not rs.Eof
' Step tælleren et skridt frem
intAntal = intAntal + 1

strNavn = rs("Fornavn") & " " & rs("Efternavn")

' Skriv kolonneskift efter nr. 51
If intAntal = 52 Then
Response.Write "</div>" & vbcrlf & _
"<div class=""kolonne"">" & vbcrlf
End If

' Skriv celle med indhold (tilføj selv link)
Response.Write strNavn & "<br>" & vbcrlf

rs.MoveNext
Loop

' Afslut kolonne
Response.Write "</div>" & vbcrlf
%>

Du skal så lige definere i din CSS, fx:
..kolonne {
width:45%;
float:left;
margin:0 auto;
}

Der er en "skønhedsfejl" derved at der kommer en <br> i slutningen af
kolonnen - hvis det er et problem, så skriv.

---
Hvis du insisterer på at have dem i en fælles tabel, så kunne en løsning
være først at lægge dem i et array og så udskrive arrayet til en tabel.

<%
' Vi starter med at tilrette SQL'en:
strSQL = "SELECT Fornavn, Efternavn, Id" & _
" FROM medlemmer ORDER BY Fornavn"

Set rs = Conn.Execute(strSQL)

' Først lægger vi Recordsettet over i et kilde-array
arrKilde = objRs.GetRows
' og lukker rs og Conn
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing


' Så flytter vi det hele over i et nyt array
' men sådan at de bliver delt op i to "kolonner"
' og for-, efternavn og id bliver lagt sammen til et link
For k = 0 To UBound(arrKilde, 2)
strNavn = arrKilde(0, k) & " " & arrKilde(1, k)
strLink = "<a href=""person.asp?id=" & _
arrKilde(2, k) & """>" & strNavn & "</a>"

If k > 50 Then
arrNavne(k - 51, 1) = strLink
   Else
arrNavne(k, 0) = strLink
End If
Next


' Til sidst udskriver vi

Response.Write "<table>" & vbcrlf
For i = 0 To UBound(arrNavne, 1)
Response.Write "<tr>"
' Fjern denne linie, hvis ikke du vil have tal på:
   Response.Write "<td>" & i + 1 & "</td>"
Response.Write "<td>" & arrNavne(i, 0) & "</td>"
Response.Write "<td>" & arrNavne(i, 1) & "</td>"
Response.Write "</tr>" & vbcrlf
Next
Response.Write "</table>" & vbcrlf

%>

Håber det virker efter hensigten.

Hvis du ikke er dus med arrays, så fungerer de lidt ligesom en tabel
eller et regneark. Men mens et regneark kun har to dimensioner (rækker
og kolonner, så kan et array have mange flere.

I dette tilfælde bruges det første array blot til at trække data ud af
recordsettet. Det gøres med recordsettets metode .GetRows
Dette er grunden til, at SQL'en er rettet, så vi ved, hvilke felter der
har hvilken placering i arrayet.

De tre kolonner/felter (for-, efternavn, id) er i arrayets 1. dimension,
de 90 rækker i 2. dimension.
Det kan drille lidt at arrays er nul-nummererede, mens dimensionerne er
1-nummererede.


Good luck!

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

---

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> On 27 Oct 2008 07:47:55 GMT, mahlhn <mahlhn@ft.dk> wrote:
>
> >Jeg mener
> >
> >a e
> >b f
> >c g
> >d h
> <snip>
>
> >Dertil mener jeg at hvis jeg har 90 navne skal der være 51 i første kolonne
> >og resten i anden kolonne.
>
> Den er lidt mere besværlig - i hvert fald hvis det skal være i samme
> tabel. Hvis du kan acceptere, at det kun er to kolonner ved siden af
> hinanden, kan du evt. lægge dem i hver sin <div>, som floates.
>
> <%
&gt; ' Nulstil tæller
&gt; intAntal = 0
&gt; ' Skriv kolonnestart uden for loop
&gt; Response.Write "<div class=""kolonne"">" & vbcrlf
&gt;
&gt; Do While Not rs.Eof
&gt; ' Step tælleren et skridt frem
&gt; intAntal = intAntal + 1
&gt;
&gt; strNavn = rs("Fornavn") & " " & rs("Efternavn")
&gt;
&gt; ' Skriv kolonneskift efter nr. 51
&gt; If intAntal = 52 Then
&gt; Response.Write "</div>" & vbcrlf & _
&gt; "<div class=""kolonne"">" & vbcrlf
&gt; End If
&gt;
&gt; ' Skriv celle med indhold (tilføj selv link)
&gt; Response.Write strNavn & "<br>" & vbcrlf
&gt;
&gt; rs.MoveNext
&gt; Loop
&gt;
&gt; ' Afslut kolonne
&gt; Response.Write "</div>" & vbcrlf
&gt; %>
>
> Du skal så lige definere i din CSS, fx:
> ..kolonne {
> width:45%;
> float:left;
> margin:0 auto;
> }
>
> Der er en "skønhedsfejl" derved at der kommer en <br> i slutningen af
> kolonnen - hvis det er et problem, så skriv.
>
Jeg får det samme resultat, som det første eksempel du viste mig?
Er det meningen jeg skal lave koden to gange?
CSS og floats er ikke nyt for mig det er bare hvordan man skal kombinere det
med databaser som er helt nyt for mig, f.eks har jeg en class der hedder
..artikel hvordan kan man få navnelisten til at benytte denne class?

Kan du ikke prøve at vise mig et eksempel fra start til slut, dvs. med start
fra

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/medlemmer.mdb")
Conn.Open DSN
' Where Afdeling = 'Printcentret' Order by Fornavn
strSQL = "Select * From medlemmer Order by Fornavn"
Set rs = Conn.Execute(strSQL)

Do While Not rs.EOF

til slut

Loop
rs.Close
Set rs = Nothing


Conn.Close
Set Conn = Nothing
%>

> ---
> Hvis du insisterer på at have dem i en fælles tabel, så kunne en løsning
> være først at lægge dem i et array og så udskrive arrayet til en tabel.
>
> <%
&gt; ' Vi starter med at tilrette SQL'en:
&gt; strSQL = "SELECT Fornavn, Efternavn, Id" & _
&gt; " FROM medlemmer ORDER BY Fornavn"
&gt;
&gt; Set rs = Conn.Execute(strSQL)
&gt;
&gt; ' Først lægger vi Recordsettet over i et kilde-array
&gt; arrKilde = objRs.GetRows
&gt; ' og lukker rs og Conn
&gt; rs.Close
&gt; Set rs = Nothing
&gt; Conn.Close
&gt; Set Conn = Nothing
&gt;
&gt;
&gt; ' Så flytter vi det hele over i et nyt array
&gt; ' men sådan at de bliver delt op i to "kolonner"
&gt; ' og for-, efternavn og id bliver lagt sammen til et link
&gt; For k = 0 To UBound(arrKilde, 2)
&gt; strNavn = arrKilde(0, k) & " " & arrKilde(1, k)
&gt; strLink = "<a href=""person.asp?id=" & _
&gt; arrKilde(2, k) & """>" & strNavn & "</a>"
&gt;
&gt; If k > 50 Then
&gt; arrNavne(k - 51, 1) = strLink
&gt;    Else
&gt; arrNavne(k, 0) = strLink
&gt; End If
&gt; Next
&gt;
&gt;
&gt; ' Til sidst udskriver vi
&gt;
&gt; Response.Write "<table>" & vbcrlf
&gt; For i = 0 To UBound(arrNavne, 1)
&gt; Response.Write "<tr>"
&gt; ' Fjern denne linie, hvis ikke du vil have tal på:
&gt;    Response.Write "<td>" & i + 1 & "</td>"
&gt; Response.Write "<td>" & arrNavne(i, 0) & "</td>"
&gt; Response.Write "<td>" & arrNavne(i, 1) & "</td>"
&gt; Response.Write "</tr>" & vbcrlf
&gt; Next
&gt; Response.Write "</table>" & vbcrlf
&gt;
&gt; %>
>
Dette eksempel kan jeg heller ikke få til at virke, melder fejl på:arrKilde =
objRs.GetRows.

Mvh.
Henrik


> Håber det virker efter hensigten.
>
> Hvis du ikke er dus med arrays, så fungerer de lidt ligesom en tabel
> eller et regneark. Men mens et regneark kun har to dimensioner (rækker
> og kolonner, så kan et array have mange flere.
>
> I dette tilfælde bruges det første array blot til at trække data ud af
> recordsettet. Det gøres med recordsettets metode .GetRows
> Dette er grunden til, at SQL'en er rettet, så vi ved, hvilke felter der
> har hvilken placering i arrayet.
>
> De tre kolonner/felter (for-, efternavn, id) er i arrayets 1. dimension,
> de 90 rækker i 2. dimension.
> Det kan drille lidt at arrays er nul-nummererede, mens dimensionerne er
> 1-nummererede.
>
>
> Good luck!
>
> --
> Jørn Andersen,
> Brønshøj


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

---

On 27 Oct 2008 20:38:53 GMT, mahlhn <mahlhn@ft.dk> wrote:

>Jeg får det samme resultat, som det første eksempel du viste mig?

Nej, det kan du ikke få.
Du bør få:
<div class="kolonne">
anne<br>
børge<br>
charlie<br>
....
</div>
<div class="kolonne">
niels<br>
olga<br>
peter<br>
....
</div>


>Er det meningen jeg skal lave koden to gange?

Nej.

>CSS og floats er ikke nyt for mig det er bare hvordan man skal kombinere det
>med databaser som er helt nyt for mig, f.eks har jeg en class der hedder
>.artikel hvordan kan man få navnelisten til at benytte denne class?

Response.Write "<div class=""artikel"">" & vbcrlf
- i eksemplet: skift "kolonne" ud med "artikel"
(hvis altså det er div'en, der skal have den pågældende klasse).


>Kan du ikke prøve at vise mig et eksempel fra start til slut, dvs. med start
>fra

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/medlemmer.mdb")
Conn.Open DSN
' Where Afdeling = 'Printcentret' Order by Fornavn
strSQL = "Select * From medlemmer Order by Fornavn"
Set rs = Conn.Execute(strSQL)

' Nulstil tæller
intAntal = 0
' Skriv kolonnestart uden for loop
Response.Write "<div class=""kolonne"">" & vbcrlf

Do While Not rs.Eof
' Step tælleren et skridt frem
intAntal = intAntal + 1

strNavn = rs("Fornavn") & " " & rs("Efternavn")
strLink = "<a href=""person.asp?id=" & _
rs("Id") & """>" & strNavn & "</a>"

' Skriv kolonneskift efter nr. 51
If intAntal = 52 Then
Response.Write "</div>" & vbcrlf & _
"<div class=""kolonne"">" & vbcrlf
End If

' Skriv link
Response.Write strLink & "<br>" & vbcrlf

rs.MoveNext
Loop

' Afslut kolonne
Response.Write "</div>" & vbcrlf

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


Men som sagt: det andet eksempel leverer det i en tabel - måske er det
bedre?

Good luck!

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

---

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> On 27 Oct 2008 20:38:53 GMT, mahlhn <mahlhn@ft.dk> wrote:
>
> >Jeg får det samme resultat, som det første eksempel du viste mig?
>
> Nej, det kan du ikke få.
> Du bør få:
> <div class="kolonne">
> anne<br>
> børge<br>
> charlie<br>
> ....
> </div>
> <div class="kolonne">
> niels<br>
> olga<br>
> peter<br>
> ....
> </div>
>
Virker perfekt, tak.

> >CSS og floats er ikke nyt for mig det er bare hvordan man skal kombinere det
> >med databaser som er helt nyt for mig, f.eks har jeg en class der hedder
> >.artikel hvordan kan man få navnelisten til at benytte denne class?
>
> Response.Write "<div class=""artikel"">" & vbcrlf
> - i eksemplet: skift "kolonne" ud med "artikel"
> (hvis altså det er div'en, der skal have den pågældende klasse).
>
Det jeg mener er med hensyn til font .artikel henviser til font-size.

Jeg har tilføjet dette til koden:

strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " & rs("Efternavn")
strLink = "<a href=""person.asp?id=" & _
rs("Id") & """>" & strNavn & "</a>"

Anciennitet henviser til en nummerrække, kan man få de første 9 numre til at
vise 01,02,03 osv. istedet for 1,2,3 osv.

Kan man nemt udvide med telefonnummer efter navn?
her mener jeg at det ikke behøver at være en del af link men skal stå under
hinanden:

Anders 55555555 carsten 55555555
børge 55555555.

> Men som sagt: det andet eksempel leverer det i en tabel - måske er det
> bedre?

Vil prøve at få den anden metode til at virke også, hvad er bedst?
Nu når denne metode virker.

Tusind tak for din hjælp indtil nu har fået brugt dine eksempler til at lave
forskellige udtræk også med hensyn til dagens og månedens fødseldage, har dog
lige et spørgsmål til det min kode til dagens fødselsdag er:

' lav et link til person.asp med Id-værdien i URL
strLink = "Dagens fødselsdag:<br /> <br /><a href='person.asp?id=" &
rs("Id") & "'>" & strNavn & "</a>"

Kan man indsætte et flag (billede) i denne kode som ikke ligger i db?

Mvh.
Henrik

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

---

On 27 Oct 2008 22:16:13 GMT, mahlhn <mahlhn@ft.dk> wrote:

>> >CSS og floats er ikke nyt for mig det er bare hvordan man skal kombinere det
>> >med databaser som er helt nyt for mig, f.eks har jeg en class der hedder
>> >.artikel hvordan kan man få navnelisten til at benytte denne class?
>>
>> Response.Write "<div class=""artikel"">" & vbcrlf
>> - i eksemplet: skift "kolonne" ud med "artikel"
>> (hvis altså det er div'en, der skal have den pågældende klasse).
>>
>Det jeg mener er med hensyn til font .artikel henviser til font-size.

Så ville jeg rette CSS'en for .kolonne, så den har den font-size, du
ønsker. Eller du kunne bruge begge klasser:
Response.Write "<div class=""kolonne artikel"">" & vbcrlf


>Jeg har tilføjet dette til koden:
>
>strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " & rs("Efternavn")
>strLink = "<a href=""person.asp?id=" & _
>rs("Id") & """>" & strNavn & "</a>"
>
>Anciennitet henviser til en nummerrække, kan man få de første 9 numre til at
>vise 01,02,03 osv. istedet for 1,2,3 osv.

strAnciennitet = rs("Anciennitet")
strAnciennitet = Right("0" & strAnciennitet, 2)
- altså: Sæt 0 foran strengen og skær så strengen ned til de to tegn
længst til højre.

>Kan man nemt udvide med telefonnummer efter navn?
>her mener jeg at det ikke behøver at være en del af link men skal stå under
>hinanden:
>
>Anders 55555555 carsten 55555555
>børge 55555555.

Ikke helt forstået. Men mere generelt: Ja, du kan skrive hvad som helst.
En ASP-fil er jo bare en HTML-fil, som "tilfældigvis" er *genereret* på
serveren frem for at ligge som en statisk fil på serveren.

Nu dæmrer det: Du vil have en separat kolonne til telefonnumre?
Så slipper du nok ikke uden om tabellen, ellers bliver det svært at
sikre, at de "aligner", hvis der er fornavne som er så lange, at der
kommer linieskift.


>> Men som sagt: det andet eksempel leverer det i en tabel - måske er det
>> bedre?
>
>Vil prøve at få den anden metode til at virke også, hvad er bedst?
>Nu når denne metode virker.

Den afgørelse er vist din
Men jo flere informationer, du vil have med, jo mere vil du have behov
for en tabel.

>Tusind tak for din hjælp indtil nu har fået brugt dine eksempler til at lave
>forskellige udtræk også med hensyn til dagens og månedens fødseldage, har dog
>lige et spørgsmål til det min kode til dagens fødselsdag er:
>
>' lav et link til person.asp med Id-værdien i URL
> strLink = "Dagens fødselsdag:<br /> <br /><a href='person.asp?id=" &
>rs("Id") & "'>" & strNavn & "</a>"
>
>Kan man indsætte et flag (billede) i denne kode som ikke ligger i db?

Hvordan ville du gøre det i en alm. HTML-fil?

Response.Write strLink & " <img src=""flag.jpg"" ....>"


Good luck!

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

---

> Så ville jeg rette CSS'en for .kolonne, så den har den font-size, du
> ønsker. Eller du kunne bruge begge klasser:
> Response.Write "<div class=""kolonne artikel"">" & vbcrlf
>
Selvfølgelig tænkte ikke lige på at bruge begge

> >Jeg har tilføjet dette til koden:
> >
> >strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " & rs("Efternavn")
> >strLink = "<a href=""person.asp?id=" & _
> >rs("Id") & """>" & strNavn & "</a>"
> >
> >Anciennitet henviser til en nummerrække, kan man få de første 9 numre til at
> >vise 01,02,03 osv. istedet for 1,2,3 osv.
>
> strAnciennitet = rs("Anciennitet")
> strAnciennitet = Right("0" & strAnciennitet, 2)
> - altså: Sæt 0 foran strengen og skær så strengen ned til de to tegn
> længst til højre.

Skal det se sådan ud:

strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " & rs("Efternavn")
strAnciennitet = rs("Anciennitet")
strAnciennitet = Right("0" & strAnciennitet, 2)
strLink = "<a href=""person.asp?id=" & _
rs("Id") & """>" & strNavn & "</a>"

Virker ikke

> >Kan man nemt udvide med telefonnummer efter navn?
> >her mener jeg at det ikke behøver at være en del af link men skal stå under
> >hinanden:
> >
> >Anders 55555555 carsten 55555555
> >børge 55555555.
>
> Ikke helt forstået. Men mere generelt: Ja, du kan skrive hvad som helst.
> En ASP-fil er jo bare en HTML-fil, som "tilfældigvis" er *genereret* på
> serveren frem for at ligge som en statisk fil på serveren.
>
> Nu dæmrer det: Du vil have en separat kolonne til telefonnumre?
> Så slipper du nok ikke uden om tabellen, ellers bliver det svært at
> sikre, at de "aligner", hvis der er fornavne som er så lange, at der
> kommer linieskift.

Det var netop det jeg tænkte, men jeg kan stadig ikke få tabellen til at virke

Her er min kode:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/medlemmer.mdb")
Conn.Open DSN
' Vi starter med at tilrette SQL'en:
strSQL = "SELECT Fornavn, Efternavn, Id" & _
" FROM medlemmer ORDER BY Fornavn"

Set rs = Conn.Execute(strSQL)

' Først lægger vi Recordsettet over i et kilde-array
arrKilde = objRs.GetRows
' og lukker rs og Conn
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing


' Så flytter vi det hele over i et nyt array
' men sådan at de bliver delt op i to "kolonner"
' og for-, efternavn og id bliver lagt sammen til et link
For k = 0 To UBound(arrKilde, 2)
strNavn = arrKilde(0, k) & " " & arrKilde(1, k)
strLink = "<a href=""person.asp?id=" & _
arrKilde(2, k) & """>" & strNavn & "</a>"

If k > 50 Then
arrNavne(k - 51, 1) = strLink
Else
arrNavne(k, 0) = strLink
End If
Next


' Til sidst udskriver vi

Response.Write "<table>" & vbcrlf
For i = 0 To UBound(arrNavne, 1)
Response.Write "<tr>"
' Fjern denne linie, hvis ikke du vil have tal på:
Response.Write "<td>" & i + 1 & "</td>"
Response.Write "<td>" & arrNavne(i, 0) & "</td>"
Response.Write "<td>" & arrNavne(i, 1) & "</td>"
Response.Write "</tr>" & vbcrlf
Next
Response.Write "</table>" & vbcrlf

%>

Får fejl på
arrKilde = objRs.GetRows

mvh.
Henrik

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

---

"mahlhn" <mahlhn@ft.dk> skrev i en meddelelse
news:4906d3dd$0$90268$14726298@news.sunsite.dk...
>
>> Så ville jeg rette CSS'en for .kolonne, så den har den font-size, du
>> ønsker. Eller du kunne bruge begge klasser:
>> Response.Write "<div class=""kolonne artikel"">" & vbcrlf
>>
> Selvfølgelig tænkte ikke lige på at bruge begge
>
>> >Jeg har tilføjet dette til koden:
>> >
>> >strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " &
>> >rs("Efternavn")
>> >strLink = "<a href=""person.asp?id=" & _
>> >rs("Id") & """>" & strNavn & "</a>"
>> >
>> >Anciennitet henviser til en nummerrække, kan man få de første 9 numre
>> >til at
>> >vise 01,02,03 osv. istedet for 1,2,3 osv.
>>
>> strAnciennitet = rs("Anciennitet")
>> strAnciennitet = Right("0" & strAnciennitet, 2)
>> - altså: Sæt 0 foran strengen og skær så strengen ned til de to tegn
>> længst til højre.
>
> Skal det se sådan ud:
>
> strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " &
> rs("Efternavn")
> strAnciennitet = rs("Anciennitet")
> strAnciennitet = Right("0" & strAnciennitet, 2)
> strLink = "<a href=""person.asp?id=" & _
> rs("Id") & """>" & strNavn & "</a>"
>
> Virker ikke
>
>> >Kan man nemt udvide med telefonnummer efter navn?
>> >her mener jeg at det ikke behøver at være en del af link men skal stå
>> >under
>> >hinanden:
>> >
>> >Anders 55555555 carsten 55555555
>> >børge 55555555.
>>
>> Ikke helt forstået. Men mere generelt: Ja, du kan skrive hvad som helst.
>> En ASP-fil er jo bare en HTML-fil, som "tilfældigvis" er *genereret* på
>> serveren frem for at ligge som en statisk fil på serveren.
>>
>> Nu dæmrer det: Du vil have en separat kolonne til telefonnumre?
>> Så slipper du nok ikke uden om tabellen, ellers bliver det svært at
>> sikre, at de "aligner", hvis der er fornavne som er så lange, at der
>> kommer linieskift.
>
> Det var netop det jeg tænkte, men jeg kan stadig ikke få tabellen til at
> virke
>
> Her er min kode:
>
> <%
> ' Databaseforbindelse - husk at angive sti til din database
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath("/db/medlemmer.mdb")
> Conn.Open DSN
> ' Vi starter med at tilrette SQL'en:
> strSQL = "SELECT Fornavn, Efternavn, Id" & _
> " FROM medlemmer ORDER BY Fornavn"
>
> Set rs = Conn.Execute(strSQL)
>
> ' Først lægger vi Recordsettet over i et kilde-array
> arrKilde = objRs.GetRows

Snip en masse kode

> Får fejl på
> arrKilde = objRs.GetRows

Prøv med Rs.GetRows
Bjarne

---

bsn wrote in dk.edb.internet.webdesign.serverside.asp:
> "mahlhn" <mahlhn@ft.dk> skrev i en meddelelse
> news:4906d3dd$0$90268$14726298@news.sunsite.dk...
> >
> >> Så ville jeg rette CSS'en for .kolonne, så den har den font-size, du
> >> ønsker. Eller du kunne bruge begge klasser:
> >> Response.Write "<div class=""kolonne artikel"">" & vbcrlf
> >>
> > Selvfølgelig tænkte ikke lige på at bruge begge
> >
> >> >Jeg har tilføjet dette til koden:
> >> >
> >> >strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " &
> >> >rs("Efternavn")
> >> >strLink = "<a href=""person.asp?id=" & _
> >> >rs("Id") & """>" & strNavn & "</a>"
> >> >
> >> >Anciennitet henviser til en nummerrække, kan man få de første 9 numre
> >> >til at
> >> >vise 01,02,03 osv. istedet for 1,2,3 osv.
> >>
> >> strAnciennitet = rs("Anciennitet")
> >> strAnciennitet = Right("0" & strAnciennitet, 2)
> >> - altså: Sæt 0 foran strengen og skær så strengen ned til de to tegn
> >> længst til højre.
> >
> > Skal det se sådan ud:
> >
> > strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " &
> > rs("Efternavn")
> > strAnciennitet = rs("Anciennitet")
> > strAnciennitet = Right("0" & strAnciennitet, 2)
> > strLink = "<a href=""person.asp?id=" & _
> > rs("Id") & """>" & strNavn & "</a>"
> >
> > Virker ikke
> >
> >> >Kan man nemt udvide med telefonnummer efter navn?
> >> >her mener jeg at det ikke behøver at være en del af link men skal stå
> >> >under
> >> >hinanden:
> >> >
> >> >Anders 55555555 carsten 55555555
> >> >børge 55555555.
> >>
> >> Ikke helt forstået. Men mere generelt: Ja, du kan skrive hvad som helst.
> >> En ASP-fil er jo bare en HTML-fil, som "tilfældigvis" er *genereret* på
> >> serveren frem for at ligge som en statisk fil på serveren.
> >>
> >> Nu dæmrer det: Du vil have en separat kolonne til telefonnumre?
> >> Så slipper du nok ikke uden om tabellen, ellers bliver det svært at
> >> sikre, at de "aligner", hvis der er fornavne som er så lange, at der
> >> kommer linieskift.
> >
> > Det var netop det jeg tænkte, men jeg kan stadig ikke få tabellen til at
> > virke
> >
> > Her er min kode:
> >
> > <%
> > ' Databaseforbindelse - husk at angive sti til din database
> > Set Conn = Server.CreateObject("ADODB.Connection")
> > DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> > DSN = DSN & "DBQ=" & Server.MapPath("/db/medlemmer.mdb")
> > Conn.Open DSN
> > ' Vi starter med at tilrette SQL'en:
> > strSQL = "SELECT Fornavn, Efternavn, Id" & _
> > " FROM medlemmer ORDER BY Fornavn"
> >
> > Set rs = Conn.Execute(strSQL)
> >
> > ' Først lægger vi Recordsettet over i et kilde-array
> > arrKilde = objRs.GetRows
>
> Snip en masse kode
>
> > Får fejl på
> > arrKilde = objRs.GetRows
>
> Prøv med Rs.GetRows
> Bjarne

Giver denne fejl
Typerne passer ikke sammen: 'arrNavne'

Mvh.
Henrik

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

---

On 28 Oct 2008 16:34:57 GMT, mahlhn <mahlhn@ft.dk> wrote:


>> Snip en masse kode
>>
>> > Får fejl på
>> > arrKilde = objRs.GetRows
>>
>> Prøv med Rs.GetRows
>> Bjarne

Sorry, jeg er vant til at skrive objekter med obj foran, så den var
smuttet.

>Giver denne fejl
>Typerne passer ikke sammen: 'arrNavne'

I hvilken linie får du fejlen?

Prøv at indsætte:
Dim arrNavne(50, 1)

- før du bruger arrNavne første gang.


PS: Du må gerne cutte i den del af citatet, der ikke har betydning for
dit svar.



Mvh. Jørn

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

---

>>Giver denne fejl
>>Typerne passer ikke sammen: 'arrNavne'
>
> I hvilken linie får du fejlen?
>
> Prøv at indsætte:
> Dim arrNavne(50, 1)
>
> - før du bruger arrNavne første gang.
>
Typerne passer ikke sammen: 'arrNavne'
/medlemmer.asp, line 157

Denne linie:
arrNavne(k - 51, 1) = strLink

Mvh.
Henrik

---

On 28 Oct 2008 08:57:01 GMT, mahlhn <mahlhn@ft.dk> wrote:

>> >Jeg har tilføjet dette til koden:
>> >
>> >strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " & rs("Efternavn")
>> >strLink = "<a href=""person.asp?id=" & _
>> >rs("Id") & """>" & strNavn & "</a>"
>> >
>> >Anciennitet henviser til en nummerrække, kan man få de første 9 numre til at
>> >vise 01,02,03 osv. istedet for 1,2,3 osv.
>>
>> strAnciennitet = rs("Anciennitet")
>> strAnciennitet = Right("0" & strAnciennitet, 2)
>> - altså: Sæt 0 foran strengen og skær så strengen ned til de to tegn
>> længst til højre.
>
>Skal det se sådan ud:
>
>strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " & rs("Efternavn")
>strAnciennitet = rs("Anciennitet")
>strAnciennitet = Right("0" & strAnciennitet, 2)
>strLink = "<a href=""person.asp?id=" & _
>rs("Id") & """>" & strNavn & "</a>"
>
>Virker ikke

Næh, for du udskriver jo ikke strAnciennitet. Byt rundt:

strAnciennitet = rs("Anciennitet")
strAnciennitet = Right("0" & strAnciennitet, 2)

strNavn = strAnciennitet & ". " & rs("Fornavn") & " " & rs("Efternavn")
strLink = "<a href=""person.asp?id=" & _
rs("Id") & """>" & strNavn & "</a>"



Mvh. Jørn

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

---

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> On 28 Oct 2008 08:57:01 GMT, mahlhn <mahlhn@ft.dk> wrote:
>
> >> >Jeg har tilføjet dette til koden:
> >> >
> >> >strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " & rs("Efternavn")
> >> >strLink = "<a href=""person.asp?id=" & _
> >> >rs("Id") & """>" & strNavn & "</a>"
> >> >
> >> >Anciennitet henviser til en nummerrække, kan man få de første 9 numre til at
> >> >vise 01,02,03 osv. istedet for 1,2,3 osv.
> >>
> >> strAnciennitet = rs("Anciennitet")
> >> strAnciennitet = Right("0" & strAnciennitet, 2)
> >> - altså: Sæt 0 foran strengen og skær så strengen ned til de to tegn
> >> længst til højre.
> >
> >Skal det se sådan ud:
> >
> >strNavn = rs("Anciennitet") & ". " & rs("Fornavn") & " " & rs("Efternavn")
> >strAnciennitet = rs("Anciennitet")
> >strAnciennitet = Right("0" & strAnciennitet, 2)
> >strLink = "<a href=""person.asp?id=" & _
> >rs("Id") & """>" & strNavn & "</a>"
> >
> >Virker ikke
>
> Næh, for du udskriver jo ikke strAnciennitet. Byt rundt:
>
> strAnciennitet = rs("Anciennitet")
> strAnciennitet = Right("0" & strAnciennitet, 2)
>
> strNavn = strAnciennitet & ". " & rs("Fornavn") & " " & rs("Efternavn")
> strLink = "<a href=""person.asp?id=" & _
> rs("Id") & """>" & strNavn & "</a>"
>
Så virker det, men jeg har stadig problemer med at få tabellen til at virke.
Hvis man skal bruge udtræk med anciennitet, navn, efternavn, lokalnummer,
telefonnummer og resultatet skal vises i tabeller. på følgende måde:

01. Anders Andersen 9999/99999999 52. Morten Mortensen 8888/88888888
02. Brian Hansen 7777/77777777 53. Peter....
03. ....

Alt skal være justeret i lige kolonner, hvordan kan man lave det?

Mvh.
Henrik
>
> Mvh. Jørn
>
> --
> Jørn Andersen,
> Brønshøj


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

---

On 30 Oct 2008 10:00:47 GMT, mahlhn <mahlhn@ft.dk> wrote:


>Så virker det

Tillykke!

>men jeg har stadig problemer med at få tabellen til at virke.
>Hvis man skal bruge udtræk med anciennitet, navn, efternavn, lokalnummer,
>telefonnummer og resultatet skal vises i tabeller. på følgende måde:
>
>01. Anders Andersen 9999/99999999 52. Morten Mortensen 8888/88888888
>02. Brian Hansen 7777/77777777 53. Peter....
>03. ....
>
>Alt skal være justeret i lige kolonner, hvordan kan man lave det?

Prøv at tænke logisk - baglæns:
1. Hvilken HTML skal til for at skabe det resultat du ønsker?
2. Hvordan kan du skrive den HTML i ASP?
3. Hvordan får du ordnet dine data, så de kommer i en "udskrivbar"
rækkefølge?

Ad. 1:
Jeg forestiller mig, at du ønsker noget i retning af:
<tr><td>Nr.</td><td>Navn</td><td>Tlf.</td>
<td>Nr.</td><td>Navn</td><td>Tlf.</td></tr>
- ok?
Evt. er det bedre at opdele tlf. i to kolonner?
Men forløbig nøjes vi med én.

Ad. 2:
Det er jo næsten mage til hvad du allerede har, så den får du lov til
selv at greje.

Ad. 3:
Da der er lidt array-manipulation involveret, og der udtrkkes med
..Getrows, så er det vigtigt at først at have styr på SQL'en.

De data, du skal have ud er noget i retning af:
strSQL = "SELECT Fornavn, Efternavn, Id, tlf, tlflokal" & _
" FROM medlemmer ORDER BY Fornavn"

Udtræk til arrKilde er uændret.
Men flytningen til arrNavne skal udvides lidt:

For k = 0 To UBound(arrKilde, 2)
strNavn = arrKilde(0, k) & " " & arrKilde(1, k)
strLink = "<a href=""person.asp?id=" & _
arrKilde(2, k) & """>" & strNavn & "</a>"

   ' Udtræk lokalnr (4) og tlf.(3)
   strTlf = arrKilde(4, k) & "/" & arrKilde(3, k)

If k > 50 Then
arrNavne(k - 51, 2) = strLink
arrNavne(k - 51, 3) = strTlf
   Else
arrNavne(k, 0) = strLink
arrNavne(k, 1) = strTlf
End If
Next

Hvad skete der her?
a) I den oprindelige skulle vi kun udtrække "kolonne" 0, 1 og 2 fra
arrKilde. Nu skal vi også have 3 og 4.
Numrene refererer til den rækkefølge de ligger i SQL'en, som jo "fodrer"
arrKilde.
b) I den oprindelige skulle vi så kopiere disse data over i to kolonner
i arrNavne:
Navn (1-51) + Navn (52-90)
Nu skal vi have dem over i 4 kolonner:
Navn (1-51) + Tlf (1-51) + Navn (52-90) + Tlf (52-90)

OK?

Vi skal så lige huske, at arrNavne nu skal dimensioneres med:
Dim arrNavne(50, 3)

Hint til udskriften:
Du skal ikke kun udskrive arrNavne(i, 0) og arrNavne(i, 1), men også 2
og 3.

Håber det giver mening.

Good luck!

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