| |
Para solicitar una prueba de manejo favor llene correctamente los campos del formulario siguiente y luego presione sobre SOLICITAR |
| |
|
|
| |
<%=asterisco%>Sucursal: |
<%
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='" & CODPAI & "'"
sqlSucPaisMarca = sqlSucPaisMarca & " AND"
sqlSucPaisMarca = sqlSucPaisMarca & " "&prefijo&"SUC_MAR.CODMAR='" & CODMAR & "'"
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
%> |
<%
Dim sqlModelos, rstModelos, arrModelos, maxModelos
sqlModelos="SELECT IDMOD, NOMBRE FROM " &prefijo& "MODELOS"
Set rstModelos = server.createobject("ADODB.RECORDSET")
rstModelos.Open sqlModelos,ocnTDR
%>
| |
<%=asterisco%>Modelos: |
** |
| |
<%=asterisco%>Nombres: |
|
| |
<%=asterisco%>Apellidos: |
|
| |
<%=asterisco%>Email: |
|
| |
<%=asterisco%>Teléfono: |
|
| |
Lugar Trabajo: |
|
| |
Forma de Contacto: |
Email
Teléfono
|
Información de vehículo que usted posee actualmente. |
| |
Marca: |
|
| |
Modelo: |
|
| |
Año: |
|
| |
<%=asterisco%>Fecha de Prueba: |
 (dia/mes/año) ej: 01/11/2000 |
| |
Hora: |
|
| |
<%=MensajeObligatorio%>
**por favor seleccione primero una sucursal |
 |
|
|
| |
|
|
| |
|
|