jag fått den här med Response .write sql
Select * From FILES WHERE visa = true AND ANNO = false AND kommun LIKE '%%' AND KATEGORI LIKE '%%' OR KATEGORI LIKE '%%' ORDER BY DATUM DESC
och här får ni hela koden
<% intPage = Request("page")
kommun = Request("kommun")
kategori = Request("kategori")
ordsiq = Request("ordsiq")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
set objConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
'kolla dubbel %% i sql sats
strKom = trim(Request.Form("kommun"))
strKat = trim(Request.Form("kategori"))
strFree = trim(Request.Form("ord"))
strSQL = "Select * From FILES WHERE visa = true AND ANNO = false "&_
"AND kommun LIKE '%"& strKom &"%' AND KATEGORI LIKE '%"& strKat &"%' OR KATEGORI LIKE '%"& strFree &"%' ORDER BY DATUM DESC"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("omni.mdb")
objConn.open strDSN
rs.Open strSQL, objConn, 3, 3
If Rs.EOF Then
Response.Write " DET FINNS INGET "
Response.Write"<br><center>"
Response.Write "<a href='JavaScript:history.back(1)'>Tillbaka</a></center>"
Else
%>
<table style="TABLE-LAYOUT: fixed" align="center" cellspacing="2" cellpadding="0" border="0" WIDTH="600" bgcolor="#ff8C00">
<tr>
<td align="center"><h1><a href="faq/default.asp">xxx</a></h1></td>
<td align="center"><h1><a href="kalux.asp">xxxx</a></h1></td>
<td align="center"><h1><a href="salux.asp">xxx</a></h1></td>
<td align="center"><h1><a href="insertx.asp">xxx</a></h1></td>
<td align="center"><h1><a href="hem.asp">xxx</a></h1></td>
</tr></table><h2>
</h2>
<FORM name="kommun" action ="kalux.asp" method="get">
<select name="kommun">
<font face="verdana, Helvetica" size=2>
<option value="">-----------ALLA LÄN----------</option>
<option<%If strS = "Blekinge" Then Response.Write " Selected"%>>Blekinge</option>
<option<%If strS = "Dalarna" Then Response.Write " Selected"%>>Dalarna</option>
<option>asv...Gotland</option>
</select>
<%
strS = Request("kategori")
%>
<select name="kategori">
<option value=""> ----- KATEGORIER -----</option>
<option<%If strS = "grundskla" Then Response.Write " Selected"%>>grundskola</option>
<option<%If strS = "högskola" Then Response.Write " Selected"%>>högskola</option>
<option>osv...</option>
<OPTION VALUE=""></option>
</select><p><input type="text" size="30" name="ord">
<INPUT title="sök" style="BORDER-TOP-WIDTH: 1px;BORDER-LEFT-WIDTH:
1px; BORDER-LEFT-COLOR: #000000; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #000000;
WIDTH: 342px; BORDER-TOP-COLOR: #000000; HEIGHT: 22px; BACKGROUND-COLOR: #FFFFFF;
BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #000000" type=submit value=SÖK name=sök size=1119></FORM><br>
<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 %>
<!-- HÄR SKRIVS UT TEXTEN I TABELLEN -->
<table style="TABLE-LAYOUT: fixed" align="center" cellspacing="0" cellpadding="0" border="0" WIDTH="600">
<tr style="HEIGHT: 18px" onMouseOver="this.style.backgroundColor='#FFFFFC';" onMouseOut="this.style.backgroundColor='';">
<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 = 350 NOWRAP><a href="visa3.asp?id=<%=TRIM(Server.HTMLEncode(Rs("ID"))) %>"><% =TRIM(Server.HTMLEncode(Rs("rubrik")))%></a></td>
<td align=left WIDTH = 150><h5> <% = TRIM(Server.HTMLEncode(Rs("kategori")))%></h5></td>
</tr><hr Size=1 NOSHADE Color="#FFFCC0">
</table>
<!-- Tabell slut -->
<% intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå till sida "
For intNum = 1 To intPageCount
Response.Write "<a href=""kalux.asp?page=" & intNum & "&kommun=" & Server.URLEncode(kommun) & "&kategori=" & Server.URLEncode(kategori) & """>" & intNum & "</a> "
Next
End if
%>

