alfabetiskorden af links
Hej!Jeg vil høre, om der er nogen, der kan fortælle mig, hvordan jeg får nedenstående til at stå i alfabetisk orden (det er links, som der kaldes fra en DB). Jeg har prøvet lidt med denne linie;
strSQL = "SELECT ID, nick, text, dato, tid, id FROM opskrifter WHERE order by nick asc"
- men der får jeg en fejl i linie 106.
Dette er hele min fil;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Systematics homekitchen</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style>@import url("systematic.css");
BODY { SCROLLBAR-FACE-COLOR: #ffffff;
SCROLLBAR-HIGHLIGHT-COLOR: #ff0000;
SCROLLBAR-SHADOW-COLOR: #cccccc;
SCROLLBAR-3DLIGHT-COLOR: #DFDFDF;
SCROLLBAR-ARROW-COLOR: #ff0000;
SCROLLBAR-TRACK-COLOR: #ffffff;
SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
</style>
<style type="text/css">
<!--
.link {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
color: #FF0000;
text-decoration: none;
}
a:hover {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
color: #CCCCCC;
text-decoration: none;
}
-->
</style>
</head>
<body>
<table width="680" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80"><img src="grafik/trans.gif" width="80" height="30" border="0"></td>
<td colspan="2"></td>
</tr>
<tr>
<td></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="2%"><a href="java script: history.go(-1);" onFocus="this.blur()" target="_self"><img src="grafik/trekant_tilbage.gif" width="12" height="17" border="0"></a></td>
<td width="2%"><img src="grafik/trans.gif" width="10" height="6"></td>
<td width="96%"><img src="grafik/overskrifter/sogeresultat.gif" width="397" height="24"></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td><img src="grafik/trans.gif" width="6" height="15"></td>
</tr>
</table></td>
</tr>
<tr>
<td></td>
<td colspan="2" valign="top""> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" class="link">
<%
' Henter værdien fra opskrifter.asp
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
'Response.Clear
Response.Redirect("opskrifter.asp")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, nick, text, dato, tid, id FROM opskrifter WHERE"
strSQL = strSQL & " (nick LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (text LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (dato LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (tid LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DB'en
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("users.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<table border=0>"
Do While Not rs.EOF
response.write "<tr>"
response.write "<td class=""link""><a href='show.asp?id=" & rs.fields("id") & "'>" & rs.fields("nick") & "</a>"
response.write "</td></tr>"
rs.MoveNext
Loop
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p><span class=""broedtxt"">Beklager, der er desværre intet resultat på søgningen!</span></p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
//D
