Ver Mensaje Individual
  #8 (permalink)  
Antiguo 31/10/2007, 14:46
tocalasam
 
Fecha de Ingreso: julio-2003
Ubicación: Barcelona
Mensajes: 142
Antigüedad: 21 años, 10 meses
Puntos: 1
Re: pasar datos + inner join

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 %>