og her er koden:
<% if request.querystring("vis") = "searchresultat" then
searchfor = request.form("searchfor")
if searchfor = "" then searchfor = ""
%>
<h1>Søge resultat</h1>
Du har søgt på : <%=searchfor%> <br><br>
<a href="file_tree.asp" target="_self">Tryk her for at genåbne filtræet</a>
<hr><br>
<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("prg.mdb")
R1 = request.form("R1")
C1 = request.form("C1")
C2 = request.form("C2")
C3 = request.form("C3")
C4 = request.form("C4")
If R1 = "v" and C1 = "YES" and C2 = "YES" and C3 = "YES" and C4 = "YES" Then
SQL = "SELECT * FROM documents WHERE filename like '%" & searchfor & "%' ORDER BY filename"
elseif R1 = "w" and C1 = "YES" and C2 = "YES" and C3 = "YES" and C4 = "YES" Then
SQL = "SELECT filname, filetype FROM documents WHERE filename like '%" & searchfor & "%' AND filetype like '%w%' ORDER BY filename"
elseif R1 = "p" and C1 = "YES" and C2 = "YES" and C3 = "YES" and C4 = "YES" Then
SQL = "SELECT filname, filetype FROM documents WHERE filename like '%" & searchfor & "%' AND filetype like '%p%' ORDER BY filename"
elseif R1 = "x" and C1 = "YES" and C2 = "YES" and C3 = "YES" and C4 = "YES" Then
SQL = "SELECT filname, filetype FROM documents WHERE filename like '%" & searchfor & "%' AND filetype like '%x%' ORDER BY filename"
end if
Set RS = Conn.Execute(SQL)
count = 0
if RS.eof then
response.write "<b>0 resultater</b>"
end if
Do While Not RS.EOF
count = count + 1
%>
<%=count%>.)<a href="\\fp02-f01\CF01-GRP\Projekter\DPP\PRG\Attachements\Active attachements\<%=RS("patch")%>\<%=RS("filename")%>" target="_blank"> <%=RS("filename")%></a> <br><br>
<% RS.MoveNext
Loop
RS.close
set RS = nothing
Conn.close
set Conn = nothing %>
<br>
<hr>
<% if count <> 0 then %>
Der var i alt <%=count%> resultater der matchede din søgning.
<% end if %>
<% else %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Word Excel Powerpoint Ved ikke</title>
<base target="contents">
</head>
<body>
<FORM action="search.asp?vis=searchresultat "method=POST id=searchsystem name=searchsystem>
<p align="center" style="position: absolute; left: 9px; top: 1px; width: 990px; height: 69px" id="search">
<input type="submit" value="Søg" name="Søg">
<input type="text" name="searchfor" size="49" value="skriv navn på document her!"> <br>
<input type="radio" value="w" name="R1">Word
<input type="radio" value="e" name="R1">Excel
<input type="radio" value="p" name="R1">Powerpoint
<input type="radio" value="v" checked name="R1">Ved ikke<br>
<input type="checkbox" name="C1" value="YES">Training
<input type="checkbox" name="C2" value="YES">Presentations
<input type="checkbox" name="C3" value="YES">Examples
<input type="checkbox" name="C4" value="YES">Templates
</FORM>
</p>
</body>
</html>
<% end if %>
Ny bruger
Nybegynder
Opret
Preview
