Avatar billede frank74 Nybegynder
31. maj 2006 - 17:23 Der er 3 kommentarer og
2 løsninger

Sortering af tabel

Hej igen igen...

Lille spørgsmål til følgende script:

------------------------------------------------------

<html>
<head>
<title>Administrer Kalender</title>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" type="text/css" href="../../STYLE/style.css">
</head>
<body background="../../IMAGES/startile.gif">

<div style="text-align:center">

<table border="0" cellpadding="0" cellspacing="0" width="600" height="10%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
  <td>

<br><br>
<div style="text-align:center">
<a href="print_kalender.asp" target="_blank">Printer venlig version</a>
</div>

<form action="Administrer_kalender_slet.asp" method="post">

<table width="100%" border="1">
<tr align="center">
  <td><h1><strong>Slet</td></h1></strong>
  <td><h1><strong>Ret</td></h1></strong>
  <td><h1><strong>Dato</td></h1></strong>
  <td><h1><strong>Sted/Begivenhed</td></h1></strong>
  <td><h1><strong>By</td></h1></strong>
</tr>
<%
' 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("../../DATABASER/kalender.mdb")
Conn.Open DSN

strSQL = "Select * From Kalender Order By Dato Asc"
Set rs = Conn.Execute(strSQL)

do while not rs.EOF
id = rs("Id")
%>
<tr align="center">
  <td><input type="checkbox" name="check" value="<% =rs("id") %>"></td>
  <td align="center"><font><a href="ret_kalender.asp?id=<%=id%>">Ret</a></font></td>
    <td><font><% Response.Write FormatDateTime(rs("Dato"), vbLongDate) & "" %></font></td>
  <td><font><% =rs("Sted") %></font></td>
  <td><font><% =rs("City") %></font></td>
</tr>
<%
  rs.MoveNext
loop

rs.close
Conn.Close
Set Conn = Nothing
%>
</table>
<br>
<input type="submit" value="Slet valgte">

</form>

  </td>
</tr>
</table>

</div>

</body>
</html>

------------------------------------------------------

Scriptet vil jeg gerne have lavet om således at "Dato", "sted/Begivenhed" og "By" bliver lavet til Links. Når man trykker på linket bliver tabellen sorteret efter hvilket link man har trykket på.
På forhånd tak.
Avatar billede mitbrugernavn Praktikant
31. maj 2006 - 17:32 #1
<%
if request("vis") <> "" then

strSQL = "Select * From Kalender Order By " & request("vis") & " Asc"
else
strSQL = "Select * From Kalender Order By Dato Asc"
end if
Set rs = Conn.Execute(strSQL)

do while not rs.EOF
id = rs("Id")
%>
<tr align="center">
  <td><input type="checkbox" name="check" value="<% =rs("id") %>"></td>
  <td align="center"><font><a href="ret_kalender.asp?id=<%=id%>">Ret</a></font></td>
    <td><font><a href="det siden her hedder?vis=<%="Dato"%>" ><% Response.Write FormatDateTime(rs("Dato"), vbLongDate) & "" %></a></font></td>
  <td><font><a href="det siden her hedder?vis=<%="Sted"%>" ><% =rs("Sted") %></a></font></td>
  <td><font><a href="det siden her hedder?vis=<%="City"%>" ><% =rs("City") %></a></font></td>
</tr>
<%
  rs.MoveNext
loop

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

husk lige at rette stien på dine link til
Avatar billede Slettet bruger
31. maj 2006 - 17:33 #2
Sådan her... eller hvordan:?

<html>
<head>
<title>Administrer Kalender</title>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" type="text/css" href="../../STYLE/style.css">
</head>
<body background="../../IMAGES/startile.gif">

<div style="text-align:center">

<table border="0" cellpadding="0" cellspacing="0" width="600" height="10%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
  <td>

<br><br>
<div style="text-align:center">
<a href="print_kalender.asp" target="_blank">Printer venlig version</a>
</div>

<form action="Administrer_kalender_slet.asp" method="post">

<table width="100%" border="1">
<tr align="center">
  <td><h1><strong>Slet</td></h1></strong>
  <td><h1><strong>Ret</td></h1></strong>
  <td><h1><strong><a href="<%=request.servervariables("script_name")%>">Dato</a></td></h1></strong>
  <td><h1><strong><a href="<%=request.servervariables("script_name")%>?sort=sted">Sted/Begivenhed</a></td></h1></strong>
  <td><h1><strong><a href="<%=request.servervariables("script_name")%>?sort=by">By</a></td></h1></strong>
</tr>
<%
' 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("../../DATABASER/kalender.mdb")
Conn.Open DSN
sort = request.querystring("sort")
if sort = "" then
sort = "Dato Asc"
elseif sort = "sted" then
sort = "Sted"
elseif sort = "by" then
sort = "City"
end if


strSQL = "Select * From Kalender Order By " & sort & ""
Set rs = Conn.Execute(strSQL)

do while not rs.EOF
id = rs("Id")
%>
<tr align="center">
  <td><input type="checkbox" name="check" value="<% =rs("id") %>"></td>
  <td align="center"><font><a href="ret_kalender.asp?id=<%=id%>">Ret</a></font></td>
    <td><font><% Response.Write FormatDateTime(rs("Dato"), vbLongDate) & "" %></font></td>
  <td><font><% =rs("Sted") %></font></td>
  <td><font><% =rs("City") %></font></td>
</tr>
<%
  rs.MoveNext
loop

rs.close
Conn.Close
Set Conn = Nothing
%>
</table>
<br>
<input type="submit" value="Slet valgte">

</form>

  </td>
</tr>
</table>

</div>

</body>
</html>

\Dan
Avatar billede frank74 Nybegynder
31. maj 2006 - 18:02 #3
Hmmm. 2 svar... Sikke et dilemma. :-)
mitbrugernavn -> selvom du var hurtigst kan jeg bedre li´ Dans forslag. Der er det kunne "overskriften" der bliver til et link. Håber det er ok med pointfordelingen.
Avatar billede frank74 Nybegynder
31. maj 2006 - 18:02 #4
Tak for hjælpen begge to. :-)
Avatar billede Slettet bruger
31. maj 2006 - 22:04 #5
- det var så lidt... og tak for point!

\Dan
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester