<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 'Make a transaction dispatcher instance Dim tNGs: Set tNGs = new tNG_dispatcher tNGs.Init "../" ' Start trigger Dim formValidation: Set formValidation = new tNG_FormValidation formValidation.Init formValidation.addField "Modelo", true, "text", "", "", "", "" tNGs.prepareValidation formValidation ' End trigger Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_grijos_STRING Recordset1_cmd.CommandText = "SELECT Marca, IDmarca FROM Marcas ORDER BY Marca" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsUsados_numRows = rsUsados_numRows + Repeat1__numRows ' Make an insert transaction instance Dim ins_Usados: Set ins_Usados = new tNG_multipleInsert ins_Usados.init MM_grijos_STRING tNGs.addTransaction ins_Usados ' Register triggers ins_Usados.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Insert1") ins_Usados.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation) ins_Usados.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "../includes/nxt/back.asp") ' Add columns ins_Usados.setTable "Usados" ins_Usados.addColumn "IDmarca", "NUMERIC_TYPE", "POST", "IDmarca", "" ins_Usados.addColumn "Modelo", "STRING_TYPE", "POST", "Modelo", "" ins_Usados.addColumn "Color", "STRING_TYPE", "POST", "Color", "" ins_Usados.addColumn "Anio", "STRING_TYPE", "POST", "Anio", "" ins_Usados.addColumn "Precio", "STRING_TYPE", "POST", "Precio", "" ins_Usados.addColumn "Ubic", "STRING_TYPE", "POST", "Ubic", "" ins_Usados.setPrimaryKey "ID", "NUMERIC_TYPE", "", "" ' Make an update transaction instance Dim upd_Usados: Set upd_Usados = new tNG_multipleUpdate upd_Usados.init MM_grijos_STRING tNGs.addTransaction upd_Usados ' Register triggers upd_Usados.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Update1") upd_Usados.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation) upd_Usados.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "../includes/nxt/back.asp") ' Add columns upd_Usados.setTable "Usados" upd_Usados.addColumn "IDmarca", "NUMERIC_TYPE", "POST", "IDmarca" upd_Usados.addColumn "Modelo", "STRING_TYPE", "POST", "Modelo" upd_Usados.addColumn "Color", "STRING_TYPE", "POST", "Color" upd_Usados.addColumn "Anio", "STRING_TYPE", "POST", "Anio" upd_Usados.addColumn "Precio", "STRING_TYPE", "POST", "Precio" upd_Usados.addColumn "Ubic", "STRING_TYPE", "POST", "Ubic" upd_Usados.setPrimaryKey "ID", "NUMERIC_TYPE", "GET", "ID" ' Make a delete transaction instance Dim del_Usados: Set del_Usados = new tNG_multipleDelete del_Usados.init MM_grijos_STRING tNGs.addTransaction del_Usados ' Register triggers del_Usados.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Delete1") del_Usados.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "../includes/nxt/back.asp") ' Add columns del_Usados.setTable "Usados" del_Usados.setPrimaryKey "ID", "NUMERIC_TYPE", "GET", "ID" 'Execute all the registered transactions tNGs.executeTransactions 'Get the transaction recordset Dim rsUsados Dim rsUsados_numRows Set rsUsados = tNGs.getRecordset("Usados") rsUsados_numRows = 0 Dim rsUsados_total rsUsados_total = KT_getNumberOfRows(rsUsados) %> Le Meridien | Usados <% Response.Write tNGs.displayValidationRules()%> <% Response.Write tNGs.getErrorMsg() %>

<% ' Show IF Conditional region1 If Request.QueryString("ID") = "" Then %> <%=NXT_getResource("Insert_FH")%> <% ' else Conditional region1 Else %> <%=NXT_getResource("Update_FH")%> <% End If ' End Conditional region1 %> Usados

<% cnt1 = 0 %> <% While ((Repeat1__numRows <> 0) AND (NOT rsUsados.EOF)) %> <% cnt1 = cnt1 + 1 %> <% tNGs.SetCounter cnt1 %> <% ' Show IF Conditional region1 If rsUsados_total > 1 Then %>

<%=NXT_getResource("Record_FH")%> <%=cnt1%>

<% End If ' End Conditional region1 %>
<%=(tNGs.displayFieldError("Usados", "IDmarca"))%>
" size="32" maxlength="255" /> <%=(tNGs.displayFieldHint("Modelo"))%> <%=(tNGs.displayFieldError("Usados", "Modelo"))%>
" size="32" maxlength="255" /> <%=(tNGs.displayFieldHint("Color"))%> <%=(tNGs.displayFieldError("Usados", "Color"))%>
" size="32" maxlength="255" /> <%=(tNGs.displayFieldHint("Anio"))%> <%=(tNGs.displayFieldError("Usados", "Anio"))%>
" size="32" maxlength="255" /> <%=(tNGs.displayFieldHint("Precio"))%> <%=(tNGs.displayFieldError("Usados", "Precio"))%>
" size="32" maxlength="255" /> <%=(tNGs.displayFieldHint("Ubic"))%> <%=(tNGs.displayFieldError("Usados", "Ubic"))%>
" /> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsUsados.MoveNext() Wend %>
<% ' Show IF Conditional region1 If Request.QueryString("ID") = "" Then %> " /> <% ' else Conditional region1 Else %> " /> " onClick="return confirm('<%=NXT_getResource("Are you sure?")%>');" /> <% End If ' End Conditional region1 %> " onClick="return UNI_navigateCancel(event, '../includes/nxt/back.asp')" />

 

<% Recordset1.Close() Set Recordset1 = Nothing %>