• Main <% strSQL = "SELECT * from navigation where nav_desc <> 'home' order by nav_desc asc" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open strSQL, strCon do while not RS.eof %>
• class="current" <% frmname =RS("link") vardesc = RS("nav_desc") varid = RS("nav_id") end if %> >"><% Response.Write (Replace(RS("nav_desc"),"/","'"))%> <% RS.movenext loop %>

<% strSQL = "SELECT * from content where nav_id ='"&varid&"'" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open strSQL, strCon do while not RS.eof if RS("img") = "" then response.Write "

CHEMREZ TECHNOLOGIES
" & vardesc & "

" Response.Write "

" & (RS("content")) & "

"%> <% else response.Write "" response.Write "" end if RS.movenext loop %>

Chemrez Technologies, Inc. All rights reserved 2008.