%@ EnableSessionState=False Language=VBScript %> <% Option Explicit %> <% Response.Buffer=TRUE 'Sachin Patel 'AMBest Company 11/20/2002 '*******DW 11/19/01 Get Template Data*********************** function GetMenuTemplate() dim rsMenuTemplate if sTemplate = "" then set rsMenuTemplate = Server.CreateObject("ADODB.Recordset") sSQL = "Select template from Menu_Manager Where site = '" & sSite & "'" rsMenuTemplate.Open sSQL,oConn,adOpenStatic,adLockReadOnly if not rsMenuTemplate.EOF then sTemplate = rsMenuTemplate("Template") end if end if GetMenuTemplate = sTemplate end function sSite="sales" sTemplate = GetMenuTemplate %>
![]() |
Products & Services | |||||||
|
| ||||||||
![]() ![]()
|
BestMark for Listees in
|
|||||||