tengo una tabla en la base de datos SQL 200 server llamda Correo1 con la estructura:
Nombre=varchar
Apellido=varchar
Email=varchar
Tengo este simple formulario llamado ingreso.html:
Código HTML:
<html> <head> <title>Listado de la Base de Datos</title> </head> <body> <big><big><p>REGISTRO DE DATOS</big></big> <br><br></p> <div align="center"><center> <form method="Post" action="ingreso.asp"> <input type="text" name="Dato1" size="20"> <input type="text" name="Dato2" size="20"> <input type="text" name="Dato3" size="20"> <input type="submit" value="Ingresar" name="B1"><input type="reset" value="Restablecer" name="B2"> </form> </body> </html>
Código HTML:
<%@ Language="VBScript" %> <html> <head> <title>Listado de la Base de Datos</title> </head> <body> <big><big><p>REGISTRO DE DATOS</big></big> <br><br></p> <div align="center"><center> <% Dim Con Dim rs Dim Temp Set Con=Server.CreateObject ("ADODB.Connection") Con.Open "Driver={SQL Server};Server=192.168.130.129;Database=Correo1;Uid=dbuser;Pwd=dbuser123;" set rs = Server.CreateObject("ADODB.recordset") Temp="Select * From Tabla1 Where Upper(Nombre)='" & Upper(Request("Dato1")) & "' And Upper(Apellido)='" & Upper(Request("Dato2")) & "' And Upper(Email)='" & Upper(Request("Dato3")) & "'" rs.open Temp,Con,2,3,1 If rs.BOF and rs.EOF Then rs.AddNew rs("Nombre") = Request("Dato1") rs("Apellido") = Request("Dato2") rs("Email") = Request("Dato3") rs.Update %> <p>Ingreso de datos completado</p> <% Else Response.write"El registro ya existe " End If rs.Close Con.Close %> </body> </html>
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'Upper'
/ingreso.asp, línea 16
Espero me ayuden,le doy vueltas al asunto y no entiendo.
Gracias.
David