ASP Søgemaskine.
Hejsa NG.Jeg har fået denne udemærket søgemaskine af en anden herinde. Men jeg har lidt probs med den.
Jeg vil have den til at linke, men den vil ikke hente id.
Jeg prøvede at sætte det ind på denne her måde, men ID bliver ikke hentet.
Nogen der kan hjælpe?
strOutput = objRegPath.Replace(strInput, "<a href='trailer.asp?id=" & id & "'>" & "<span style='background-color: #FFFF00'>$1</span></a>" & "<br>")
Her kommer hele koden:
<% hvilket = Request.Form("hvilken") %>
<html>
<head>
<title>Søgeside</title>
</head>
<BODY>
<% if hvilket = "" then %>
Søgeord:
<form action="soeg.asp" method="post">
<input type="Text" name="hvilken" size="20"><input type="Submit" value="SØG">
</form>
<% else %>
<%
Dim objRec, antal
antal = 0
Set Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data.mdb")
objRec.Open "SELECT * FROM trailer WHERE titel like '%" & hvilket & "%'",conn,1,3
antal = objRec.recordcount
if antal > 0 then
Response.write "Jeg fandt " & antal & ", der svarede til dit søgekriterie<br><br>"
%>
<% While Not objRec.EOF %>
<% = markString(objRec("Titel"),hvilket) %>
<%
objRec.MoveNext
Wend
objRec.Close
Set objRec = Nothing
Conn.Close
Set conn = Nothing
%>
<form action="soeg.asp" method="post">
Søg igen:
<input type="Text" name="hvilken" size="20"><input type="Submit" value="SØG"> </h2>
</form>
<%
else
Response.write "<h1><font color='#FF0000' face='Arial'> Desværre, navnet du søgte findes ikke i databasen!</font></h1>"
%>
<form action="soeg.asp" method="post">
Søg igen:
<input type="Text" name="hvilken" size="20"><input type="Submit" value="SØG">
</form>
<%
end if
end if
%>
</body>
</html>
<%
Function markString(strInput,findStr)
Set objRegPath = New RegExp
objRegPath.Global = true
objRegPath.IgnoreCase = True
objRegPath.Pattern = "("&findStr&")"
strOutput = objRegPath.Replace(strInput, "<a href='trailer.asp?id=" & id & "'>" & "<span style='background-color: #FFFF00'>$1</span></a>" & "<br>")
Set objRegPath = Nothing
markString = strOutput
End Function
%>
