Sök Script

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

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