Enviado por
goku el día 15 de enero de 2004
hola com estan
tengo un problema con una parte del seudocodigo yo he mirado pero me parece que no hay herror
adjunto el codigo
gracias
posdata no me deja insertar datos
<%
@ Language="VBScript"
%>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("\bases\base.mdb")
Dim Temp
Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1")) & "' And UCase(Des)='" & UCase(Request("Dato2")) & "' And UCase(Url)='" & UCase(Request("Dato3")) & "' And UCase(Categoria)='" & UCase(Request("Dato4")) & "' And UCase(Pal)='" & UCase(Request("Dato5")) &"'"
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("des") = Request("Dato2")
Tabla("Url") = Request("Dato3")
Tabla("Categoria") = Request("Dato4")
Tabla("Pal") = Request("Dato5")
Tabla.Update
%>
<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
Else
Response.Write "El registro ya existe"
End If
Tabla.Close
Conexion.Close
%>
<p align="center"><font face="Tahoma" size="2"><b><i>Buscador Web 2002</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="cargar.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
Responder
ASP
