hola tengo una pagina simple que tiene que ingresar un titulo y una descripcion y luego actualizarlo. funciona pero me registra los mismos valores x 2 repetidos. y no encuentro por que. tambien me gustaria si me dan una mano para que despues de guardar la promocion me quedara el txtid cosa que si vuelvo a apretar guardar se actualize y no lo tome como una promo nueva. aca les dejo el codigo!
<!--#include file="connect.inc"-->
<%
if Session("aut")<>True then
response.Redirect("index.asp")
end if
if Request.Form("txtaction")="N" then
response.Redirect("presentacion.asp")
end if
Response.Buffer=true
Response.Expires=0
txtid=request.QueryString("txtid")
ID=request("txtid")
IDSit=request.querystring("txtid")
nombre=request("nombre")
descripcion=request("descripcion")
promo = ""
'tomar los datos de la promocion y prepararlos para mostrar
if txtid<>"" then
strSQLID="SELECT * FROM PROMOCIONES Where ID_PROMOCION="& txtid
set objrsx=server.CreateObject("ADODB.Recordset")
objrsx.Open strSQLID, Conexion
nombre = objrsx.Fields("PRO_NOMBRE")
descripcion=objrsx.Fields("PRO_DESCRIPCION")
foto =objrsx.Fields("PRO_FOTO")
objrsx.movenext
end if
if txtid="" and Request.Form("txtaction")="G" then
if nombre<>"" then
Conexion.Execute("INSERT INTO PROMOCIONES(PRO_NOMBRE, PRO_DESCRIPCION) VALUES ('"&Request("nombre")&"', '"& Request("descripcion")&"' )" )
strSQLID="SELECT MAX(ID_PROMOCION)AS MAXIMO FROM PROMOCIONES"
Conexion.Execute(strSQLID)
set objRSID=Conexion.Execute(strSQLID)
txtid=objRSID.Fields("MAXIMO")
'Create an instance of the FileSystemObject
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Create C:\FooBar
If Not objFSO.FolderExists(Server.MapPath("../img/promo" & txtid)) then
objFSO.CreateFolder(Server.MapPath("../img/promo" & txtid &""))
objFSO.CreateFolder(Server.MapPath("../img/promo" & txtid &"/fotos"))
objFSO.CreateFolder(Server.MapPath("../img/promo" & txtid &"/planos"))
objFSO.CreateFolder(Server.MapPath("../img/promo" & txtid &"/videos"))
set objFSO = nothing
end if
promo = "La Promocion se guardo correctamente"
else
promo = "Faltan Datos en la promocion para ser cargada"
end if
'actualizar propiedad
else if txtid <> "" and Request.Form("txtaction")="G" then
strSQLI="UPDATE PROMOCIONES SET PRO_NOMBRE='"& Request("nombre")&"', PRO_DESCRIPCION='"& Request("descripcion")&"' WHERE ID_PROMOCION="& txtid
Conexion.BeginTrans()
Conexion.Execute(strSQLI)
Conexion.CommitTrans()
Dim objFSO1
Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")
'Create C:\FooBar
If Not objFSO1.FolderExists(Server.MapPath("../img/promo" & txtid)) then
objFSO1.CreateFolder(Server.MapPath("../img/promo" & txtid &""))
objFSO1.CreateFolder(Server.MapPath("../img/promo" & txtid &"/fotos"))
objFSO1.CreateFolder(Server.MapPath("../img/promo" & txtid &"/planos"))
objFSO.CreateFolder(Server.MapPath("../img/promo" & txtid &"/videos"))
set objFSO1 = nothing
End If
promo = "La Promocion Fue Actualizada"
end if
End If
'datos ya cargados
if ID <> "" then
strSQL="SELECT * FROM PROMOCIONES WHERE ID_PROMOCION="& txtid
set objRS=server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, Conexion
while not objRS.eof
nombre=objRS.Fields("PRO_NOMBRE")
descripcion=objRS.Fields("PRO_DESCRIPCION")
objRS.movenext
wend
End if
'actualizar datos
'objrsx.close
'objRS.close
Conexion.close
'objRSID.close
'objrsx = nothing
'set objRSID = nothing
'set objRS = nothing
set Conexion = nothing
%>
<script language="JavaScript" type="text/JavaScript">
function guardar()
{
frm.txtaction.value="G";
frm.submit();
}
function nuevo()
{
frm.txtaction.value="N";
txtid = ""
PRI_CODPRO.value=""
frm.submit();
}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Rehdicon - Control Panel</title>
<link href="estilo.css" rel="stylesheet" type="text/css" />
<script src="../Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<body>
<div class="cuerpo">
<div class="izq">
<p><a href="#">Promoción</a><br />
<a href="ubicacion.asp?txtid=<%=txtid%>">Ubicación</a><br />
<a href="planos.asp?txtid=<%=txtid%>">Planos</a><br />
<a href="galeria?txtid=<%=txtid%>">Galeria</a><br />
<a href="calidades.asp?txtid=<%=txtid%>">Calidades</a><br />
<a href="video.asp?txtid=<%=txtid%>">Video</a></p>
</div>
<div class="der">
<form action="" method="post" name="frm" id="frm">
<fieldset>
<legend>INFO DE LA PROMOCION</legend>
<label for="nombre">Nombre:</label>
<input name="nombre" type="text" id="nombre" value="<%=nombre%>" size="30" />
<br /><br />
<label for="descripcion">Descripcion:</label>
<textarea name="descripcion" cols="30" rows="10" id="descripcion"><%=descripcion%></textarea>
<input name="txtaction" type="hidden" id="txtaction"/>
<input name="txtid" type="hidden" id="txtid" value="<%=ID_PROPIEDAD%>" />
<input name="txtidsit" type="hidden" id="txtidsit" value="<%=txtid%>" />
<p>
<input name="Submit" type="submit" class="select1" value="Guardar" onclick="guardar();" />
<%=promo%> </p>
</fieldset>
</form>
</div>
</div>
</body>
</html>
