% ' FP_ASP ASP generado automáticamente por un componente de Frontpage. No lo modifique. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "No se puede crear una conexión" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "No se puede crear un conjunto de registros" fp_conn.Open Application("TMN_ConnectionString") FP_DumpError strErrorUrl, "No se puede abrir la base de datos" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "No se puede abrir el conjunto de registros" fp_rs.AddNew FP_DumpError strErrorUrl, "No se puede agregar un nuevo conjunto de registros a la base de datos" Dim arFormFields0(10) Dim arFormDBFields0(10) arFormFields0(0) = "Title" arFormDBFields0(0) = "Title" arFormFields0(1) = "ProductOrService" arFormDBFields0(1) = "ProductOrService" arFormFields0(2) = "SalesContactRequested" arFormDBFields0(2) = "SalesContactRequested" arFormFields0(3) = "Company" arFormDBFields0(3) = "Company" arFormFields0(4) = "Email" arFormDBFields0(4) = "Email" arFormFields0(5) = "Phone" arFormDBFields0(5) = "Phone" arFormFields0(6) = "Name" arFormDBFields0(6) = "Name" arFormFields0(7) = "SendCompanyLiterature" arFormDBFields0(7) = "SendCompanyLiterature" arFormFields0(8) = "SendProductLiterature" arFormDBFields0(8) = "SendProductLiterature" arFormFields0(9) = "Address" arFormDBFields0(9) = "Address" FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "No se puede actualizar la base de datos" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Confirmación de formulario",_ "Gracias por enviar la información siguiente:",_ "TMN.htm",_ "Volver al formulario." End If End If %>
|
|
|
|
Modelo TMNCon toda la amplia gama de servicios y posibilidades que ofrecen los nuevos sistemas de telecomunicaciones, es de vital importancia tener una adecuada gestión de la red desde el nivel más bajo, hasta los niveles más altos, que permita tener una red altamente competitiva, flexible y capaz de coexistir en un ambiente heterogéneo. Para ello es conveniente adoptar una arquitectura de gestión genérica que permita la interoperabilidad y el intercambio de información de gestión entre los diferentes sistemas de telecomunicaciones con los que obligatoriamente tendrán que interactuar si desean cumplir con la funcionalidad bajo la cual fueron concebidos.
Beneficios
Capacidades
|
|
Send mail to [email protected] with questions
or comments about this web site. |