search-visning
Jeg har en anden en her, - som de ses er det em søgefunktion med en loopfunktion,
jeg bruger en baggrundsfil i dokumentet,den bliver så gentaget---
kan det det konfigureres så resultatet/visningen viser en anden baggrund
måske noget med en ekstra body tag i dokumentet, jeg hat prøvet uden held
---------------------------------------
<HTML>
<HEAD>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"./styles//style.css\">
<!-- Minus AutoDato -->
<TITLE>sog3</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>
<script language=\"JavaScript\">
function click() {
if (((event.button==2) & (navigator.appName==\"Microsoft Internet Explorer\")) || (event.button==3)) {
alert(\'Copyright 2000\') } }
document.onmousedown=click
</script>
<SCRIPT LANGUAGE=\"JavaScript\">
<!-- begin script
function netie(net, ie) {
if ((navigator.appVersion.substring(0,3) >= net && navigator.appName == \'Netscape\' && net != -1) || (navigator.appVersion.substring(0,3) >= ie && navigator.appName.substring(0,9) == \'Microsoft\' && ie != -1))
return true;
else return false;
}
// end script -->
</SCRIPT>
<STYLE TYPE=\"text/css\">
</STYLE>
</HEAD>
<BODY BGCOLOR=\"#ededf0\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#660066\" ALINK=\"#FF0000\" TOPMARGIN=3 LEFTMARGIN=0>
<%
strAction = Request(\"action\")
If strAction = \"\" Then
%>
<form action=\"search3.asp\" method=\"get\" target=\"indhold\">
<input type=\"hidden\" name=\"action\" value=\"search3\">
<center><TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR>
<TD><input type=\"text\" name=\"soeg\" class=\'text-search-input\'> <input type=\"submit\" name=\"submit\" value=\"OK\" class=\'text-search\'></TD>
</TR>
</TABLE></center>
</form>
<%
ElseIf strAction = \"search3\" Then
strQuery = Request(\"soeg\")
If strQuery > \"\" then
Set DB = Server.CreateObject(\"ADODB.Connection\")
DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"123.mdb\")
SQL = \"SELECT * FROM formel WHERE item LIKE \'%\" & strQuery & \"%\' OR category LIKE \'%\" & strQuery & \"%\' OR description LIKE \'%\" & strQuery & \"%\';\"
Set rs = db.Execute(SQL)
If not rs.BOF then
Response.Write \"<CENTER>\"
Response.Write \"<table border=0 width=592 height=1 bgcolor=#000000 cellspacing=0 cellpadding=0><tr><td></td></tr></table>\"
Response.Write \"<table border=0 height=20 width=592 cellspacing=0 cellpadding=0 bgcolor=#000000>\"
Response.Write \"<tr><td width=1 id=black></td><td width=10></td><td width=140><b class=\'text-hl\'>VARENUMMER</b></td><td width=5></td><td width=170><b class=\'text-hl\'>VARENAVN</b></td><td width=20></td><td width=120><b class=\'text-hl\'>BEMÆRKNING</b></td><td width=5></td><td width=30><b class=\'text-hl\'>ANTAL</b></td><td width=5></td><td width=65 align=right><b class=\'text-hl\'>PRIS</b></td><td width=15></td><td width=1 bgcolor=#000000></td></tr>\"
Response.Write \"</table>\"
Response.Write \"</CENTER>\"
Do until rs.eof
Response.Write \"<CENTER>\"
Response.Write \"<table border=0 width=592 height=1 id=black cellspacing=0 cellpadding=0><tr><td></td></tr></table>\"
Response.Write \"<table border=0 id=table-bg height=20 width=592 cellspacing=0 cellpadding=0 onmouseover=co(this,\'in\'); onmouseout=co(this,\'out\');>\"
Response.Write \"<tr><td width=1 height=20 id=black><td width=10></td><td width=140><b class=\'text-vn\'><A HREF=\'D:/intr/intr5/\" & rs(\"item\") & \".html\' OnFocus=\'this.blur()\' CLASS=\'link-url\'>\" & rs(\"item\") & \"</A></b></td><td width=5></td><td width=175><b class=\'text\'>\" & rs(\"category\") & \"</b></td><td width=15></td><td width=125><b class=\'text\'>\" & rs(\"description\") & \"</b></td><td width=5></td><td width=30 align=left><b class=\'text-vn\'>\" & rs(\"avalable\") & \"</a></td><td width=5></td><td width=65 class=text align=right>\" & rs(\"price\") & \"</td><td width=15></td><td width=1 height=20 bgcolor=#000000></td></tr>\"
Response.Write \"</table>\"
Response.Write \"</CENTER>\"
rs.movenext
Loop
Response.Write \"<CENTER>\"
Response.Write \"<table border=0 width=592 height=1 bgcolor=#000000 cellspacing=0 cellpadding=0><tr><td></td></tr></table>\"
Response.Write \"</CENTER>\"
Else
Response.Write \"<CENTER>\"
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>\"
Response.Write \"</CENTER>\"
End if
Else
Response.Write \"<CENTER>\"
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\'>Du skal indtaste noget!</b></td></tr>\"
Response.Write \"</table>\"
Response.Write \"</CENTER>\"
End if
Response.Write \"<BR>\"
Response.Write \"<CENTER>\"
Response.Write \"<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><TD CLASS=copyright>Copyright © <A HREF=\'http://www.zektor3.dk\' TARGET=\'_new\' OnFocus=\'this.blur()\' CLASS=copyright-link>Kasper Steen</A> & <A HREF=\'mailto:kunde@post9.tele.dk\' OnFocus=\'this.blur()\' CLASS=copyright-link>Morten Jensen</A> 2001</TD></TR></TABLE>\"
Response.Write \"</CENTER>\"
set db = Nothing
End If
%>
</BODY>
</HTML>
