No consigo que funcione !

gonzaloj · #1 (**permalink**) 21/01/2002, 15:05

Hola a todos lo primero alguien pe podria revisar este codigo y decirme por que no funciona?
Desesperado!
O si alguien me hiciese el fabor se lo mandaria por correo en .zip , por que ya no se si es lo de l ODBC o lo de Ad.Per. de web
------------------INSERTAR
<HTML>
<TITLE> Insertar un registro </TITLE>
<BODY>

<%

<%If (Request.Form("Nombre") = "gonzalo") then

'IF (Request.Form <> "") THEN este tambien lo use y nada

Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable

Ob_RS.AddNew
Ob_RS ("DNI")= CLng (Request.Form("DNI"))
Ob_RS ("Nombre")= Request.Form("NOMBRE")
Ob_RS ("Apellidos")= Request.Form("APELLIDOS")
Ob_RS ("Dirección") = Request.Form("DIRECCION")
Ob_RS ("Teléfono")= Request.Form("TELEFONO")
Ob_RS.Update
Ob_RS.Close
Ob_Conn.Close
Response.Write "<H3>" & "Datos insertados" & "<H3>"

ELSE %>
<H3> ESCRIBA SUS DATOS PERSONALES </H3> <BR>
<FORM METHOD="Post" ACTION="Insertar.asp">
DNI: <INPUT NAME="DNI" SIZE=10> <BR>
NOMBRE: <INPUT NAME="Nombre" SIZE=15> <BR>
APELLIDOS: <INPUT NAME="Apellidos" SIZE=30> <BR>
DIRECCION: <INPUT NAME="Direccion" SIZE=30> <BR>
TELEFONO: <INPUT NAME="Telefono" SIZE=15> <BR>
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% END IF %>
</BODY>
</HTML>

gonzaloj · #2 (**permalink**) 21/01/2002, 15:07

----------------BUSCAR

<HTML>
<TITLE> Filtrar un registro </TITLE>
<BODY>

<%IF (Request.Form <> "") THEN

Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable
Ob_RS.Filter = "Nombre = '" & Request.Form ("Nombre")& "'" %>
<H3> Estos son las personas encontradas </H3>
<TABLE BORDER=1>
<TR>
<TH> DNI </TH>
<TH> NOMBRE </TH>
<TH> APELLIDOS </TH>
<TH> DIRECCION </TH>
<TH> TELEFONO </TH>
<% DO WHILE NOT Ob_RS.Eof %>
<TR>
<TD><%= Ob_RS ("DNI") %></TD>
<TD><%= Ob_RS ("Nombre") %></TD>
<TD><%= Ob_RS ("Apellidos") %></TD>
<TD><%= Ob_RS ("Dirección") %></TD>
<TD><%= Ob_RS ("Teléfono") %></TD>
<% Ob_RS.MoveNext
LOOP
Response.Write "</TABLE>"
Ob_RS.Close
Ob_Conn.Close

ELSE %>
<H3> ESCRIBA EL NOMBRE A BUSCAR </H3> <BR>
<FORM METHOD="Post" ACTION="EjBD5.asp">
NOMBRE: <INPUT NAME="Nombre" SIZE=10> <BR><BR>
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% END IF %>
</BODY>
</HTML>

GRACIAS :)

urjose · #3 (**permalink**) 21/01/2002, 15:40

intentaste esto

IF Request.Form <> "" Then

quitandole los parentesis
la verdad no veo el error pero bueno

salu2 :)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

YF · #4 (**permalink**) 21/01/2002, 15:57

Hola Pana, Para insertar los datos intenta abriendo el recordset así:
Tabla.Open sqlstr,Conexion,2,3,1
sqlstr = La cadena con la instrucción sql
conexion = La conexion DSN
2,3,1 = Son el tipo de bloqueo, cursor y enrutamiento.

Es importante que verifique si el DSN fue creado de usuario o de sistema, el correcto es el DSN de Sistema .

Prueba con esto y me avisas porque si no funciona puedes construir tu propio DSN a traves del Provider.

Saludos
YF