Måske lidt underlig for dig, men for mig er det klar kode :D - prøv:
----------------------------------
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2">
<TR>
<TD VALIGN="top" WIDTH="20"></TD>
<TD VALIGN="top">
<TABLE WIDTH="400" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border:solid 1px #C0C0C0;">
<TR VALIGN="top">
<TD HEIGHT="5" STYLE="background:url(<%=picsti%>400-pixels.gif);background-attachment:fixed;"><FONT FACE="Verdana" SIZE="1" COLOR="#000000"><B>Søg:</B></FONT></TD>
</TR>
<TR>
<TD HEIGHT="10">
<FONT FACE="Verdana" SIZE="1" COLOR="#000000">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<%Session.LCID = 1033%>
<form action="<%=filnavn%>?<%=v1%>=Soeg&action=Soeg" METHOD="get">
<INPUT TYPE="hidden" VALUE="Soeg" NAME="action">
<TR>
<TD COLSPAN="2">Tips til når du søger: Søg kun på en tekst sammenhæng.</TD>
</TR>
<TR>
<TD>Søgeord:</TD>
<TD><INPUT TYPE="text" NAME="soeg" STYLE="<%=strstyle%>"></TD>
</TR>
<TR>
<TD></TD>
<TD><INPUT TYPE="submit" VALUE="Søg" NAME="submit" STYLE="<%=strstyle%>"></TD>
</TR>
</form>
<%
if request("action") = "Soeg" then
%>
<TR>
<TD COLSPAN="2"></TD>
</TR>
<!--#include file="db.asp"-->
<%
strSQL = "Select * from " & dbtabel3 & " where overskrift like '%" & request("soeg") & "%' or nyhed like '%" & request("soeg") & "%'"
Set rsnyheder = Conn.Execute(strSQL)
if rsnyheder.EOF or rsnyheder.BOF then
ingennyheder = 1
else
Do
%>
<TR>
<TD COLSPAN="2"><a href="<%=filnavn%>?<%=v1%>=Nyheder&<%=v2%>=<%=rsnyheder("kategori")%>&soeg=1#<%=rsnyheder("id")%>">Nyhed: »<%=rsnyheder("overskrift")%>«</a></TD>
</TR>
<TR>
<TD COLSPAN="2"> </TD>
</TR>
<%
rsnyheder.movenext
Loop While Not rsnyheder.EOF
end if
Conn.Close
Set Conn = Nothing
%>
<!--#include file="db.asp"-->
<%
strSQL34 = "Select * from " & dbtabel4 & " where overskrift like '%" & request("soeg") & "%' or besked like '%" & request("soeg") & "%'"
Set rsforum = Conn.Execute(strSQL34)
if rsforum.EOF or rsforum.BOF then
ingenforum = 1
else
Do
if not midlertidig = rsforum("traad2") then
%>
<TR>
<TD COLSPAN="2"><a href="<%=filnavn%>?<%=v1%>=Forum&<%=v2%>=Forum_-_Vis_debat&traad=<%=rsforum("traad2")%>&soeg=1#<%=rsforum("id")%>">Forum: »<%=rsforum("overskrift")%>«</a></TD>
</TR>
<TR>
<TD COLSPAN="2"> </TD>
</TR>
<%
midlertidig = rsforum("traad2")
end if
rsforum.movenext
Loop While Not rsforum.EOF
end if
Conn.Close
Set Conn = Nothing
%>
<!--#include file="db.asp"-->
<%
strSQL35 = "Select * from " & dbtabel5 & " where besked like '%" & request("soeg") & "%'"
Set rssider = Conn.Execute(strSQL35)
if rssider.EOF or rssider.BOF then
ingensider = 1
else
Do
if rssider("v4") = "" then
if rssider("v3") = "" then
if rssider("v2") = "" then
overskrifttilsiden = sidenavn(rssider("v1"))
else
overskrifttilsiden = sidenavn(rssider("v2"))
end if
else
overskrifttilsiden = sidenavn(rssider("v3"))
end if
else
overskrifttilsiden = sidenavn(rssider("v4"))
end if
%>
<TR>
<TD COLSPAN="2"><a href="<%=filnavn%>?<%=v1%>=<%=rssider("v1")%>&<%=v2%>=<%=rssider("v2")%>&<%=v3%>=<%=rssider("v3")%>&<%=v4%>=<%=rssider("v4")%>&soeg=1">Side: »<%=overskrifttilsiden%>«</a></TD>
</TR>
<TR>
<TD COLSPAN="2"> </TD>
</TR>
<%
rssider.movenext
Loop While Not rssider.EOF
end if
Conn.Close
Set Conn = Nothing
%>
<%
ingen = ingensider + ingenforum + ingennyheder
if ingen = 3 then
%>
<TR>
<TD COLSPAN="2">Din søgning havde ingen resultat. Prøv venligst igen.</TD>
</TR>
<%
end if
%>
<%
end if
%>
</TABLE>
</FONT>
</TD>
</TR>
<TR VALIGN="top">
<TD ALIGN="right" HEIGHT="5" STYLE="background:url(<%=picsti%>400-pixels.gif);background-attachment:fixed;">
<FONT FACE="Verdana" SIZE="1" COLOR="#000000">
</FONT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
