Lägg in .querystring("pick") som ett hiddenfält och ge den värdet där istället. :)
Har en sida med en design, dvs, dom innehallet pa sidan inkluderas beroende pa vilken lank man klickar pa.
Nu har jag ett litet problem har, har en sokfunktion som blir inkluderad, det funkar ju fint med bara formularet, men sen nar den ska lista resultaten pa samma sida,
dvs om inte formularen ar tomma sa ska nagot listas ut.
Men da maste jag ha i formularet: method=Get action=default.asp?pick=search, men kommer da till default endast... varfor? Sa har ser det ut...
<%
strName = request.form("name")
strCat = request.form("category")
IF strName = "" then
%>
<b>Sök efter skript, du kan välja kategori och namn på skriptet.</b><br><br>
<form name="search" method="get" action="default.asp?pick=search">
<input type="text" name="name"> i kategori
<select name="category">
<%
strGetCats = "Select * from t_FilesCat"
set rs = objConn.execute(strGetCats)
%>
<option value="all">Alla kategorier</option>
<%
Do Until rs.eof
response.write "<option value="""&rs("CatName")&""">"&rs("CatName")&"</option>"
rs.movenext
loop
%>
</select>
<input type="submit" value="Sök skript">
</form>
<%
Else
If strCat = "all" then
strList = "SELECT t_Files.*, t_FilesCat.* FROM t_Files INNER JOIN t_FilesCat ON t_Files.CatID = t_FilesCat.CatID "&_
"Where controlled = True AND scriptName LIKE '%"&strName&"%'"
Else
strList = "SELECT t_Files.*, t_FilesCat.* FROM t_Files INNER JOIN t_FilesCat ON t_Files.CatID = t_FilesCat.CatID "&_
"Where controlled = True AND scriptName LIKE '%"&strName&"%' AND catName = '"&strCat&"'"
End IF
set rs = objConn.execute(strList)
If rs.eof then
response.write "<br><br><center><b>Det fanns inget som matchade din sökning.</b></center>"
Else
Do Until rs.eof
response.write "<table width=""100%"" cellpadding=""4"" bgcolor=""#eeeeee"" cellspacing=""0"">"&_
"<tr><td><b>"
If rs("catName") <> ref then
response.write rs("catName")
End IF
response.write "</b></td></tr></table>"
response.write "<table width=""100%"" cellpadding=""2"" bgcolor=""#ffffff"" cellspacing=""0"">"&_
"<tr><td width=""20%"" valign=""top""><a title="""&rs("fileDesc")&""" href=""includes/script_count.asp?fileID="&rs("fileID")&"&filename="&Server.HTMLEncode(rs("fileURL"))&""">"&rs("scriptName")&"</a></td>"&_
"<td width=""20%"" valign=""top"">"&rs("dt")&"</td>"&_
"<td width=""10%"" valign=""top""><font title=""Nerladdad "&rs("downloaded")&" gång(er)"">"&rs("downloaded")&"</font></td></tr></table>"
ref = rs("catName")
rs.movenext
loop
End IF
End IF
%>





![[AMD]Zmasters avatar](/av/3411.gif)