---
title: "Sökfunktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12274-sökfunktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "graf"
published: "2001-10-24T15:46:00.000Z"
updated: "2001-10-24T16:05:00.000Z"
replies: 1
views: 158
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12274-sökfunktion"
---

# Sökfunktion

## #1 — graf, 2001-10-24T15:46Z

Tjena!

Jag har en sökfunktion på min sida, om jag vill att när man klickar på "Sök" så ska söksidan visas i en annan frame som heter huvud

Hur skriver jag då?
Såhär ser nuvarande kod ut:

\<!-- #include file="adovbs.inc" --\>

\<html\>
\<head\>
\<title\>SÖK\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\<link rel="stylesheet" href="../style.css" type="text/css"\>
\</head\>

\<body bgcolor="#FEE1D2" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"\>
\<table width="500" border="0" cellspacing="0" cellpadding="2" height="100%" align="center"\>
  \<tr\> 
    \<td valign="top" class="right-line"\> 
            \<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"\>
        \<tr\> 
          \</td\>
        \</tr\>
        \<%
IF Request.QueryString("DO") = "SOK" THEN

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/forum.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From asp WHERE INLAGG LIKE '%" & Request.Form("sokord") & "%' ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
X=0
DO UNTIL RecSet.EOF
%\>
        \<tr\> 
          \<td width="20" height="15"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
            \<%
'########## KOLLAR OM DET FINNS NYA INLÄGG ###########

	Set RecSet2 = Server.CreateObject("ADODB.Recordset")

	Addera2 = "Select \* From asp WHERE REF_ID =" &RecSet("ID")
	RecSet2.Open Addera2, Connect, adOpenStatic, adLockOptimistic
	
Y=0
DO UNTIL RecSet2.EOF
 IF RecSet2("DATUM") \> Now() - 1 THEN
  Y=1
  RecSet2.Close
  Exit DO
 END IF
RecSet2.MOVENEXT
LOOP 

%\>
            \<% IF Y=1 THEN %\>
            \<% END IF %\>
            \</font\>\</td\>
          \<td height="15"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
            \<a href="read.asp?ID=\<%=RecSet("ID")%\>\<%=RecSet("RUBRIK")%\>\</a\>\</font\>\</td\>
          \<td width="100" height="15"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
            \<%=RecSet("NAMN")%\> \</font\>\</td\>
          \<td width="125" height="15"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
          \<td width="40" height="15"\> 
            \<div align="center"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<%=RecSet("ANTALSVAR")%\>\</font\>\</div\>
          \</td\>
        \</tr\>
        \<%
RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing

%\>
      \</table\>
      \<% END IF %\>
      \<p\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\</font\>\</p\>
      \<form name="form1" method="post" action="sok.asp?DO=SOK"\>
        \<font face="Verdana, Arial, Helvetica, sans-serif"\> \<font size="1"\> 
        Sökord:\<br\>
\<input type="text" name="sokord" size="10" maxlength="30" class="TABELLER"\>
        \<br\>
        \<input type="submit" name="Submit" value="Sök" alt="S&ouml;k i databasen" border = "0"\>
        \</font\> \</font\> 
      \</form\>
      \<p\>\<font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"\>
        \</font\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
        \</font\>\</p\>
    \</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/12274

## #2 — @nders, 2001-10-24T16:05Z

```
<form name="form1" method="post" action="sok.asp?DO=SOK" [b]target="huvud"[/b]>
```

Mvh,

Permalänk: https://www.webforum.nu/p/292873

---

Tråden på webben: https://www.webforum.nu/amne/asp/12274-sökfunktion
