Sammenskrivning

Kan man sammenskrive de 2 filer her..??
Som i kan se includeres her en fil som hedder \"search.htm\"
Jeg har skrévet indholdet af search.htm nederst i teksten.
Jeg ville gerne ungå denne da det giver nogle problemer med et stylesheet.
---------------------------------------
<% Response.Buffer = True %>
<!-- #INCLUDE FILE=\"search.htm\" -->
<html>
<head>
<title>S E A R C H . A S P</title>

<style>
<!--A:link, A:visited { text-decoration: none;}A:hover {  text-decoration: underline;color:red}-->
</style>

</head>
<body bgcolor=black text=white link=white alink=red vlink=white>
<font face=verdana size=2>
<center>

<font color=green>
Your Search Result . . .
</font>

<p>

<table border=0 cellspacing=0 bgcolor=#003366 width=80%>
<tr>
<td valign=top><font face=verdana size=2>

<%
\' Henter værdien fra search.htm
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
\' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect(\"search.htm\")

Else

\' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")

End If

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT Id, Emne, Link, Besk FROM link WHERE\"
strSQL = strSQL & \" (Id LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Emne LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Link LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Besk LIKE \'%\" & strKeyword & \"%\')\"

\' Databaseforbindelse [DNSless] - Stien til databasen lokaliseres
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database2.mdb\")
Conn.Open DSN

\' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)

\' Hvis der er fundet poster på søgningen
If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

\' Variabler deklæres
Navn = rs(\"Link\")
Besked = rs(\"Besk\")

\' Generere et link, som er defineret i databasen
Link = \"<b><a href=\" & Navn & \" target=\'new\'>\" & Navn & \"</a></b>\"

\' Udskriver linket som det blev genereret ovenfor + tilhørende kommentar
Response.Write \"<li>\" & Link & \"</li>\" & \" - \" & Besked

rs.MoveNext
Loop
Else

\' Hvis der ikke er fundet poster på søgningen
Response.Write \"<li>N / A\"

End If

\' Databaseforbindelsen lukkes
Conn.Close
Set Conn = Nothing
%>
</table>
</body>
</html>
---------------------------------------------

\"search.htm\"

<html>
<head>
<title>A S P - S E A R C H</title>
</head>

<style>
<!--A:link, A:visited { text-decoration: none;}A:hover {  text-decoration: underline;color:red}-->
</style>

</head>
<body bgcolor=black text=white link=white alink=red vlink=white>
<font face=verdana size=2>

<center>

<font face=\'arial black\' color=#003366>
<h3><u>A S P  -  S E A R C H</u></h3>
</font>

<table border=0 cellspacing=0 bgcolor=#003366 width=80%>
<tr>
  <td height=15>
<tr> 
  <td valign=top align=center><font face=verdana size=2>

  <form action=\"search.asp\" method=\"post\">
  <input type=\"text\" name=\"Keyword\">
  <input type=\"submit\" value=\"[Search]\">
  <input type=\"reset\" value=\"[Reset]\">
  </form>

Please type in your search-string . . .

</font><tr>
  <td height=15><font face=verdana size=2>
  <a href=http://1862358s001/ASP/>< Back</a>
</font></table>

<p>

</center>

</font></body>
</html>

//Mekaniker