Agregar registros a una base da datos Mysql en Asp

HellDeath · #1 (**permalink**) 26/02/2002, 17:47

Alguien que me de un ejemplo de como insertar registros o alimentar con informacion una base de datos de MySQL por medio a una pagina ASP,tengo problemas con el siguiente codigo, ingreso los datos, pero en la consulta los datos me salen en modo 'NULL', por favor respondan a la mayor velocidad que sus dedos puedan escribir:

:( :roto:

:prohibido

:-p

<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>


'comienza el script
<%

Dim Conexion, adoDataConn, Tabla
Dim Temp

Conexion = "driver={MySQL}; server=66.33.50.71; uid=root; pwd=121968; database=medicos; option=37"
Set adoDataConn = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
adoDataConn.Open Conexion
%>

<%

Temp="Select * From datos Where UCase(nombre)='" & UCase(Request("Dato1")) & "' And UCase(apellido)='" & UCase(Request("Dato2")) & "' And UCase(especialidad)='" & UCase(Request("Dato3")) & "' And UCase(direccion)='" & UCase(Request("Dato4")) & "' And UCase(telefono)='" & UCase(Request("Dato5")) &"'"
Tabla.Open Temp,Conexion,2,3,1

If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("nombre") = Request("Dato1")
Tabla("apellido") = Request("Dato2")
Tabla("especialidad") = Request("Dato3")
Tabla("direccion") = Request("Dato4")
Tabla("telefono") = Request("Dato5")
Tabla.Update
%>

Ingreso de datos completado

<%
Else
Response.Write "El registro ya existe"
End If

Tabla.Close
adoDataConn.Close
%>

Buscador Web 2002

<a href="cargar.htm" target="_top">Ingresar
Nuevo</a>
</html>