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.
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
<% 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
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
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.
Tak for hjælpen begge to. :-)
Slettet bruger
31. maj 2006 - 22:04
#5
- det var så lidt... og tak for point! \Dan
Kurser inden for grundlæggende programmering