cupyMedlem sedan apr. 2002300 inlägg
Den funkar inte korrekt och jag får inte felmeddelande heller! Den vill inte hämta den senaste inlägget helt enkelt
strSQL = "Select * From FILES WHERE ANNO = 'tj' AND LAND LIKE '%" & Request("land") & "%' AND KATEGORI LIKE '%" & Request("kategori") & "%' ORDER BY [DATUM] DESC"
Om jag tar bort anno då funkar perfekt.
ANNO är en kollumn med tjejjer eller killar[tj eller ki], och här sorterar jag ut de.
Vad är felet ?
LarsGMedlem sedan dec. 200012 465 inlägg
Jag ser inget fel i sql-satsen. Du får kontrollera att det verkligen finns någon post som uppfyller villkoren.
renholmMedlem sedan apr. 20012 048 inlägg
om du bara ska hämta ett inlägg så kör med
SELECT TOP 1 * FROM .....
cupyMedlem sedan apr. 2002300 inlägg
Jag hämtar flera inlägg!
Men vad kan bli fel ?
här är min kod kanske ni ser mer om jag visar allt
<% intPage = Request("page")
land = Request("land")
kategori = Request("kategori")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
set objConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select Distinctrow * From FILES WHERE ANNO='killar' AND land LIKE '%" & Request("land") & "%' AND KATEGORI LIKE '%" & Request("kategori") & "%' ORDER BY DATUM DESC"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("databas.mdb")
objConn.open strDSN
rs.Open strSQL, objConn, 3, 3
If Rs.EOF Then
Response.Write"Tyverr hittade ingen uppgifter i denna kategory/land"
Response.Write"<br><center>"
Response.Write "<a href='JavaScript:history.back(1)'>Tillbaka</a></center>"
Else
%>
<%= land %>
<%
strS = Request("land")
%>
<FORM name="land" action ="jw.asp" method="get">
<select name="land">
<font face="verdana, Helvetica" size=2>
<option value="">------ ALLA LÄNDER -----</option>
<option<%If strS = "danmark" Then Response.Write " Selected"%>>Danmark</option>
<option<%If strS = "england" Then Response.Write " Selected"%>>England</option>
<option<%If strS = "norge" Then Response.Write " Selected"%>>Norge</option>
<option<%If strS = "sverige" Then Response.Write " Selected"%>>Sverige</option></select>
<%
strSt = Request("kategori")
%>
<select name="kategori">
<option value=""> ----- KATEGORIER -----</option>
<option<%If strSt = "fysik" Then Response.Write " Selected"%>>fysik</option>
<option<%If strSt = "matte" Then Response.Write " Selected"%>>matte</option>
<option<%If strSt = "musik" Then Response.Write " Selected"%>>musik</option>
<option<%If strSt = "kemi" Then Response.Write " Selected"%>>kemi</option>
</select><p>
<INPUT type=submit value=SÖK name=Enter></FORM><br>
<% If anno=killar Then
response.write"killar "%><br>
<table style="TABLE-LAYOUT: fixed" align="center" cellspacing="2" cellpadding="0" border="0" WIDTH="560">
<tr valign="bottom">
<td align=left WIDTH = 100><h4>Datum</h4></td>
<td align=left WIDTH = 350><h4> Rubrik</h4></td>
<td align=left WIDTH = 100><h4>Kategori</h4></td></tr></table>
<%
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Sida " & intPage & " av " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0 %>
<table style="TABLE-LAYOUT: fixed" align="center" cellspacing="0" cellpadding="0" border="0" WIDTH="600">
<tr style="HEIGHT: 18px">
<td align=left WIDTH = 90><h5><%= FormatDateTime(Rs("datum"),2)%></h5></td><td align=left WIDTH = 15 NOWRAP><%IF trim(Rs("filename") & "") <> "" then%>
<a href="uploaded/<%= replace(Rs("filename"),"_th", "_or") %>"><img src="mpix/pil.gif" border=0 alt="bild" height="9" width="10"></a><%end if%></td>
<td align=left WIDTH = 300 NOWRAP><a href="visa3.asp?id=<%=TRIM(Server.HTMLEncode(Rs("ID"))) %>"><% =TRIM(Server.HTMLEncode(Rs("rubrik")))%></a></td>
<td align=left WIDTH = 120><h5> <% =TRIM(Server.HTMLEncode(Rs("land")))%></h5></td>
<td align=left WIDTH = 120><h5> <% =TRIM(Server.HTMLEncode(Rs("kategori")))%></h5></td>
</tr><hr Size=1 NOSHADE Color="#FFFCC0"></table>
<% intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til sida "
For intNum = 1 To intPageCount
Response.Write "<a href=""jw.asp?page=" & intNum & "&land=" & Server.URLEncode(land) & "&kategori=" & Server.URLEncode(kategori) & """>" & intNum & "</a> "
Next
End if
End if
%>
</div>