Hola saludos a todos:
Mi problema es el siguiente:
Cuando realizo la inserción de un registro no existente en la base de datos, el sistema me lo inserta y cuando inserto un registro existente no me lo inserta. Hasta aqui todo bien. El problema se presenta al momento de redireccionar siempre me entrega el mismo mensaje que dice el registro ya existe. Aun asi evitando los registros duplicados.
asi es la manera en que realizo la validacion. Claro antes realizando una consulta a la base de datos preguntando por un usuario existente en dicha tabla.
Código PHP:
sSwitch=0
Do Until Reg.EOF
sSwitch = 1
Reg.Movenext
Loop
if sSwitch = 0 Then
Sql="Insert Into USUARIOBOD (usuario, contrasena, nombre, apellidos, cargo, tipo) Values ('"&sUser&"','"&sPass&"','"&sNom&"','"&sApe&"','"&sCargo&"','"&sTipo&"')"
Set Reg = DBConn.Execute(Sql)
Response.Write("<a href='Leer2.asp'> No Existe</a>")
else
Response.Write("<a href='duplicado.asp'> Existe</a>")
End if
aca esta el codigo completo:
Código PHP:
<%
if (Session("Usuario") = "") Then
Response.Redirect "advertencia.asp"
End if
sUser = Request.Form("textUser")
sPass = Request.Form("textPass")
sNom = Request.Form("textNom")
sApe = Request.Form("textApe")
sCargo = Request.Form("textCar")
function OpenMDBConn(Path)
Dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bod.mdb")
Set OpenMDBConn = Conn
End Function
Dim sSwitch
Dim sTipo
Dim DBConn
Set DBConn = OpenMDBConn("C:\Inetpub\wwwroot\bod")
Set Reg = Server.CreateObject("ADODB.RecordSet")
Set Reg2 = Server.CreateObject("ADODB.RecordSet")
Sql="select Id From USUARIOBOD Where usuario = '"&sUser&"'"
Reg.Open Sql, DBConn
sTipo=0
sSwitch=0
Do Until Reg.EOF
sSwitch = 1
Reg.Movenext
Loop
if sSwitch = 0 Then
Sql="Insert Into USUARIOBOD (usuario, contrasena, nombre, apellidos, cargo, tipo) Values ('"&sUser&"','"&sPass&"','"&sNom&"','"&sApe&"','"&sCargo&"','"&sTipo&"')"
Set Reg = DBConn.Execute(Sql)
Response.Write("<a href='Leer2.asp'> No Existe</a>")
else
Response.Write("<a href='duplicado.asp'> Existe</a>")
End if
%>
Espero no sea una molestia crear este tipo de tema. Pero es que ya he probado con bastantes cosas y aun no me funciona..
Gracias por su atención
