Sök Script

:r

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

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

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
%>