<%Option Explicit%>
<!--#include file="shop$db.asp"-->
<!--#include file="shopproductfeatures.asp"-->
<%
'**********************************************************************************
' Version 6.50 Merge any table with any template
' shopmerge.asp?id=xx,idfield=yyyyyyyy,table=ttttt&template=templatename
' xx = catalogid
' The template to be used is is xproducttemplate of a specific template for
' the product in the database
' July 6, 2005
'*********************************************************************************
Dim CatalogId, dbtable, idfield
Dim tmpRS, tempdatabase
Dim template
dim dbc
dim rc
setSess "CurrentURL","shopmerge.asp"
Catalogid=request("id")
if not isnumeric(catalogid) then 
   catalogid=replace(catalogid,"'","")
end if   
dbtable=request("table")
dbtable=replace(dbtable,"'","")
idfield=request("idfield")
idfield=replace(idfield,"'","")
template=request("template")
dim suffix
if template<>"" then
  suffix=right(template,3)
  if lcase(suffix)<>"htm" then
     template=""
  end if   
end if  
If Template="" then
    Shoperror getlang("LangExdNoTemplate")
end if
If catalogid<>"" then
   If idfield="" then
      shoperror getlang("LangNocatalogid") & " "   & dbtable
   end if
end if      
ShopMergetemplate dbtable, template, catalogid, idfield
If Serror<>"" Then 
 shoperror sError
end if
%>