|
| |
|
<%response.Write(rs("company"))%>
|
<%=replace(rs("proddescp"),vbcrlf,"
")%> |
|
|
|
<%
strimg=""
if (rs("prodpic"))<>"" then
strimg=server.MapPath(rs("prodpic"))
elseif rs("prodpicrev")<>"" then
strimg=server.MapPath(rs("prodpicrev"))
end if
%>
<%
if strimg<>"" then
b=ImageResize(strimg,231,223)
x=instr(1,strimg,"admin\documents\")
if x<>0 then
x=x-1
a=Right(strimg,len(strimg)-x)
end if
%>
 border=1/> |
<%else%>
|
<%end if%>
<%
if rs("offer")<>0 then
if isnull(rs("offer"))=false then
%>
| |
<%response.Write("Special Offer " & rs("offer") & " %" )%> |
|
<%end if
end if
set rs=Nothing
set cnn3=Nothing
%>
|
