Como meto código asp en una plantilla..?

[angel_dope]

Muy wenas a todo el mundo una vez más. Voy a ver si explico lo que necesito: Estoy haciendo un sistema de envio de publicidad. Primero el usuario hace una búsqueda según unos criterios, y se manda un correo a todos los mails que salen al final de esa búsqueda. Hasta ahi ningún problema. Después, para cada producto, se usará una plantilla distinta, de echo se usarán distintas plantillas para un mismo producto. Y como esas plantillas las crearán en el propio departamento que usará esta aplicación, se me ocurrió que las podian crear con el word, guardarlas como html y subirlas al servidor, después, a la hora de hacer el envio, la aplicación lee el contenido de la plantilla que toca y manda un mail en html muy bonito Esto también funciona, y me ha venido genial, me ha quitado mucho trabajo de encima, ya que no tengo que hacer yo las plantillas cada vez que se les ocurra hacer un cambio.
Pero después quise meter otra cosa más. Al hacer la búsqueda, entre otros datos, se saca de la base de datos el cargo y el nombre de la persona de contacto, asi como el precio del producto y queria integrar esto en la plantilla, asi que intenté hacer la plantilla en html y en los sitios donde va el nombre, poner el codigo asp correspondiente para que apareciese el nombre, pero cuando manda el mail, lo que hace es sacar el código que yo le he puesto tal cual, no me coge las variables de la página Alguien sabe si podria hacer esto que yo quiero de alguna manera?? Os pongo el código tal y como está ahora:

Código PHP:

  'Creo la conexión con la base de datos 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\..\basesdatos\Publicom.mdb")) 
 
Set Result=createobject("ADODB.Recordset") 
Result.cursortype = AdOpenKeyset 
Result.LockType = AdLockOptimistic 
sql_Result = "Select * From Resultados" 
Result.open sql_Result, conn 
 
    do while not result.eof 
        Set Precio=createobject("ADODB.Recordset") 
        Precio.cursortype = AdOpenKeyset 
        Precio.LockType = AdLockOptimistic 
        sql_Precio = "" 
        sql_Precio = "Select * From cons_precios WHERE idtipo=" & result.fields("Idtipo") &" AND idproducto=" & producto 
        Precio.open sql_Precio, conn 
 
        archivo = "tipo_" & result.fields("Idtipo") &"_prod_"& producto &".txt" 
        direccion = Result.fields("mail") 
 
        Dim FSO, oCarpeta, colFicheros, fichero, oFichero 
        Dim texto 
         
        set FSO = Server.CreateObject("Scripting.FileSystemObject") 
        set oCarpeta = FSO.GetFolder("d:\datos\intranetweb\publicom\plantillas") 
        set colFicheros = oCarpeta.Files 
         
        'Recorremos la colección de ficheros (objetos File) 
        for each fichero in colFicheros 
            if fichero.Name = archivo then 
                'Abro el fichero para lectura (ForReading) 
                set oFichero = fichero.OpenAsTextStream(1) 
                'Leo todo el fichero a una variable 
                texto = oFichero.ReadAll 
                'Cierro el fichero 
                oFichero.Close 
                set oFichero = nothing 
            end if 
     
        next 'fichero 
     
        set colFicheros = nothing 
        set oCarpeta = nothing 
        set FSO = nothing 
 
     
        ' CDO mail object 
            Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 
             
            ' CDO mail settings 
                with objCDOMail 
                    .BodyFormat = cdoBodyFormatHTML 
                    .MailFormat = cdoMailFormatMIME 
                    .Body = Texto 
                    .Subject = "Pruebas Publicom" 
                    .From = "[email protected]" 
                                        .Bcc = direccion 
                    '.Cc = strCC                 
                    .MailFormat = 0             
                    '.AttachFile ThisFile 
                    .Send 
                end with 
         
            ' destroy object, free memory 
            set objCDOMail = nothing         
 
'        Precio.close 
    result.movenext 
    loop  
%>  
   

Y la plantilla es lo siguiente, en una pagina html:

Estimado <%=nombre%> te presentamos nuestro último producto. Precio: <%=precios%>

He probado de mil maneras diferentes, con comillas, concatenando, metiendole de todo al html, pero siempre me saca todo el texto tal cual.
Espero que alguien pueda ayudarme, muchas gracias por adelantado a tod@s, salu2