her har du den fil der hedder "case"
<%
mycase = request.QueryString("mycase")
SELECT CASE mycase
case"seach"
'if request.servervariables("request_method") = "POST" then
dim searchSpecified
dim searchCriteriaFields
dim fieldInfo
dim formFieldName
dim dbFieldName
dim fld
dim sql
dim params
dim search
search = Request.Form("search") & ""
' Benyttes til at indikere om der er specificeret nogle parametre
searchSpecified = false
' Benyttes til at beskrive hvilke felter i formularen der skal
' betragtes som kriteriefelter og hvilke felter de skal oversættes
' til i databasen. Disse oplysninger er adskilt med pipe (|).
' Kommer der flere kriterier i formularen, tilføjes disse blot
' i nedenstående liste på samme måde som de to eksisterende...
searchCriteriaFields = array("farve|haarid","skat|gruppeid")
params = array()
sql = "SELECT * FROM bruger WHERE "
if search <> "" then
sql = sql & "brugernavn LIKE '%'+?+'%' "
call addParam(params, search)
searchSpecified = true
end if
' Gennemløb formfelter i det postede og opbyg SQL-sætningen
' på grundlag af det, med formfeltets navn, matchede databasefelt.
' NB: Alle valgte kriterier skal matche for at brugeren medtages!
for each fld in searchCriteriaFields
fieldInfo = split(fld,"|")
formFieldName = fieldInfo(0)
dbFieldName = fieldInfo(1)
if Request.Form(formFieldName) & "" <> "" then
' Hvis der er mindst én parameter i forvejen, skal der
' indsættes AND mellem denne og den forrige parameter
' eller skal searchSpecified sættes til at indikere at der nu
' er angivet mindst én parameter...
if searchSpecified then
sql = sql & "AND "
else
searchSpecified = true
end if
sql = sql & dbFieldName & "=? "
call addParam(params, Request.Form(formFieldName))
end if
next
' Hvis der var mindst et kriterium specificeret, så akal
' opslaget i databasen udføres, eller ikke...
if searchSpecified then
'Response.Write "SQL:<br>" & sql & "<br>"
'Response.Write "Params:<br>" & join(params,",") & "<br>"
set cmd = createCommand(sql)
set rs = cmd.Execute(, params)%>
Resultater
<div class="pager"></div>
<table border="0" width="400" cellpadding="3" cellspacing="3" class="pageme">
<tbody>
<tr>
<td bgcolor="#CCCCCC"><span class="Overskrift">Brugernavn</span></td>
</tr>
<% if not rs.eof then
do while not rs.eof%>
<tr>
<td bgcolor="#CCCCCC"><span class="brodtekst"><a href="search1.asp?mycase=showseachs&id=<%=rs("ID")%>"><%=rs("brugernavn")%></a></span></td><br /><br />
</tr>
<%rs.movenext
loop%>
</tbody>
</table>
<div class="pager"></div>
<%else
Response.Write "Der var ingen brugere som matchede dine kriterier"
end if
rs.Close
else
Response.Write "Der var ikke specificeret nogle kriterier"
end if
%>
<%
case"showseachs"
id = request.QueryString("id")
sql = "SELECT * FROM bruger,haarfarve,grupper WHERE bruger.haarid=haarfarve.hid and bruger.gruppeid=grupper.gid and ID="&id
set rs = Conn.Execute(sql)
%>
<a href='java script:history.back()'>Tilbage</a>
<br /> <br />
<%do until rs.eof %>
<b>Brugernavn:</b> <br /><%=rs("brugernavn")%><br /><br />
<b>Hårfarve:</b> <br /><%=rs("farve")%><br /><br />
<b>Landsdel:</b><br /><%=rs("gruppenavn")%><br /><br />
<b>Profiltekst:</b><br /> <%=rs("bruger_tekst")%><br /><br />
<%rs.movenext
loop %>
<a href='java script:history.back()'>Tilbage</a>
<%
Case "searchres"
strSearch = replace(request.form("strsearch"),"'","''")
If strSearch = "Søg" then
Response.Redirect "search.asp"
Elseif strSearch = "" then
Response.Write("Du har ikke indtastet noget i søg feltet")
else
'%"&soeg&"%'
sql = "SELECT * FROM bruger WHERE brugernavn LIKE '%"&strSearch&"%'"
set rs = Conn.Execute(sql)
pid = Request.QueryString("pid")
Response.Write("<h3>Resultater </h3>")
If rs.bof then
Response.Write("Søgningen gav intet resultat")
end if
%>
<div class="pager"></div>
<table border="0" width="400" cellpadding="3" cellspacing="3" class="pageme">
<tbody>
<tr>
<td bgcolor="#CCCCCC"><span class="Overskrift">Brugernavn</span></td>
</tr>
<%do until rs.eof%>
<tr>
<td bgcolor="#CCCCCC"><span class="brodtekst"><a href="search1.asp?mycase=showseachs&id=<%=rs("ID")%>"><%=rs ("brugernavn")%></a></span></td>
</tr>
<%
rs.movenext
loop
%>
</tbody>
</table>
<div class="pager"></div>
<%
end if
%>
<%
end select
%>
