esta es la consulta:

strSQLprecios = "select * from (URWT_PRECIO INNER JOIN URWT_PRECIO_IDIOMA ON URWT_PRECIO.PRE_CODPRO=URWT_PRECIO_IDIOMA.PID_CODP RE)Where PRE_CODPRO = "& objRS("PRO_CODPRO") & " and URWT_PRECIO_IDIOMA.PID_CODIDI = "&idioma&""
Set objRS2 = oConn.Execute(strSQLprecios)
response.write("<precio>")& vbCrLf
while (not objRS2.EOF)
response.Write("<tipo m2="""&objRS2("PRE_METROS")&""" pre="""&objRS2("PRE_IMPORTE")&""">")
response.Write(objRS2("PID_DESCRIPCION"))
response.Write("</tipo>")& vbCrLf
objRS2.MoveNext()
wend
el resultado me da asi

<precio>
<tipo m2="75,77" pre="265900">Bloque tipo A Planta Baja</tipo>
<tipo m2="83,43" pre="292100">Bloque tipo A Planta Baja</tipo>
<tipo m2="82,19" pre="284800">Bloque tipo A Planta Baja</tipo>
<tipo m2="81,13" pre="288700">Bloque tipo A Planta Baja</tipo>
<tipo m2="75,77" pre="270800">Bloque tipo A Planta Baja</tipo>