perdona, aqui te lo facilito
Código:
<%
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("/cgi-bin/boss_dealers.mdb")&";"
SQL="SELECT * FROM dealers INNER JOIN provincias ON dealers.IdProvincia = provincias.IdProvincia WHERE dealers.IdProvincia="&Request.QueryString("IdProvincia")&" ORDER by Nombretienda asc"
set result = oConn.Execute(sql)
%>
<h2>Distribuidores <%=result("Nombreprovincia")%></h2>
<% While not result.EOF %>
<P><B>
<%
'link para web
if len(result.fields("web") & "") > 0 then
Response.Write ("<a href="&result.fields("web")&" target=_blank>"&result.fields("Nombretienda")&"</a></B>")
else
Response.Write (""&result.fields("Nombretienda")&"")
end if
%>
<BR><%=result("direccion")%>
(<%=result("poblacion")%> - <%=result("cp")%>)
<BR>Tlfo: <%=result("telefono")%> - <%
'link para email
if len(result.fields("email") & "") > 0 then
Response.Write ("<a href=mailto:"&result.fields("email")&" target=_blank>@mail</a>")
else
Response.Write ("")
end if
%>
<%
result.moveNext()
wend %>