<% SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
dbpath=Server.MapPath("db/harvest.mdb")
CONN.OPEN("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbpath)
letter1 = request.querystring("letter1")
letter2 = request.querystring("letter2")
fraga2 = "SELECT * FROM Vinyl WHERE Artist > '" & letter1 & "' ORDER BY Artist,Titel ASC"
fraga = "SELECT * FROM Vinyl WHERE Artist like '" & letter1 & "%' ORDER BY Artist,Titel ASC"
'response.write fraga
If letter1 = "å" Then
set RS=Conn.Execute(fraga2)
Else
set RS=Conn.Execute(fraga)
End If
Do while not rs.eof %>
