%Option Explicit%>
<%
on error resume next
dim prod_details, a_product
a_product = aboutproducts(Request.QueryString())
prod_details = split(a_product, "|")
%>
<%=Server.HTMLEncode(prod_details(7)) & " :: инструкия к " & Server.HTMLEncode(prod_details(0)) & " NSP, цена, стоимость, купить"%> г.Киев
<%=Server.HTMLEncode(prod_details(0))%>
<%
Response.write("")
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Response.write("")
Dim strFilePath, strFileBody
strFilePath = Server.MapPath("instructions/" & prod_details(1))
strFileBody = CreateObject("Scripting.FileSystemObject").OpenTextFile(strFilePath).ReadAll
Response.Write(strFileBody)
Response.write("")
%>