---
title: "Sök Script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/99270-sök-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Biasse"
published: "2004-03-11T22:28:24.000Z"
updated: "2004-03-12T16:03:03.000Z"
replies: 3
views: 223
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/99270-sök-script"
---

# Sök Script

## #1 — Biasse, 2004-03-11T22:28Z

:r

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

## #2 — Nickemannen, 2004-03-11T22:42Z

SQL = "Select \* from film Where Film = '" & Request.Form("sokord") & "' **order by film**"

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

## #3 — OveRRidE, 2004-03-12T14:06Z

1. Försök använda \[kod\]-taggarna.
2. Markera svaret som accepterat när du får rätt lösning.

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

## #4 — Biasse, 2004-03-12T16:03Z

Sorry....

Glömde kod taggarna ... :r       

Blev fel allt för jag tog fel script..     Så här skulle det vara..  jag listar alltså allt i databasen och får då massa sidor från 1 tiil 37 som det nu är..  

Det jag vill åt är att få allt listat i bokstavsordning typ så här:

a b c d e f g           osv och bara klicka på den begynnelse bokstav jag vill se.
\___________________________________________________\_

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db/musik.mdb")&";pwd=Utz14trWQ"
IF Request.Querystring("action") = "delete" Then 
  
  Connect.Execute(SQL)
  Response.Redirect "allt.asp"
ELSE
  SQL = "SELECT * From musik ORDER BY artist ASC"
  Set RecSet = Server.CreateObject("ADODB.Recordset")
  RecSet.Open SQL, Connect, 1, 3
  RecSet.PageSize = 25
%>
```

\</font\>
\</p\>
\<div align="center"\>
\<table width="664" border="0" style="border: 1px solid #000000" bordercolor="#FFFF00"\>
\<tr\> 
\<td width="667" bgcolor="#000000" align="center"\>\<b\>\<u\>\<font face="Verdana" size="1" color="#FFFF00"\>Artist:\</font\>\</u\>\</b\>\</td\>
\<td width="127" bgcolor="#000000" align="center"\>
  \<p align="center"\>\<b\>\<u\>\<font color="#FFFF00"\>\<font face="Verdana" size="1"\>Album:\</font\>\</font\>\</u\>\</b\>\</p\>
\</td\>
\<td width="57" bgcolor="#000000" align="center"\>\<b\>\<u\>\<font face="Verdana" size="1" color="#FFFF00"\>Omslag:\</font\>\</u\>\</b\>\</td\>
\<td width="100" bgcolor="#000000" align="center"\>
  \<p align="center"\>\<b\>\<u\>\<font face="Verdana" size="1" color="#FFFF00"\>Profil:\</font\>\</u\>\</b\>\</p\>
\</td\>
\</tr\>

```
<%
  X=0

  If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
    intPage = 1
  Else
    intPage = CInt(Request.QueryString("page"))
  End If

  RecSet.AbsolutePage = intPage

  DO UNTIL RecSet.EOF OR X = RecSet.PageSize
%>
```

\<tr\> 
\<td width="666" bgcolor="#FFFFC1"\>\<font face="Verdana" color="#000000" size="1"\> \<%=RecSet("artist")%\>\</font\>\</td\>
\<td width="127" bgcolor="#FFFFC1"\>\<font face="Verdana" color="#000000" size="1"\>\<%=RecSet("album")%\> \</font\>\</td\>
\<td width="57" bgcolor="#FFFFC1"\>\<font face="Verdana" color="#000000" size="1"\>\<p align="center"\>\<%=RecSet("omslag")%\> \</font\>\</td\>
\<td width="115" bgcolor="#FFFFC1"\>\<font face="Verdana" color="#000000" size="1"\>\<p align="center"\>\<%=RecSet("profil")%\> \</font\>\</td\>
\</tr\>

```
<%
    X=X+1
    RecSet.MOVENEXT
  LOOP

  If RecSet.PageCount > 1 Then
    For i = 1 To RecSet.PageCount
      If i <> intPage Then
        Response.Write("<a href=""?page=" & i & """>" & i & "</a> ")
      Else
        Response.Write("[" & i & "] ")
      End If
    Next
  End If

  RecSet.CLOSE
  Connect.CLOSE
  Set RecSet = nothing
  Set Connect = nothing
%>
```

\</table\>
\</div\>

```
<%
end if
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/99270-sök-script