%@ LANGUAGE="vbscript" %> <% Response.Buffer = True %> <% Response.Clear %> <% 'Get Browser Info and clear variables Set bc = Server.CreateObject("MSWC.BrowserType") Session("Browser") = bc.browser & " " & bc.version '****************************************************** SQLStr = "SELECT Configuration.* FROM Configuration" 'response.write SQLStr 'response.end Set rs = Conn.Execute(SQLStr) do while not rs.eof Select Case rs("Description") Case "CostV2" CostV2 = rs("Settings") Case "CostV2i" CostV2i = rs("Settings") Case "CostV3i" CostV3i = rs("Settings") Case "CostV3" CostV3 = rs("Settings") Case "CostV4" CostV4 = rs("Settings") End Select rs.movenext loop rs.Close SET rs = Nothing %>
| License Pricing |
| AMS v3i: <%=CostV3i%> |
| AMS v3: <%=CostV3%> |
| AMS v4 (WEB) Call |
| <%=Session("LastUpdate")%> |