ASP - opción modificar

 
Vista:

opción modificar

Publicado por igartzi (8 intervenciones) el 06/03/2006 19:28:52
Hola al foro;

estoy realizando web de inmobiliaria. Estoy utilizando 3 opciones para la maquinaria, insertar, modificar y borrar. El formulario de inserción, junto con campos de texto tb hay 3 campos de archivo, la opción de insertar funciona bien, y el de borrar tb, el problema viene a la hora de modificar un registro, lo que quiero es que el usuario pueda elegir si quiere subir archivos o no, en el caso de que no quiera subir ningun archivo es porque las fotos actuales no las quiere modificar. ¿como puedo hacer para que me funcione correctamante esta opción.

El código que he creado hasta ahora es:

<%

Set Upload = Server.CreateObject("Persits.Upload")

Path2 = Server.MapPath("../images/venta/fotosg")

Path3 = Server.MapPath("../images/venta/fotos")

Path =Server.MapPath("../images/fotos")

count = Upload.Save(Path)

vimagen1=Upload.Form("imagen1")
vimagen2=Upload.Form("imagen2")
vimagen3=Upload.Form("imagen3")

vid=Upload.Form("id")
vmod=Upload.Form("modificar")
vnuevo=Upload.Form("nuevo")
vlugar=Upload.Form("lugar")
vdescripcion=Upload.Form("descripcion")
vprecio=Upload.Form("precio")
vref=Upload.Form("ref")

Dim oConn,SQL
set oConn=Server.CreateObject("ADODB.Connection")
oConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("../bd/servre.mdb")

if vimagen1="" and vimagen2="" and vimagen3="" then
SQL="UPDATE venta SET ref='"&vref&"',lugar='"&vlugar&"',descripcion='"&vdescripcion&"',precio='"&vprecio&"' WHERE id="&vid
oConn.Execute(SQL)
else

if vimagen2="" and vimagen3="" then

Set File1 = Upload.Files("imagen1")
Set jpeg1 = Server.CreateObject("Persits.Jpeg")
Set jpeg4 = Server.CreateObject("Persits.Jpeg")
jpeg1.Open( File1.Path )
jpeg4.Open( File1.Path )
Jpeg1.Width = Jpeg1.OriginalWidth / 2
Jpeg1.Height = Jpeg1.OriginalHeight / 2
Jpeg4.Width = Jpeg4.OriginalWidth / 4
Jpeg4.Height = Jpeg4.OriginalHeight / 4
SavePath1 = Path2 & "\" & File1.ExtractFileName
SavePath4 = Path3 & "\" & File1.ExtractFileName
If UCase(Right(SavePath1, 3)) <> "JPG" Then
SavePath1 = SavePath1 & ".jpg"
End If
If UCase(Right(SavePath4, 3)) <> "JPG" Then
SavePath4 = SavePath4 & ".jpg"
End If
jpeg1.Save SavePath1
jpeg4.Save SavePath4

Set fs = Server.CreateObject("Scripting.FileSystemObject")



if fs.FileExists("d:\xvrt\dominio\html\maqueta/images/fotos/" & File1.Filename) then fs.DeleteFile("d:\xvrt\dominio\html\maqueta/images/fotos/" & File1.Filename)

Set fs = Nothing

SQL="UPDATE venta SET fotop1='" & File1.Filename & "',ref='"&vref&"',lugar='"&vlugar&"',descripcion='"&vdescripcion&"',precio='"&vprecio&"' WHERE id="&vid
oConn.Execute(SQL)
else
........................................................
....................................................
este código para todas las convinaciones de if.

espero que me puedan ayudar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:opción modificar

Publicado por gabriel brancolini (9 intervenciones) el 08/03/2006 21:31:45
fijate de estar usando bien las partes de tu sql
Si vas a hacer un update de texto, va entre comillas simples
Si vas a hacer un update de numero, va sin nada
Si vas a hacer un update de fecha, va entre numerales (#)

sino, yo de vos uso el objeto Update del ADODB

recordset(nro de columna) o recordset("Nombre columna")=valor
y luego le mandas un
recordset.update

y listo

y fijate que el componente de persist tiene para saber si ese archivo existe... si usas el filesystemobject mas un request.binaryread y un request.totalbytes no precisas ese componente de persist.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar