"COMPRENDÍ EL ERROR DE TODA LA HUMANIDAD; UNOS LLORAN POR PLACER Y OTROS CON NOSTALGIA" (CARTOLA)
<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("/db/artistas.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath &";"
SQL_query = "SELECT * FROM artistas where letra='"+Request.QueryString("letra")+"' ORDER BY artistamayusc"
Set AR = MyConn.Execute(SQL_query)
WHILE NOT AR.EOF
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%>
- " target="_top"><%=AR("artistamayusc")%> <%=AR("texto")%>
<%
AR.MoveNext
WEND
%>