Buenas amigos, primero que nada felicitarlos por el foro, de verdad que yo lo tulizo muchisisismo y me la paso sacando soluciones de aqui. Ahora es el turno para que me ayuden directamente.
Soy bastante nuevo con ASP y acces, tengo varios años programando en php y mysql, y estoy desesperado, pero bueno a donde se incline el trabajo es a donde hay que inclinarse siempre que se pueda.
Tengo una primera pagina con un formulario que pasa dos variables (un campo de texto llamado "name", y otro de un select llamado "pais") a una pagina para insertarlos como registros en una base de datos.
Este es el código del formulario:
<form name="form" action="/HPS/empresas/brain_empresas.asp?op=1&mod=1" method="post" onSubmit="return Validar()">
<input name="name" type="text" id="name">
<option value="0">Selecciona un País:</option>
<%
conexion = Server.CreateObject("ADODB.Recordset")
conexion.ActiveConnection = baseDatosHPS4
conexion.Source = "SELECT * FROM pais"
conexion.Open()
while (!conexion.EOF){
pais = conexion.Fields.Item("Pais").Value
idpais = conexion.Fields.Item("idPais").Value
%>
<option value="<%=idpais%>"><%=pais%></option>
<%
conexion.MoveNext()
}
conexion.Close()
%>
</select>
</form>
---------------------------------------------------------------
Este formulario se crea perfectamente no me da errores de conexion a base de datos ni nada, el select se construye prefectamente.
Luego en la otra pagina donde voy a capturar las variables que estos mandando tengo el siguiente código.
<%
op = Request.QueryString("op");
mod = Request.QueryString("mod");
if(op == 1){
if(mod == 1){
empresa = Request.Form("name");
idpais = Request.Form("pais");
conexion = Server.CreateObject('ADODB.Command');
conexion.ActiveConnection = baseDatosHPS4;
strSQL = "INSERT INTO EmpresaAvanzada (idPais,Empresa) VALUES ("+idpais+","+empresa+")";
conexion.CommandText = strSQL;
conexion.Execute();
conexion.ActiveConnection.Close();
//Response.Redirect("/HPS/empresas/show_all.asp");
} else if(mod == 2){
conexion = Server.CreateObject("ADODB.Recordset")
conexion.ActiveConnection = baseDatosHPS4
conexion.Source = "SELECT * FROM EmpresaAvanzada"
conexion.Open()
} else if(mod == 3){
conexion = Server.CreateObject("ADODB.Recordset")
conexion.ActiveConnection = baseDatosHPS4
conexion.Source = "SELECT * FROM EmpresaAvanzada"
conexion.Open()
}
}
%>
---------------------------------------------------------------------
CUando hago sumbit en la pagina del formulario, en la pàgina donde capturo las variables no me muestra nada sino la tipica pagina que dice "No se puede mostrar la página
Hay un problema con la página solicitada y no puede ser mostrada.. "
Las variables de conexion estan correctas, por que en la pagina del formulario todo funciona bien.
A ver si me pueden ayudar amigos, y se que es un poco tedioso el tener que ller codigo de otras personas pero ya no encuentro que hacer...
Muchas gracias de antemano.
