Para cualquier duda, comentario, queja o información requerida, tenga la amabilidad de llenar el siguiente formulario:

Formulario de Contacto

Motivo	Reclamo Sugerencia Solicitud de Información Pregunta específica
Ciudad:	<% Dim ocnTDR set ocnTDR = SERVER.CREATEOBJECT("ADOdB.CONNECTION") ocnTDR.Open conexion Dim rstSucPaisMarca, sqlSucPaisMarca, arrSucPaisMarca, maxSucPaisMarca Set rstSucPaisMarca = server.createobject("ADODB.RECORDSET") sqlSucPaisMarca = "SELECT "&prefijo&"SUCURSALES.CODSUC AS CODSUC," sqlSucPaisMarca = sqlSucPaisMarca & " "&prefijo&"SUCURSALES.NOMBRE AS NOMBRE" sqlSucPaisMarca = sqlSucPaisMarca & " FROM "&prefijo&"SUCURSALES, "&prefijo&"SUC_MAR" sqlSucPaisMarca = sqlSucPaisMarca & " WHERE "&prefijo&"SUCURSALES.CODSUC = "&prefijo&"SUC_MAR.CODSUC" sqlSucPaisMarca = sqlSucPaisMarca & " AND" sqlSucPaisMarca = sqlSucPaisMarca & " "&prefijo&"SUCURSALES.CODPAI='HN'" sqlSucPaisMarca = sqlSucPaisMarca & " AND" sqlSucPaisMarca = sqlSucPaisMarca & " "&prefijo&"SUC_MAR.CODMAR='NISSAN'" rstSucPaisMarca.Open sqlSucPaisMarca,ocnTDR if not rstSucPaisMarca.eof then bandera=true arrSucPaisMarca = rstSucPaisMarca.getrows rstSucPaisMarca.close set rstSucPaisMarca = nothing maxSucPaisMarca = Ubound(arrSucPaisMarca,2) else bandera = false end if %> <% if bandera then For contador = 0 to maxSucPaisMarca Response.write "" & arrSucPaisMarca(1,contador) &"" next end if %>
Nombres:
Apellidos:
Email:
Telefono:
Mensaje