Hej Kaj
Tak for dit svar. Jeg har tilføjet det, men får nu en fejl ved noget kode
længere nede i filen. Fejlen er:
a.. Error Type:
(0x80020009)
Exception occurred.
skabelon.asp, line 35
Linie 35 er:
(33) Do
(34)
(35) Response.Write "<tr><td><font face='verdana' size='1'>" &
rs("Kunstner") & "</font></td>".
Dette har der ellers ikke været problemer med tidligere...
Morten
"Kaj N" <kaj@neupert.dk> wrote in message news:9j4c9m$dbj$2@sunsite.dk...
> "Select * from link Order by Kunstner,Album
> WHERE Kunstner LIKE 'A*'"
>
> A* virker i Access. Korrekt SQL er 'A%'
>
> Morten Andersen <v1207a@groenjord.dk> skrev i en
> nyhedsmeddelelse:newscache$7x9ogg$3qo$1@kalvebod.groenjord.dk...
> > Hej NG,
> >
> > Er det muligt at udtrække poster fra en kolonne som begynder med et
> bestemt
> > bogstav? Altså angive i sin SELECT linie at det kun skal være de poster
> fra
> > kolonnen "Kunstner" der starter med A som skal returners?
> >
> > Jeg har lige nu denne kode som udskriver ALT fra databasen:
> > <%
> > Dim oConn, sConnString
> > Set oConn = Server.CreateObject("ADODB.Connection")
> > ' Husk at angive den rigtige sti til din database
> > sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> > Server.MapPath ("database2.mdb")
> > ' Åben databaseforbindelsen
> > oConn.Open(sConnString)
> >
> > ' SQL forespørgsel
> > SQL = "Select * from link Order by Kunstner,Album"
> > ' Udfør forespørgsel (rs indeholder nu resultatet)
> > Set RS = oConn.Execute(SQL)
> > Response.Write "<table border=1 style=color:#FFFFFF>"
> > Response.Write "<tr><th><font face='Tahoma'
> > size='2'>Artist</font></th><th><font face='Tahoma'
> > size='2'>Album</font></th><th><font face='Tahoma'
> > size='2'>Genre</font></th><th><font face='Tahoma'
> > size='2'>Email</font></th></tr>"
> >
> > Do
> >
> > Response.Write "<tr><td><font face='verdana' size='1'>" &
> rs("Kunstner")
> > & "</font></td>"
> > Response.Write "<td><font face='verdana' size='1'>" & rs("Album") &
> > "</font></td>"
> > Response.Write "<td><font face='verdana' size='1'>" & rs("Genre") &
> > "</font></td>"
> > Response.Write "<td><font face='verdana' size='1'>" & rs("Email") &
> > "</font></td>"
> >
> > rs.MoveNext
> >
> > ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> > Loop While Not rs.EOF
> > Response.Write "</font></table>"
> >
> > ' Luk databaseforbindelse
> > oConn.Close
> > Set Conn = Nothing
> > %>
> >
> > VH
> > Morten
> >
> >
>
>
>
>