Hola a todos, soy nuevo en ASP y espero me ayuden.
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>
y el ASP llamado ingreso.asp es el siguiente:
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> La tabla llamada tabla1 en el servidor SQL está vacia, no se ha agregado ningún registro; y cuando lo intento hacer mediante "ingreso.html" me da el siguiente error:
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