<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_moeda__MMColParam rs_moeda__MMColParam = "1" If (Request.QueryString("id") <> "") Then rs_moeda__MMColParam = Request.QueryString("id") End If %> <% Dim rs_moeda Dim rs_moeda_numRows Set rs_moeda = Server.CreateObject("ADODB.Recordset") rs_moeda.ActiveConnection = MM_conn_fad_STRING rs_moeda.Source = "SELECT * FROM tbl_moeda WHERE id = " + Replace(rs_moeda__MMColParam, "'", "''") + "" rs_moeda.CursorType = 0 rs_moeda.CursorLocation = 2 rs_moeda.LockType = 1 rs_moeda.Open() rs_moeda_numRows = 0 %> <% Dim rs_sw Dim rs_sw_numRows Set rs_sw = Server.CreateObject("ADODB.Recordset") rs_sw.ActiveConnection = MM_conn_fad_STRING rs_sw.Source = "SELECT * FROM tbl_softwares" rs_sw.CursorType = 0 rs_sw.CursorLocation = 2 rs_sw.LockType = 1 rs_sw.Open() rs_sw_numRows = 0 %> ::: Timer Café - Lan House Manager - The best software manager for your LAN HOUSE and CYBER CAFÉ :::
»

Enter the number of licenses desired:

Currency selected:

 <%=(rs_moeda.Fields.Item("desc_moeda").Value)%>
Value of spare license(*):
R$ <%=FormatNumber(((((rs_sw.Fields.Item("sw_preco").Value))/((rs_moeda.Fields.Item("vlr_moeda_reais").Value)))*1),2, -2, -2, -2)%> *Minimum: 1 Administrator + 1 Terminal

Number of licenses desired:
 
Total value:
0,00
 
Discount:
0,00
 
     
     
Total payable:
0,00
  
     

<% rs_moeda.Close() Set rs_moeda = Nothing %> <% rs_sw.Close() Set rs_sw = Nothing %>