webForumDet fria alternativet

a good one

3 svar · 192 visningar · startad av cupy

cupyMedlem sedan apr. 2002300 inlägg
#1

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
#2

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
#3

om du bara ska hämta ett inlägg så kör med

SELECT TOP 1 * FROM .....
cupyMedlem sedan apr. 2002300 inlägg
#4

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&Ouml;K name=Enter></FORM><br>
<% If anno=killar Then 
 response.write"killar &nbsp;"%><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>&nbsp;&nbsp;&nbsp;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>&nbsp;&nbsp;<% =TRIM(Server.HTMLEncode(Rs("land")))%></h5></td>
	    <td align=left WIDTH = 120><h5>&nbsp;&nbsp;<% =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>
Genererad på 386 ms · cache AV · v20260730165559-full.f96bc7eb