17/10/2007, 22:59
|
| | | Fecha de Ingreso: octubre-2007
Mensajes: 191
Antigüedad: 17 años, 6 meses Puntos: 0 | |
 Mensaje de Alerta al ingresar datos
buenas amigos de foros del web......necesito pedirles una ayuda.......lo que necesito hacer es que aparezca un mensaje de alerta para cuando el campo que se este ingresando en la base de datos ya existe, diga "usuario ya existe" y se tenga que dar aceptar.....de lo contrario si los datos no existen los ingrese y mande un mensaje de alerta que diga "usuario ingresado con exito"
Este es el codigo de mi pagina: Cita: <HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<FORM ACTION='Ingresar.asp' METHOD='GET' id=form1 name=form1>
</HEAD>
<%
dim dbConn
if Not IsEmpty(Request.Form("csr")) then
csr = replace(Request.Form("csr"), "'","" )
On Error Resume next
Dim Rs, Cnn, strSQL,, strSQL2, rs2
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")
'aca valido si el campo "CSR" ya existe o no.....si ya existe tiene que mandar un mensaje de alerta
strSQL = "select * from Tblcliente where csr='" & csr & "'"
rs.Open strSQL, Cnn, 1, 2
If Not rs.EOF then
Response.Write("El Usuario ya existe")
'si el usuario no existe.....lo ingresamos a la base de datos
else
strSQL2 = "INSERT INTO Tblcliente (csr, loc, guia_d, distribuidor, fecha_in, artefacto, serie, estado, fecha_avi, fecha_ret, guia_sta, gtia, tecnico, cod_auto) VALUES ( '" & csr & "' , '" & loc & "' , '" & guia_d & "' , '" & distribuidor & "' , '" & fecha_in & "' ,'" & artefacto & "' , '" & serie & "' , '" & estado & "' , '" & fecha_avi & "' , '" & fecha_ret & "' , '" & guia_sta & "' , '" & gtia & "' , '" & tecnico & "' , '" & cod_auto & "' )"
cnn.Execute(strSQL2)
end if
Cnn.Close
set Cnn= nothing
set rs=Nothing
%>
<BODY>
</BODY>
</HTML> De antemano muchas gracias |