LIKE søgesning i Database, med returnering af resultat (HASTER)!
Jeg sidder og roder med en søge funktion, som jeg har bygget op på denne måde :<form method="post" action="/links1/result.asp">
<input type="text" name="Sword" size="18">
<input type="submit" value="Submit" name="B1">
</form>
Dette bliver som skrevet sendt til result.asp hvor koden for søgningen ser sådanne ud :
<%
response.buffer = true
Set Rslinks = Server.CreateObject("ADODB.Connection")
Rslinks.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\XXX\XXXX\XXXXX.mdb"
strquery = Trim(request.form("Sword"))%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="522" height="50">
<tr>
<td width="100%" height="16" valign="top"><!-- #include file="menu.inc"--></td></td>
</tr>
<tr>
<td width="100%" bgcolor="#336699" height="16">
<p align="left"><b><font face="Verdana" size="2" color="#FFFFFF">
SØGERESULTAT</font></b></td>
</tr>
<tr>
<td width="100%" height="1">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="522">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<% strresult ="select url, beskrivelse, titel from sider where"
strresult = strresult&" ( soeg1 LIKE '%" & strquery & "%')"
strresult = strresult&" or ( soeg2 LIKE '%" & strquery & "%')"
strresult = strresult&" or ( soeg3 LIKE '%" & strquery & "%')"
strresult = strresult&" or ( soeg4 LIKE '%" & strquery & "%')"
strresult = strresult&" or ( soeg4 LIKE '%" & strquery & "%')"
strresult = strresult&" or ( beskrivelse LIKE '%" & strquery & "%')"
strresult = strresult&" or ( titel LIKE '%" & strquery & "%')"
response.write strresult
set print = Rslinks.execute(strresult)
while Not print.eof
url = print("url")
beskrivelse = print("beskrivelse")
titel = print("titel") %>
<tr>
<td width="100%"><font face="Verdana" size="2"><a href="<%=url%>"><%=titel%></a></font></td>
</tr>
<tr>
<td width="100%"><font face="Verdana" size="2"><%=beskrivelse%></font></td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
<%
print.movenext
wend%>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="22" valign="bottom">
<p align="center"><font face="Verdana" size="1"><b>Denne service er endnu
ikke helt færdig<br>
</b>Alle Rettigheder til at
slette og ændre tekst forbeholdes.</font></td>
</tr>
</table>
