Duplicidad de un resgistro en la base de datos

[Lmori]

hola a todos mi primera vez pasteando en un foro como practica personal me e propuesto hacer una manejador de contenido web pero estoy teniendo problema en mi Fecha.asp ya que me dice que cuando voy agregar un campo nuevo no me permite agregarle por que hay un campo previo con los valores que yo le pase por favor ayuda aquí le dejo el código:

<%
dim Conne

'Capturamos la informacion del formulario
usuario = Request.Form("Text1")
password = Request.Form("Text2")

'Conectamos a nuestra BD.
set Conne = Server.CreateObject("ADODB.Connection")
Conne.Open "FechaPW"

'Insertamos en la base de datos
Conne.execute "INSERT INTO Fecha (Fecha,Noticia) VALUES('"&usuario&"','"&password&"')"
%>

Ojo reuse gran parte del codigo para ahorra tiempo

[Adler]

Hola

Revisa tu tabla, por que uno de esos campos no admite valores repetidos

Suerte

[Myakire]

Igual, cada quien nombra las variables como se le da la gana (mal hecho por cierto, jejeje), pero ¿qué tiene usuario y password con fecha y noticia?

Si no es algo que hayas hecho a propósito, pues ahí esta el error, siempre intentas guardar lo mismo.

Conne.execute "INSERT INTO Fecha (Fecha,Noticia) VALUES('"&usuario&"','"&password&"')"

[Lmori]

mi tabla esta echa en excel y contiene ahora mismo 3 campo originalmente tenia 2 pero le agregue uno mas que es el Idf o Id de fecha es autonumerico y solo le pase los paramentos de los campos que voy a necesitar llenar

[Lmori]

lo que hago es simplemente pesarle los valores que tiene el formulario donde viene la información como dije anteriormente re use gran parte del código para ahorrar tiempo ambos parámetros son tipo texto en la tabla y es texto lo que pido del formulario

[Lmori]

<%'Recorido%>
<%
dim ConnA
dim RSA
dim SQLA

'Antes de nada hay que instanciar el objeto Connection
Set ConnA = Server.CreateObject("ADODB.Connection")

'Una vez instanciado Connection lo podemos abrir y le asignamos la base de datos donde vamos a efectuar las operaciones
ConnA.Open "FechaPW"

'Ahora creamos la sentencia SQL que nos servira para hablar a la BD
Set SQLA = Server.CreateObject("ADODB.Recordset")

set RSA = ConnA.Execute("SELECT * FROM Fecha")
%>
<%'Modificar Texto%>
<%
dim ConnM
dim SQLM
dim RSM
dim usuario
dim password

'Instanciamos y abrimos nuestro objeto conexion
Set ConnM = Server.CreateObject("ADODB.Connection")
ConnM.Open "FechaPW"

IF request.form("btnsend") = "Actualizar" THEN

Id = request.form("Id")
usuario = Request.Form("Usuario")
clave = Request.Form("Clave")

'Creamos la sentencia SQL y la ejecutamos
Set SQLBU = Server.CreateObject("ADODB.Recordset")

'Ahora creamos la sentencia SQL
Set SQLBU = ConnM.Execute ("Update Fecha Set Fecha = '" & usuario & "', Noticia = '" & Clave & "' WHERE IdF=" & Id )
'RSB.Update
response.write "Registro almacenado exitosamente..."
END IF
%>
<%'Eliminar Texto%>
<%
dim ConnW
dim SQL
dim RSW
dim SQLB

'Instanciamos y abrimos nuestro objeto conexion
Set ConnW = Server.CreateObject("ADODB.Connection")
ConnW.Open "FechaPW"

IF request.form("clr") = "Borrar" THEN

dim Id
Id = request.form("Id")

'Creamos la sentencia SQL
Set SQLB = Server.CreateObject("ADODB.Recordset")

Set SQLB = ConnW.Execute("Delete FROM Fecha WHERE Idf=" & Id)
response.write "Registro Fue Borrado exitosamente..."

END IF
%>
<%'Agregar Texto%>
<%
dim Conne

'Capturamos la informacion del formulario
usuario = Request.Form("Text1")
password = Request.Form("Text2")

'Conectamos a nuestra BD.
set Conne = Server.CreateObject("ADODB.Connection")
Conne.Open "FechaPW"

'Insertamos en la base de datos
Conne.execute "INSERT INTO Fecha (Fecha,Noticia) VALUES('"&usuario&"','"&password&"')"
%>

'Conexion base de datos del menu

set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Provider="Microsoft.Jet.OLEDB.4.0"
'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
Conn.Open "PW",1


set rs = Server.CreateObject("ADODB.recordset")
'rs.Open "SELECT * FROM PW WHERE ID = '" & "1" & "'", Conn
Set rs = Conn.Execute("SELECT * FROM PW")

MT = rs.GetRows

Response.Write("<TABLE>")

