Ayuda con mi codigo
Publicado por Alejandro (11 intervenciones) el 19/09/2006 15:15:51
Hola amigos podrian echarle un vistazo ami codigo y ver q suced.Yo lo que quiero hacer es cargar una base de datos que genere en access para ello hice todo este codigo. Asp
<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From Tabla1 Where UCase(Nombre de la Empresa)='" & UCase(Request("Dato1")) & "' And UCase(Nombre Contacto)='" & UCase(Request("Dato2")) & "' And UCase(Direccion)='" & UCase(Request("Dato3")) & "' And UCase(Telefono)='" & UCase(Request("Dato4")) & "' And UCase(Interno)='" & UCase(Request("Dato5")) & "' And UCase(Fax)='" & UCase(Request("Dato6")) & "' And UCase(Celular)='" & UCase(Request("Dato7")) & "' And UCase(E-mail)='" & UCase(Request("Dato8")) & "' And UCase(Pal)='" & UCase(Request("Dato9")) & "'"
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre de la Empresa") = Request("Dato1")
Tabla("Nombre Contacto") = Request("Dato2")
Tabla("Direccion") = Request("Dato3")
Tabla("Telefono") = Request("Dato4")
Tabla("Interno") = Request("Dato5")
Tabla("Fax") = Request("Dato6")
Tabla("Celular") = Request("Dato7")
Tabla("E-mail") = Request("Dato8")
Tabla("Pal") = Request("Dato9")
Tabla.Update
'fin del Script
%>
<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
Response.Write "El registro ya existe"
End If
'cerramos la conexion
Tabla.Close
Conexion.Close
%>
<p align="center"><font face="Tahoma" size="2"><b><i>Buscador Web 2006</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="ingreso.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
Este es mi codigo html ,para este de aqui arriba:
<HTML>
<HEAD>
<TITLE>Buscador web</TITLE>
</HEAD>
<!-- esta es la accion que hara cuando hagamos clic en el Boton INGRESAR -->
<BODY BGCOLOR="#FFCC00">
<FORM METHOD="Post" ACTION="ingreso.asp">
<!-- esto es modificable, lo que debemos dejar siempre es el nombre de el INPUT, que como ´vemos es Dato1, Dato2 etc. -->
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Nombre de la Empresa
<INPUT TYPE="text" NAME="Dato1" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Nombre Contacto
<INPUT TYPE="text" NAME="Dato2" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Direccion
<INPUT TYPE="text" NAME="Dato3" SIZE="17"></I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Telefono
<INPUT TYPE="text" NAME="Dato4" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Interno
<INPUT TYPE="text" NAME="Dato5" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Fax
<INPUT TYPE="text" NAME="Dato6" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Celular
<INPUT TYPE="text" NAME="Dato7" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>E-mail
<INPUT TYPE="text" NAME="Dato8" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Palabra Clave
<INPUT TYPE="text" NAME="Dato9" SIZE="20"> </I></B></FONT></P>
<P ALIGN="center"> <INPUT TYPE="submit" VALUE="Ingresar" NAME="B1">
<INPUT TYPE="reset" VALUE="Restablecer" NAME="B2"> </P> </FORM>
<P ALIGN="center"><FONT FACE="Tahoma" SIZE="2">Buscador Web 2006</FONT></P>
</BODY>
</HTML>
Espero que puedan darme una mano saludos
<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From Tabla1 Where UCase(Nombre de la Empresa)='" & UCase(Request("Dato1")) & "' And UCase(Nombre Contacto)='" & UCase(Request("Dato2")) & "' And UCase(Direccion)='" & UCase(Request("Dato3")) & "' And UCase(Telefono)='" & UCase(Request("Dato4")) & "' And UCase(Interno)='" & UCase(Request("Dato5")) & "' And UCase(Fax)='" & UCase(Request("Dato6")) & "' And UCase(Celular)='" & UCase(Request("Dato7")) & "' And UCase(E-mail)='" & UCase(Request("Dato8")) & "' And UCase(Pal)='" & UCase(Request("Dato9")) & "'"
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre de la Empresa") = Request("Dato1")
Tabla("Nombre Contacto") = Request("Dato2")
Tabla("Direccion") = Request("Dato3")
Tabla("Telefono") = Request("Dato4")
Tabla("Interno") = Request("Dato5")
Tabla("Fax") = Request("Dato6")
Tabla("Celular") = Request("Dato7")
Tabla("E-mail") = Request("Dato8")
Tabla("Pal") = Request("Dato9")
Tabla.Update
'fin del Script
%>
<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
Response.Write "El registro ya existe"
End If
'cerramos la conexion
Tabla.Close
Conexion.Close
%>
<p align="center"><font face="Tahoma" size="2"><b><i>Buscador Web 2006</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="ingreso.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
Este es mi codigo html ,para este de aqui arriba:
<HTML>
<HEAD>
<TITLE>Buscador web</TITLE>
</HEAD>
<!-- esta es la accion que hara cuando hagamos clic en el Boton INGRESAR -->
<BODY BGCOLOR="#FFCC00">
<FORM METHOD="Post" ACTION="ingreso.asp">
<!-- esto es modificable, lo que debemos dejar siempre es el nombre de el INPUT, que como ´vemos es Dato1, Dato2 etc. -->
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Nombre de la Empresa
<INPUT TYPE="text" NAME="Dato1" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Nombre Contacto
<INPUT TYPE="text" NAME="Dato2" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Direccion
<INPUT TYPE="text" NAME="Dato3" SIZE="17"></I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Telefono
<INPUT TYPE="text" NAME="Dato4" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Interno
<INPUT TYPE="text" NAME="Dato5" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Fax
<INPUT TYPE="text" NAME="Dato6" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Celular
<INPUT TYPE="text" NAME="Dato7" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>E-mail
<INPUT TYPE="text" NAME="Dato8" SIZE="20"> </I></B></FONT></P>
<P ALIGN="left"><FONT FACE="Tahoma" SIZE="2"><B><I>Palabra Clave
<INPUT TYPE="text" NAME="Dato9" SIZE="20"> </I></B></FONT></P>
<P ALIGN="center"> <INPUT TYPE="submit" VALUE="Ingresar" NAME="B1">
<INPUT TYPE="reset" VALUE="Restablecer" NAME="B2"> </P> </FORM>
<P ALIGN="center"><FONT FACE="Tahoma" SIZE="2">Buscador Web 2006</FONT></P>
</BODY>
</HTML>
Espero que puedan darme una mano saludos
Valora esta pregunta
0