tema de comillas dobles y simples.

carlunchos · #1 (**permalink**) 26/01/2002, 18:09

Alguien me puede dar una manito con este codigo?, no funciona y creo que es por problemas con la ubicacion de las comillas.

<%@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

if Tabla.BOF And Tabla.EOF then
Tabla.AddNew
Tabla("nombre")=Request("Dato1&quot ;)
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>

Agradeceria por que la mala ubicacion de dichas comillas.

Saludos.

elburrex · #2 (**permalink**) 26/01/2002, 18:23

a ver estas seguro que tu conexion esta corriendo bien..

Conexion.Open "Correo"

no se supone que en ves de "correo" va tu string de conexion, pero bueno si te corre bien, yo te recomendaria para tu string de abajo que hagas lo siguiente:

Temp="Select * from Tabla1 Where UCase(nombre)='" & UCase(Request("Dato1")) & "&
And UCase(apellido)="' & UCase(Request("Dato2")) & '" And UCase(email)="' &
UCase(Request("Dato3")) & "'"

response.write Temp
response.end

coloca estas dos lineas volcaras al browser todo tu string
Temp y podras ver si tiene problemas...
es mas yo probaria ese string directamente en el SQL si es que trabajas con SQL, en el Query Analayzer, bueno algo asi se llama el programa

saludos...

urjose · #3 (**permalink**) 26/01/2002, 18:24

hola, en que linea te manda el error o q onda?

yo veo algo raro aqui

Temp="Select * from Tabla1 Where UCase(nombre)='" & UCase(Request("Dato1")) & "&
And UCase(apellido)="' & UCase(Request("Dato2")) & '" And UCase(email)="' &
UCase(Request("Dato3")) & "'"

Temp="Select * from Tabla1 Where nombre='" & UCase(Request("Dato1")) & "'
And apellido="' & UCase(Request("Dato2")) & "' And email='" &
UCase(Request("Dato3")) & "'"

No puedes utilizar vbscript dentro del sql en todo caso mejor usar el LIKE

....Where nombre LIKE '" & UCase(Request("Dato1")) & "'...

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">