'Recorremos el vector
'Desde el primero hasta el último "registro"...
for up = 0 to UBound(MT,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último "campo"...
for ups = 0 to Ubound(MT, 1)
'Imprimo una celda para cada campo
'Response.Write("<TD>" & MT(ups, up) & "</TD>")
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")

'Conexion base de datos de las fechas

dim Conn2
dim rs2
dim MT2
dim up2
dim ups2

set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "FechaPW",1

set rs2 = Server.CreateObject("ADODB.recordset")
set rs2 = Conn2.Execute("SELECT * FROM Fecha")

MT2 = rs2.GetRows

Response.Write("<TABLE>")

'Recorremos el vector
'Desde el primero hasta el último "registro"...
for up2 = 0 to UBound(MT2,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último "campo"...
for ups2 = 0 to Ubound(MT2, 1)
'Imprimo una celda para cada campo
'Response.Write("<TD>" & MT2(ups2, up2) & "</TD>")
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")

'Conexion base de datos de los Textos

dim Conn3
dim rs3
dim MT3
dim ups3
dim up3

set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open "TPW",1

set rs3 = Server.CreateObject("ADODB.recordset")
set rs3 = Conn3.Execute("SELECT * FROM TPW")

MT3 = rs3.GetRows

Response.Write("<TABLE>")

'Recorremos el vector
'Desde el primero hasta el último "registro"...
for up3 = 0 to UBound(MT3,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último "campo"...
for ups3 = 0 to Ubound(MT3,1)
'Imprimo una celda para cada campo
'Response.Write("<TD>" & MT3(ups3, up3) & "</TD>")
'Response.Write MT3(2,18)
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")
%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Industrial Construction</title>
<link href="stylesheet/style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
.style1 {
text-align: right;
}
</style>
</head>

<body>
<div id="container" class="style1">
<div class="container-left">
<div class="logozone">
<a href="index.asp"><img src="images/logo.jpg" alt="" border="0" /></a>
</div>
<div class="clear"></div>
<div class="mainmenu">
<ul>
<li><a href="Texto.asp">Texto</a></li>
<li><a href="Fecha.asp">Fecha</a></li>
<li><a href="RC.asp">Logging</a></li>
<li><a href="">Menu</a></li>
<li><a href="Logout.asp">Log out</a></li>
</ul>
</div>
<div class="clear"></div>
<div>
<div class="newsheading">News &amp; Events</div>
<div>
<div>
<div class="newssubheading"><%=Fecha1%></div>
<div class="newscontent">
<%=Titulo4%>
</div>
</div>
</div>
<div>
<div>
<div class="newssubheading"><%=Fecha2%></div>
<div class="newscontent">
<%=Titulo5%></div>
</div>
</div>
<div>
<div>
<div class="newssubheading"><%=Fecha3%></div>
<div class="newscontent">
<%=Titulo5%></div>
</div>
</div>
<div>
<div>
<div class="newssubheading"><%=Fecha4%></div>
<div class="newscontent">
<%=Titulo4%>
</div>
</div>
</div>
<div>
<div>
<div class="newssubheading"><%=Fecha4%></div>
<div class="newscontent">
<%=Titulo5%></div>
</div>
</div>
</div>
<div class="clear"></div>
<div>
<div class="contactheading">Contact Us</div>
<div class="contactus-block">Address : <br />
<strong>Industrial Construction<br />
57B, consectetuer adipiscing elit<br />
Duis cursus tortor. NA, 12098<br />
Phone : [phone]</strong><br />
<strong>e-mail :</strong> [email protected]</div>
</div>
</div>
<div class="container-right" style="height: 469px">

<FORM ACTION="Fecha.asp" METHOD="post">
<table align="center" border="2">
<tr>
<th>Id</th>
<th>Fecha</th>
<th>Noticia</th>
</tr>
<%
Do While Not RSA.Eof
%>
<tr>
<td><%=RSA("IdF")%></td>
<td><%=RSA("Fecha")%></td>
<td><%=RSA("Noticia")%></td>
<%
RSA.MoveNext

Loop

'Cerramos el sistema de conexion
ConnA.Close
%>
</tr>
</table>
</FORM>

<FORM ACTION="Fecha.asp" METHOD="post">
Id<br>
<%
'Creamos la sentencia SQL y la ejecutamos
Set SQLB = Server.CreateObject("ADODB.Recordset")
set RSB = ConnM.Execute("SELECT * FROM Fecha")
%>
<select name="Id">
<%
'Generamos el menu desplegable
Do While not RSB.eof%>
<option value="<%=RSB("IdF")%>"><%=RSB("IdF")%>
<%RSB.movenext
Loop
%>
</select>
<br>
Fecha<br>
<INPUT NAME="Usuario"><br>
Noticia<br>
<INPUT NAME="Clave" type="text"><br>
<br>
<INPUT name="btnsend" TYPE="SUBMIT" value="Actualizar">
</FORM>

<FORM ACTION="Fecha.asp" METHOD="post">
<table style="width: 100%">
<tr>
<td style="width: 117px">Fecha :&nbsp;</td>
<td>&nbsp;<input name="Text1" type="text"></td>
</tr>
<tr>
<td style="width: 117px">Noticia :&nbsp;</td>
<td>&nbsp;<input name="Text2" type="text"></td>
</tr>
<tr>
</table>
<input type="submit" value="Add New">
<input type="reset" value="Cancel">
</FORM>

<FORM ACTION="Fecha.asp" METHOD="post">
Id<br>
<%
'Creamos la sentencia SQL y la ejecutamos
set RS = ConnW.Execute("SELECT * FROM Fecha")
%>

<select name="Id">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option value="<%=RS("IdF")%>"><%=RS("IdF")%>
<%
RS.movenext
Loop
%>
</select>
<br>
<INPUT name="clr" TYPE="SUBMIT" value="Borrar">
</FORM>

</div>
<div class="clear"></div>

<div class="clear"></div>
</div>
<div class="footer">
<div class="bottommenu">
<ul>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>

<li><a href="Texto.asp">Texto</a></li>
<li><a href="Fecha.asp">Fecha</a></li>
<li><a href="RC.asp">Logging</a></li>
<li><a href="">Menu</a></li>
<li><a href="Logout.asp">Log out</a></li>
</ul>

</body>
</html>

Aqui esta el codigo mas completo