Dooh..
Den her skulle gerne virke:
Læg mærke til at jeg bruger request i stedet for request.form
<%
strKEYWORD = Trim(Request(\"KEYWORD\"))
strAMTKEYWORD = Trim(Request(\"AMT\"))
strBYKEYWORD = Trim(Request(\"BY\"))
strKATEGORIKEYWORD = Trim(Request(\"KATEGORI\"))
strPOSTNRKEYWORD = Trim(Request(\"POSTNR\"))
strUGEKEYWORD = Trim(Request(\"UGE\"))
If Len(strKEYWORD) = 0 Then
Response.Clear
Response.Redirect(\"../grundsten/main.asp\")
Else
strKEYWORD = Replace(strKEYWORD,\"\'\",\"\'\'\")
End If
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
\' Her kommer SQLstrengen!
strSQL = \"SELECT * FROM VARE WHERE\"
IF strAMTKEYWORD = \"ALLE\" THEN
strSQL = strSQL & \" AMT LIKE \'%amt%\'\"
ELSE
strSQL = strSQL & \" AMT = \'\" & strAMTKEYWORD & \"\'\"
END IF
IF strBYKEYWORD = \"ALLE\" THEN
strSQL = strSQL & \" AND (BY LIKE \'%a%\' OR \'%e%\' OR \'%i%\' OR \'%o%\' OR \'%u%\' OR \'%ø%\' OR \'%æ%\' OR \'%å%\')\"
ELSE
strSQL = strSQL & \" AND BY = \'\" & strBYKEYWORD & \"\'\"
END IF
IF strKATEGORIKEYWORD = \"ALLE\" THEN
strSQL = strSQL & \" AND KATEGORI LIKE \'%beklædning%\'\"
ELSE
strSQL = strSQL & \" AND KATEGORI = \'\" & strKATEGORIKEYWORD & \"\'\"
END IF
IF strPOSTNRKEYWORD = \"ALLE\" THEN
strSQL = strSQL & \" AND POSTNR BETWEEN 100 AND 10000\"
ELSE
strSQL = strSQL & \" AND POSTNR = \" & strPOSTNRKEYWORD & \"\"
END IF
IF strUGEKEYWORD = \"ALLE\" THEN
strSQL = strSQL & \" AND UGE BETWEEN 0 AND 53\"
ELSE
strSQL = strSQL & \" AND UGE = \" & strUGEKEYWORD & \"\"
END IF
strSQL = strSQL & \" AND (VARENAVN = \'\" & strKEYWORD & \"\' OR VAREBESKRIVELSE LIKE \'%\" & strKEYWORD & \"%\')\"
\'Opretter forbindelse til databasen og udfører SQLstrengen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../soeg/lavprisvarehus.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<br><br>\"
rs.PageSize = 1
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
Response.Write \"<div align=\"\"center\"\"><br><br><br><table bgcolor=\"\"black\"\" width=\"\"80%\"\" cellspacing=\"\"1\"\" cellpadding=\"\"2\"\" border=\"\"0\"\"><tr bgcolor=\"\"#FF9933\"\" class=\"\"underbanner\"\"><td width=\"\"10%\"\">Vare</td><td width=\"\"15%\"\">Beskrivelse</td><td width=\"\"20%\"\">Evt. bemærkning</td><td width=\"\"10%\"\">Førpris</td><td width=\"\"10%\"\">Tilbudspris</td><td width=\"\"5%\"\">Uge</td><td>Forhandler</td></tr>\"
Do While Not rs.EOF And intRecCount > 0
Response.Write \"<tr bgcolor=\"\"white\"\"><td>\" & rs(\"VARENAVN\") &\"</td><td>\" & rs(\"VAREBESKRIVELSE\") &\"</td><td>\"& rs(\"DIVERSE\") &\"</td><td>\" & FormatCurrency(rs(\"PRISFOER\"),2) & \"</td><td>\"& FormatCurrency(rs(\"PRISNU\"),2) &\"</td><td>\"& rs(\"UGE\") &\"</td><td>\"& rs(\"FIRMANAVN\") & \", \" & rs(\"ADRESSE\") & \", \"& rs(\"POSTNR\") & \" \" & rs(\"BY\") & \"</td></tr>\"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
Response.Write \"</table></div>\"
ELSE
Response.Write \"<br><br><div align=\"\"center\"\">Søgningen på \'\"& strKEYWORD &\"\' gav intet resultat!</div>\"
END IF
rs.Close
Set rs = Nothing
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<a href=result.asp?page=\" & intNum & \" target=\"\"target\"\">\" & intNum & \"</a> \"
Next
query = \"KEYWORD=\" & strKEYWORD & \"&AMT=\" & strAMTKEYWORD & \"&BY=\" & strBYKEYWORD & \"&KATEGORY=\" & strKATEGORIKEYWORD & \"&POSTNR=\" & strPOSTNRKEYWORD & \"&UGE=\" & strUGEKEYWORD
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=result.asp?\" & query & \"&page=\" & intPage - 1 & \"><<</a>\"
Else
Response.Write \"<<\"
End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=result.asp?\" & query & \"&page=\" & intPage + 1 & \" target=target>>></a> \"
Else
Response.Write \">>\"
End If
%>
