ASP - intet i søgefelt
HejsaJeg er begyndt at lege med ASP og har hentet et script ned fra nettet der søger i en Access database, jeg har modificeret det lidt så det passer til min database.
Nu er spørgsmålet så, hvis jeg nu lader vær\' med at indtaste noget i søgefeltet og så klikker på Søge-knappen, hvordan for jeg så ASP-scriptet til at udføre en eller anden funktion hvor der f.eks. bliver skrevet \"Din søgning gav intet resultat\" ?
Dette er mit ASP-script:
<HTML>
<HEAD>
<LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"style.css\">
<TITLE>.:: iNEC ::.</TITLE>
<script language=\"JavaScript\">
function co(element,mode) {
if (mode==\"in\") {
cursortype = \'default\'
colorval = \'#FFD700\'
} else if (mode==\"out\") {
cursortype = \'\'
colorval = \'#FFFFEB\'
}
element.style.background=colorval;
element.style.cursor=cursortype;
}
</script>
</HEAD>
<BODY TOPMARGIN=\"10\" LEFTMARGIN=\"10\">
<form action=\"search.asp\" method=\"post\">
<table border=0 cellspacing=0 cellpadding=0>
<tr><td><b class=\"text-search\">Søgeord:</font></td><td width=5></td><td><input type=\"text\" name=\"soeg\"></td><td width=5></td><td><input type=\"submit\" name=\"submit\" value=\"Search\"></td></tr>
</table>
</form>
<br>
<%
If Request.Form(\"soeg\") <> \"\" then
Set DB = Server.CreateObject(\"ADODB.Connection\")
DBSti = \"DBQ=\" & Server.Mappath(\"123.mdb\")
DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti
SQL = \"select * from formel where varenummer like \'%\" & Request.Form(\"soeg\") & \"%\' or kategori like \'%\" & Request.Form(\"soeg\") & \"%\' or beskrivelse like \'%\" & Request.Form(\"soeg\") & \"%\'\"
Set rs = db.Execute (SQL)
If not rs.eof then
Response.Write \"<table border=0 cellspacing=0 cellpadding=0>\"
Response.Write \"<tr><td width=20></td><td width=100><b class=\'text-hl\'>ITEM.nr</b></td><td width=5></td><td width=100><b class=\'text-hl\'>CATEGORY</b></td><td width=5></td><td width=150><b class=\'text-hl\'>DESCRIPTION</b></td><td width=5></td><td width=80><b class=\'text-hl\'>PICTURE</b></td><td width=5></td><td width=55><b class=\'text-hl\'>URL</b></td></tr>\"
Response.Write \"</table>\"
Do until rs.eof
Response.Write \"<table border=0 width=527 height=1 id=black cellspacing=0 cellpadding=0><tr><td></td></tr></table>\"
Response.Write \"<table border=0 id=table-bg height=20 cellspacing=0 cellpadding=0 onmouseover=co(this,\'in\'); onmouseout=co(this,\'out\');>\"
Response.Write \"<tr><td width=1 height=20 id=black><td width=20></td><td width=100><b class=\'text-vn\'>\" & rs(\"varenummer\") & \"</b></td><td width=5></td><td width=100><b class=\'text\'>\" & rs(\"kategori\") & \"</b></td><td width=5></td><td width=150><b class=\'text\'>\" & rs(\"beskrivelse\") & \"</b></td><td width=5></td><td width=80><a href=\'http://www.inec.dk/cat-pic/\" & rs(\"varenummer\") & \".html\' class=\'link-picture\'>\" & rs(\"varenummer\") & \".gif</a></td><td width=5></td><td width=55><a href=\'http://www.inec.dk/cat/\" & rs(\"varenummer\") & \".html\' class=\'link-url\'>\" & rs(\"varenummer\") & \"</a></td><td width=1 height=20 bgcolor=#000000></td></tr>\"
rs.movenext
Response.Write \"</table>\"
Loop
Response.Write \"<table border=0 width=527 height=1 bgcolor=#000000 cellspacing=0 cellpadding=0><tr><td></td></tr></table>\"
Else
Response.Write \"<table border=0 width=400 height=30 cellspacing=0 cellpadding=0 id=\'td-bg\'>\"
Response.Write \"<tr><td valign=middle align=center><b class=\'text-none\'>Der var intet der matchede dine søgekriterier!</b></td></tr>\"
Response.Write \"</table>\"
End if
End if
set db = Nothing
%>
</BODY>
</HTML>
