---

Koden neden for virker, MEN jeg ville gerne kunne ændre lidt i den så, jeg
fra min menu for eks. kunne skrive afdeling.asp?afdeling=edb og jeg så fik
en oversigt over personalet i edb-afd., men det lykkes ikke rigtig for mig.
Men for jer der kan, så er det nok såre simpelt, på forhånd tak... for nogle
altid rigtig gode svar.

Mvh
johs.v

<%
SQL = "select * from personale WHERE afdeling = 'revision' ORDER BY navn"
Set person = Conn.Execute( SQL )
if person.eof then
Response.Write "Der er ingen personer tilknyttet denne afdeling!"
Else
Response.Write "<br>"
Response.Write person("afdeling") & "<br><br>"
do while not person.eof
strLink = "<a href='persondata.asp?telefon=" & person("telefon") & "'>" &
person("navn") & "</a>"
Response.Write strLink
Response.Write "<br>"
person.movenext
loop
End If
%>

---

"Johannes Veje" <jv-data@bigfoot.com> wrote in message
news:a05f4v$2ru9$1@news.cybercity.dk...
> Koden neden for virker, MEN jeg ville gerne kunne ændre lidt i den så, jeg
> fra min menu for eks. kunne skrive afdeling.asp?afdeling=edb og jeg så
fik
> en oversigt over personalet i edb-afd., men det lykkes ikke rigtig for
mig.
> Men for jer der kan, så er det nok såre simpelt, på forhånd tak... for
nogle
> altid rigtig gode svar.

<%
strAfdeling = Request.Querystring( "afdeling" )
If Len(strAfdeling) > 0 Then
strAfdeling = Replace( strAfdeling, "'", "''" )
Else
'Her sætter du hvilken afdeling der skal vises hvis der ikke er nogen
'i querystringn
strAfdeling = "edb"
End If

SQL = "select * from personale WHERE afdeling = '" & strAfdeling & "' ORDER
BY navn"
Set person = Conn.Execute( SQL )
if person.eof then
Response.Write "Der er ingen personer tilknyttet denne afdeling!"
Else
Response.Write "<br>"
Response.Write person("afdeling") & "<br><br>"
do while not person.eof
strLink = "<a href='persondata.asp?telefon=" & person("telefon") & "'>" &
person("navn") & "</a>"
Response.Write strLink
Response.Write "<br>"
person.movenext
loop
End If
%>

--
Jakob Andersen

---

Tusinde tak, det var lige det der skulle til.
Glædelig jul
/
Johs. V

"Jakob Andersen" <jakob@effectus.dk> skrev i en meddelelse
news:a05hin$2uok$1@news.cybercity.dk...
> "Johannes Veje" <jv-data@bigfoot.com> wrote in message
> news:a05f4v$2ru9$1@news.cybercity.dk...
> > Koden neden for virker, MEN jeg ville gerne kunne ændre lidt i den så,
jeg
> > fra min menu for eks. kunne skrive afdeling.asp?afdeling=edb og jeg så
> fik
> > en oversigt over personalet i edb-afd., men det lykkes ikke rigtig for
> mig.
> > Men for jer der kan, så er det nok såre simpelt, på forhånd tak... for
> nogle
> > altid rigtig gode svar.
>
> <%
> strAfdeling = Request.Querystring( "afdeling" )
> If Len(strAfdeling) > 0 Then
> strAfdeling = Replace( strAfdeling, "'", "''" )
> Else
> 'Her sætter du hvilken afdeling der skal vises hvis der ikke er nogen
> 'i querystringn
> strAfdeling = "edb"
> End If
>
> SQL = "select * from personale WHERE afdeling = '" & strAfdeling & "'
ORDER
> BY navn"
> Set person = Conn.Execute( SQL )
> if person.eof then
> Response.Write "Der er ingen personer tilknyttet denne afdeling!"
> Else
> Response.Write "<br>"
> Response.Write person("afdeling") & "<br><br>"
> do while not person.eof
> strLink = "<a href='persondata.asp?telefon=" & person("telefon") & "'>"
&
> person("navn") & "</a>"
> Response.Write strLink
> Response.Write "<br>"
> person.movenext
> loop
> End If
> %>
>
> --
> Jakob Andersen
>
>