Problema con un query
Ibest
30 de Julio del 2003
Muy buenas amigos.
Desde aqu os pido ayuda para solucionar el siguiente problema con el que llevo unos cuantos das buenos y no doy con la solucin. A ver si podeis ayudarme.
Tipo de error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
Aqu os mando el cdigo por si os sirve para verlo mejor:
<html>
<head>
</head>
<body bgcolor="#FFFF99">
<form action="formulario.asp" method="get" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<h1>Formulario de Registro</h1>
<table border="0" width="100%" height="1369">
<tr>
<td width="100%" colspan="3" height="21">* Campos a rellenar
obligatoriamente.</td>
</tr>
<tr>
<td width="100%" colspan="3" height="59">** La contrasea ha de contener un
mnimo de cinco caracteres y un mximo de diez. Pueden utilizarse solo
letras o nmeros, combinaciones de ambas, y/o espacios en blanco.
<p> </td>
</tr>
<tr>
<td width="35%" height="54">*Nombre</td>
<td width="65%" colspan="2" height="54"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-WhiteSpace="TRUE"
B-Value-Required="TRUE" I-Minimum-Length="3" I-Maximum-Length="50" --><input type="text" name="nombre" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="53">*Apellidos</td>
<td width="65%" colspan="2" height="53"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-WhiteSpace="TRUE"
B-Value-Required="TRUE" I-Minimum-Length="3" I-Maximum-Length="50" --><input type="text" name="apellidos" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="55">*Domicilio</td>
<td width="65%" colspan="2" height="55"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
B-Allow-WhiteSpace="TRUE" B-Value-Required="TRUE" I-Minimum-Length="5"
I-Maximum-Length="50" --><input type="text" name="domicilio" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="54">*Provincia </td>
<td width="65%" colspan="2" height="54"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-WhiteSpace="TRUE"
B-Value-Required="TRUE" I-Minimum-Length="5" I-Maximum-Length="50" --><input type="text" name="provincia" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="54">*Cdigo Postal</td>
<td width="65%" colspan="2" height="54"><!--webbot bot="Validation"
S-Data-Type="Number" S-Number-Separators="x," B-Value-Required="TRUE"
I-Minimum-Length="5" I-Maximum-Length="5" --><input type="text" name="codigo_postal" size="32" maxlength="5"></td>
</tr>
<tr>
<td width="35%" height="55">*Telf.. de Contacto:</td>
<td width="33%" height="55"><!--webbot bot="Validation" S-Data-Type="Number"
S-Number-Separators="x," B-Value-Required="TRUE" I-Minimum-Length="9"
I-Maximum-Length="9" --><input type="text" name="tlfdecontacto" size="32" maxlength="9"></td>
<td width="32%" height="55">Ejemplo: 928352434</td>
</tr>
<tr>
<td width="35%" height="53">*E-mail</td>
<td width="65%" colspan="2" height="53"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
B-Allow-WhiteSpace="TRUE" B-Value-Required="TRUE" I-Minimum-Length="3"
I-Maximum-Length="50" --><input type="text" name="e_mail" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="53">*D.N.I.:</td>
<td width="33%" height="53"><!--webbot bot="Validation" S-Data-Type="String"
B-Allow-Letters="TRUE" B-Allow-Digits="TRUE" B-Value-Required="TRUE"
I-Minimum-Length="9" I-Maximum-Length="9" --><input type="text" name="dni" size="32" maxlength="9"></td>
<td width="32%" height="53">Ejemplo: 78487766J</td>
</tr>
<tr>
<td width="35%" height="54">**Contrasea:</td>
<td width="65%" colspan="2" height="54"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
B-Allow-WhiteSpace="TRUE" B-Value-Required="TRUE" I-Minimum-Length="5"
I-Maximum-Length="10" --><input type="password" name="contrasena" size="32" maxlength="10"></td>
</tr>
<tr>
<td width="35%" height="50">**Confirmar Contrasea:</td>
<td width="65%" colspan="2" height="50"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
B-Allow-WhiteSpace="TRUE" B-Value-Required="TRUE" I-Minimum-Length="5"
I-Maximum-Length="10" --><input type="password" name="confirma_contrasena" size="32" maxlength="10"></td>
</tr>
<tr>
<td width="100%" colspan="3" height="47">
<p align="left"></td>
</tr>
<tr>
<td width="100%" colspan="3" height="53"><b><i>La cumplimentacin</i></b>
de los siguientes datos no es obligatorio para darse de alta como cliente
de mercaweb.</td>
</tr>
<tr>
<td width="100%" colspan="3" height="28">
<p align="center"><font size="5"><b>DATOS ESTADSTICOS</b></font></td>
</tr>
<tr>
<td width="100%" colspan="3" height="21"></td>
</tr>
<tr>
<td width="35%" height="50">Edad </td>
<td width="65%" colspan="2" height="50"><select size="1" name="edad">
<option>18 - 25</option>
<option>26 - 30</option>
<option>31 - 35</option>
<option>36 - 40</option>
<option>41 - 45</option>
<option>46 - 50</option>
<option>51 - 55</option>
<option>56 - 60</option>
<option>61 - 65</option>
<option>66 - 70</option>
<option>71 - 75</option>
<option>76 - 80</option>
<option>81 - 85</option>
<option>86 - 90</option>
<option>91 - 95</option>
<option>96 - 100</option>
</select></td>
</tr>
<tr>
<td width="35%" height="51">Sexo</td>
<td width="65%" colspan="2" height="51"><input type="radio" value="V3" name="sexo" checked>Hombre
<input type="radio" name="sexo" value="V4">Mujer</td>
</tr>
<tr>
<td width="35%" height="55">Profesin/Ocupacin</td>
<td width="65%" colspan="2" height="55"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" --><input type="text" name="trabajo" size="32"></td>
</tr>
<tr>
<td width="35%" height="50">Estado Civil</td>
<td width="65%" colspan="2" height="50"><select size="1" name="estado_civil">
<option>Casado</option>
<option>Soltero</option>
<option>Separado/Divorciado</option>
<option>Viudo</option>
</select></td>
</tr>
<tr>
<td width="35%" height="50">Familia Numerosa</td>
<td width="65%" colspan="2" height="50"><input type="radio" name="numerosa" value="L3" checked>Si
<input type="radio" name="numerosa" value="L4">No</td>
</tr>
<tr>
<td width="35%" height="49">Nmero de hijos</td>
<td width="65%" colspan="2" height="49"><select size="1" name="hijos">
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>+ de 5</option>
</select></td>
</tr>
<tr>
<td width="35%" height="46">Hobbies</td>
<td width="65%" colspan="2" height="46"></td>
</tr>
<tr>
<td width="34%" height="45"><input type="checkbox" name="C1" value="ON">Viajes</td>
<td width="33%" height="45"><input type="checkbox" name="C2" value="ON">Informtica</td>
<td width="33%" height="45"><input type="checkbox" name="C3" value="ON">Negocios</td>
</tr>
<tr>
<td width="34%" height="46"><input type="checkbox" name="C4" value="ON">Playa</td>
<td width="33%" height="46"><input type="checkbox" name="C5" value="ON">Campo</td>
<td width="33%" height="46"><input type="checkbox" name="C6" value="ON">Cine</td>
</tr>
</table>
<p><input type="checkbox" name="C7" value="ON">Marque esta casilla de
verificacin si desea recibir informacin sobre nuestras ofertas.
</p>
<p><br><br>
<a href="../../../../../../Inetpub/wwwroot/supermercado/Pedro_Secciones.htm">
<input type="submit" value="Dar de Alta" style="font-weight: bold; border: 1px outset #CCCCCC; background-color: #CCCCCC">
</a>
</p>
</form>
<%
\'cdigo de inserta alumno de la fase 4
Set BD=Server.CreateObject("ADODB.Connection")
\'BD.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("../data/bd1.1.mdb")
BD.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\supermercado\data\supermercado.mdb;"
Set nueva_registrados=Server.CreateObject("ADODB.Recordset")
\'query="SELECT * FROM Usuarios WHERE Login=\'" & request.form("flogin") & "\'"
nueva_registrados.Open query,BD
if nueva_registrados.EOF then
\'Se puede insertar
\'Todo la linea siguiente se cierra entre comillas
\'Cada uno de los de Value se escriben: \'" & (..) & "\' separados por comas
\'query="INSERT INTO Nueva_Registrados(Nombre,Apellidos,Domicilio,Provincia,Cdigo postal,TLF_decontacto,E_mail,DNI,Contrasea) VALUES(\'" & request.form("nombre") & "\',\'" & request.form("apellidos") & "\',\'" & request.form("domicilio") & "\',\'" & request.form("provincia") & "\',\'" & request.form("codigo_postal") & "\',\'" & request.form("tlfdecontacto") & "\',\'" & request.form("e_mail") & "\',\'" & request.form("dni") & "\',\'" & request.form("contrasena") & "\')"
\'Estos de aqu?encima son los campos de la BD
\'BD.Execute(query)
\'Ahora se rellenan los datos estadsticos
\'Falta poner el campo hobbies
\'query="INSERT INTO Datos_Estadsticos(Edad,Sexo,Profesin_Ocupacin,Estado_Civil,Familia_numerosa,Numerodehijos) VALUES(\'" & request.form("edad") & "\',\'" & request.form("sexo") & "\',\'" & request.form("trabajo") & "\',\'" & request.form("estado_civil") & "\',\'" & request.form("numerosa") & "\',\'" & request.form("hijos") & "\')"
\'BD.Execute(query)
Response.Write ("<br> Enhorabuena " & Request.form("nombre"))
Response.Write (", ya ests registrado")
BD.Close
else
Response.Write ("Error! Ya existe el mismo login en la base de datos. Debe elegir otro login.")
end if
%>
<p> </p>
</body>
</html>
Desde aqu os pido ayuda para solucionar el siguiente problema con el que llevo unos cuantos das buenos y no doy con la solucin. A ver si podeis ayudarme.
Tipo de error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
Aqu os mando el cdigo por si os sirve para verlo mejor:
<html>
<head>
</head>
<body bgcolor="#FFFF99">
<form action="formulario.asp" method="get" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<h1>Formulario de Registro</h1>
<table border="0" width="100%" height="1369">
<tr>
<td width="100%" colspan="3" height="21">* Campos a rellenar
obligatoriamente.</td>
</tr>
<tr>
<td width="100%" colspan="3" height="59">** La contrasea ha de contener un
mnimo de cinco caracteres y un mximo de diez. Pueden utilizarse solo
letras o nmeros, combinaciones de ambas, y/o espacios en blanco.
<p> </td>
</tr>
<tr>
<td width="35%" height="54">*Nombre</td>
<td width="65%" colspan="2" height="54"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-WhiteSpace="TRUE"
B-Value-Required="TRUE" I-Minimum-Length="3" I-Maximum-Length="50" --><input type="text" name="nombre" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="53">*Apellidos</td>
<td width="65%" colspan="2" height="53"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-WhiteSpace="TRUE"
B-Value-Required="TRUE" I-Minimum-Length="3" I-Maximum-Length="50" --><input type="text" name="apellidos" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="55">*Domicilio</td>
<td width="65%" colspan="2" height="55"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
B-Allow-WhiteSpace="TRUE" B-Value-Required="TRUE" I-Minimum-Length="5"
I-Maximum-Length="50" --><input type="text" name="domicilio" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="54">*Provincia </td>
<td width="65%" colspan="2" height="54"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-WhiteSpace="TRUE"
B-Value-Required="TRUE" I-Minimum-Length="5" I-Maximum-Length="50" --><input type="text" name="provincia" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="54">*Cdigo Postal</td>
<td width="65%" colspan="2" height="54"><!--webbot bot="Validation"
S-Data-Type="Number" S-Number-Separators="x," B-Value-Required="TRUE"
I-Minimum-Length="5" I-Maximum-Length="5" --><input type="text" name="codigo_postal" size="32" maxlength="5"></td>
</tr>
<tr>
<td width="35%" height="55">*Telf.. de Contacto:</td>
<td width="33%" height="55"><!--webbot bot="Validation" S-Data-Type="Number"
S-Number-Separators="x," B-Value-Required="TRUE" I-Minimum-Length="9"
I-Maximum-Length="9" --><input type="text" name="tlfdecontacto" size="32" maxlength="9"></td>
<td width="32%" height="55">Ejemplo: 928352434</td>
</tr>
<tr>
<td width="35%" height="53">*E-mail</td>
<td width="65%" colspan="2" height="53"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
B-Allow-WhiteSpace="TRUE" B-Value-Required="TRUE" I-Minimum-Length="3"
I-Maximum-Length="50" --><input type="text" name="e_mail" size="32" maxlength="50"></td>
</tr>
<tr>
<td width="35%" height="53">*D.N.I.:</td>
<td width="33%" height="53"><!--webbot bot="Validation" S-Data-Type="String"
B-Allow-Letters="TRUE" B-Allow-Digits="TRUE" B-Value-Required="TRUE"
I-Minimum-Length="9" I-Maximum-Length="9" --><input type="text" name="dni" size="32" maxlength="9"></td>
<td width="32%" height="53">Ejemplo: 78487766J</td>
</tr>
<tr>
<td width="35%" height="54">**Contrasea:</td>
<td width="65%" colspan="2" height="54"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
B-Allow-WhiteSpace="TRUE" B-Value-Required="TRUE" I-Minimum-Length="5"
I-Maximum-Length="10" --><input type="password" name="contrasena" size="32" maxlength="10"></td>
</tr>
<tr>
<td width="35%" height="50">**Confirmar Contrasea:</td>
<td width="65%" colspan="2" height="50"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
B-Allow-WhiteSpace="TRUE" B-Value-Required="TRUE" I-Minimum-Length="5"
I-Maximum-Length="10" --><input type="password" name="confirma_contrasena" size="32" maxlength="10"></td>
</tr>
<tr>
<td width="100%" colspan="3" height="47">
<p align="left"></td>
</tr>
<tr>
<td width="100%" colspan="3" height="53"><b><i>La cumplimentacin</i></b>
de los siguientes datos no es obligatorio para darse de alta como cliente
de mercaweb.</td>
</tr>
<tr>
<td width="100%" colspan="3" height="28">
<p align="center"><font size="5"><b>DATOS ESTADSTICOS</b></font></td>
</tr>
<tr>
<td width="100%" colspan="3" height="21"></td>
</tr>
<tr>
<td width="35%" height="50">Edad </td>
<td width="65%" colspan="2" height="50"><select size="1" name="edad">
<option>18 - 25</option>
<option>26 - 30</option>
<option>31 - 35</option>
<option>36 - 40</option>
<option>41 - 45</option>
<option>46 - 50</option>
<option>51 - 55</option>
<option>56 - 60</option>
<option>61 - 65</option>
<option>66 - 70</option>
<option>71 - 75</option>
<option>76 - 80</option>
<option>81 - 85</option>
<option>86 - 90</option>
<option>91 - 95</option>
<option>96 - 100</option>
</select></td>
</tr>
<tr>
<td width="35%" height="51">Sexo</td>
<td width="65%" colspan="2" height="51"><input type="radio" value="V3" name="sexo" checked>Hombre
<input type="radio" name="sexo" value="V4">Mujer</td>
</tr>
<tr>
<td width="35%" height="55">Profesin/Ocupacin</td>
<td width="65%" colspan="2" height="55"><!--webbot bot="Validation"
S-Data-Type="String" B-Allow-Letters="TRUE" --><input type="text" name="trabajo" size="32"></td>
</tr>
<tr>
<td width="35%" height="50">Estado Civil</td>
<td width="65%" colspan="2" height="50"><select size="1" name="estado_civil">
<option>Casado</option>
<option>Soltero</option>
<option>Separado/Divorciado</option>
<option>Viudo</option>
</select></td>
</tr>
<tr>
<td width="35%" height="50">Familia Numerosa</td>
<td width="65%" colspan="2" height="50"><input type="radio" name="numerosa" value="L3" checked>Si
<input type="radio" name="numerosa" value="L4">No</td>
</tr>
<tr>
<td width="35%" height="49">Nmero de hijos</td>
<td width="65%" colspan="2" height="49"><select size="1" name="hijos">
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>+ de 5</option>
</select></td>
</tr>
<tr>
<td width="35%" height="46">Hobbies</td>
<td width="65%" colspan="2" height="46"></td>
</tr>
<tr>
<td width="34%" height="45"><input type="checkbox" name="C1" value="ON">Viajes</td>
<td width="33%" height="45"><input type="checkbox" name="C2" value="ON">Informtica</td>
<td width="33%" height="45"><input type="checkbox" name="C3" value="ON">Negocios</td>
</tr>
<tr>
<td width="34%" height="46"><input type="checkbox" name="C4" value="ON">Playa</td>
<td width="33%" height="46"><input type="checkbox" name="C5" value="ON">Campo</td>
<td width="33%" height="46"><input type="checkbox" name="C6" value="ON">Cine</td>
</tr>
</table>
<p><input type="checkbox" name="C7" value="ON">Marque esta casilla de
verificacin si desea recibir informacin sobre nuestras ofertas.
</p>
<p><br><br>
<a href="../../../../../../Inetpub/wwwroot/supermercado/Pedro_Secciones.htm">
<input type="submit" value="Dar de Alta" style="font-weight: bold; border: 1px outset #CCCCCC; background-color: #CCCCCC">
</a>
</p>
</form>
<%
\'cdigo de inserta alumno de la fase 4
Set BD=Server.CreateObject("ADODB.Connection")
\'BD.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("../data/bd1.1.mdb")
BD.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\supermercado\data\supermercado.mdb;"
Set nueva_registrados=Server.CreateObject("ADODB.Recordset")
\'query="SELECT * FROM Usuarios WHERE Login=\'" & request.form("flogin") & "\'"
nueva_registrados.Open query,BD
if nueva_registrados.EOF then
\'Se puede insertar
\'Todo la linea siguiente se cierra entre comillas
\'Cada uno de los de Value se escriben: \'" & (..) & "\' separados por comas
\'query="INSERT INTO Nueva_Registrados(Nombre,Apellidos,Domicilio,Provincia,Cdigo postal,TLF_decontacto,E_mail,DNI,Contrasea) VALUES(\'" & request.form("nombre") & "\',\'" & request.form("apellidos") & "\',\'" & request.form("domicilio") & "\',\'" & request.form("provincia") & "\',\'" & request.form("codigo_postal") & "\',\'" & request.form("tlfdecontacto") & "\',\'" & request.form("e_mail") & "\',\'" & request.form("dni") & "\',\'" & request.form("contrasena") & "\')"
\'Estos de aqu?encima son los campos de la BD
\'BD.Execute(query)
\'Ahora se rellenan los datos estadsticos
\'Falta poner el campo hobbies
\'query="INSERT INTO Datos_Estadsticos(Edad,Sexo,Profesin_Ocupacin,Estado_Civil,Familia_numerosa,Numerodehijos) VALUES(\'" & request.form("edad") & "\',\'" & request.form("sexo") & "\',\'" & request.form("trabajo") & "\',\'" & request.form("estado_civil") & "\',\'" & request.form("numerosa") & "\',\'" & request.form("hijos") & "\')"
\'BD.Execute(query)
Response.Write ("<br> Enhorabuena " & Request.form("nombre"))
Response.Write (", ya ests registrado")
BD.Close
else
Response.Write ("Error! Ya existe el mismo login en la base de datos. Debe elegir otro login.")
end if
%>
<p> </p>
</body>
</html>