Algun tigre , experto , un genio , un dotado q se anime a pasarme este codigo a php !!!
se lo agradecere !!!
<%
alphaxx = request.querystring("letter")
//alphaxx = left(alphaxx,1)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("artistasenallhen.mdb"))
set rs=createobject("ADODB.Recordset")
select case alphaxx
case "a"
sqltxt="SELECT * From Tabla1 WHERE artista Like 'a%' order by artista"
case "b"
sqltxt="SELECT * From Tabla1 WHERE artista Like 'b%' order by artista"
case "p"
sqltxt="SELECT * From Tabla1 WHERE artista Like 'p%' order by artista"
case "all"
sqltxt="SELECT * From Tabla1 order by artista"
end select
rs.open sqltxt,conn
Do while not rs.EOF
var1 = rs.fields("id")
var2 = rs.fields("artista")
response.write ("<%var1 = """&var1&""" //"&var2&" %><br>" &vbCrlf)
response.write ("<!--#include file=""www.asp""--><br>" &vbCrlf)
%>
<%
rs.MoveNext
Loop
rs.close
%>