Este es el mensaje que me aparece en el navegador:
Error de compilación de Microsoft VBScript error '800a0409'
Constante de cadena sin terminar
/ingreso.asp, line 14
Temp="Select * from Tabla1 Where UCase(nombre)='" & UCase(Request("Dato1"))"' & '
---------------------------------------------------------------------------------^
Y este el codigo en cuestion:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<body bgcolor="#ffff00">
<% Dim conexion, Tabla
Set Conexion=Server.CreateObject("adodb.Connectio n")
Set Tabla=Server.CreateObject("adodb.Recordset&qu ot;)
Dim Temp
Conexion.Open "Correo"
Tabla.Open "Tabla1", Conexion
Temp="Select * from Tabla1 Where UCase(nombre)='" & UCase(Request("Dato1"))"' &
And UCase(apellido)="' &'" UCase(Request("Dato2"))"' & '" And UCase(email)="' &
UCase(Request("Dato3"))& "'"
Tabla.Open Temp, Conexion, 2, 3, 1
response.write Temp
response.end
if Tabla.BOF And Tabla.EOF then
Tabla.AddNew
Tabla("nombre")=Request("Dato1" ;)
Tabla("apellido")=Request("Dato2&qu ot;)
Tabla("email")=Request("Dato3" )
Tabla.Update
%>
<p>Ingreso de Datos completado</p>
<% Else
Response.Write "El registro ya existe"
end if
Tabla.Close
Conexion.Close
%>
</body>
</html>
El estring de conexion ya esta establecido "elburrex", en "Correo" puse el nombre de la base de acuerdo a la conexion odbc.
Probe lo que me dijiste pero me sigue sin funcionar. Si se te ocurre otra idea bienvenida.
Hola urjose, probe con lo tuyo y tampoco. Te digo lo mismo que a elburrex, si se te ocurre algo que lo haga funcionar chiflame.
Gracias nuevamente.
