Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 ASP update e insert
 Foro Bloqueado  Tema Bloqueado


Autor Temas
boratlon
Starting Member


5 Posts
Mensajes - 05 Oct 2009 :  23:08:37  Ver Perfil  Enviar Email
Hola... buscando por internet encontré un código que agrega registros, funciona muy bien... el problema que no sé cómo hacer para que actualice el registro que yo selecciono. Entiendo lo que tengo que hacer, pero no sé en qué parte del código tengo que escribirlo... Les dejo el código, muchas gracias.


<%
'Store extra upload info to a database and file contents to the disk
Server.ScriptTimeout = 5000

'Create upload form
Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE="_upload.asp"--><%

Server.ScriptTimeout = 1000
Form.SizeLimit = 1024*1024 '=10MB

'{b}Set the upload ID for this form.
'Progress bar window will receive the same ID.
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
'was the Form successfully received?
Const fsCompletted = 0

If Form.State = fsCompletted Then 'Completted
'Dim ubicacion
'ubicacion = Form("ubicacion")
Const VirtualFolder = "\fotografias"

'Create destination path+filename for the source file.
'Create an URL for image.
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath("\fotografias\" & Form("ubicacion")) & "\"
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _
+ GetPath(Request.ServerVariables("SCRIPT_NAME") ) _
+ "/" + Form("ubicacion") + "/"

'Open recordset to store uploaded data
Dim RS: Set RS = OpenUploadRS


Dim FileField
For Each FileField in Form.Files.Items
'Fo each file sent
if len(FileField.FileName)> 0 then 'File is specified.
Dim DestinationFileName

DestinationFileName = DestinationPath & FileField.FileName

'Save file to physical location
FileField.SaveAs DestinationFileName
end if
Next

'Store extra info about upload to database
RS.AddNew
RS("archivo1") = Form("foto1").FileName 'Form("1")
RS("archivo2") = Form("foto2").FileName 'Form("1")
RS("archivo3") = Form("foto3").FileName 'Form("1")
RS("archivo4") = Form("foto4").FileName 'Form("1")
RS("archivo5") = Form("foto5").FileName 'Form("1")
RS("seccion") = Form("ubicacion")
RS.Update

'What to do with Form("Description")?
Response.write "<table border='0'><tr><td valign='top' class='error'>Archivo/s subido/s:</td><td valign='top' class='error'>"
Dim Field: For Each Field in Form.Files.Items
Response.write "&nbsp;" & Field.FileName & "<br />"
Next
Response.Write "</td></tr></table>"
'{b}Save file to the destination
'{/b}

' response.write "<Font color=green><br>SourceFile was saved as " & DestinationFileName
' response.write "<br>See ListFiles table in " & Server.MapPath("upload.mdb") & " database.</Font>"

ElseIf Form.State > 25 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write "<br><Font Color=red>El tamaño de el/los archivo/s (" & Form.TotalBytes & "B) excede el límite permitido (" & Form.SizeLimit & "B)</Font><br>"
case else response.write "<br><Font Color=red>Ha ocurrido un error, inténtelo nuevamente.</Font><br>"
end Select
End If'Form.State = 0 then



Function OpenUploadRS()
Dim RS : Set RS = CreateObject("ADODB.Recordset")

'Open dynamic recordset, table Upload
RS.Open "fotografias", GetConnection, 2, 2

Set OpenUploadRS = RS
end Function

Function GetConnection()
dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=xxxxx;UID=xxxxx;PWD=xxxxx;DATABASE=xxxx"
set GetConnection = Conn
end function

Function SplitFileName(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case ":", "/", "\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
SplitFileName = PosF
End Function

Function GetPath(FullPath)
GetPath = left(FullPath, SplitFileName(FullPath)-1)
End Function


'{b}get an unique upload ID for this upload script and progress bar.
Dim UploadID, PostURL
UploadID = Form.NewUploadID

PostURL = Request.ServerVariables("SCRIPT_NAME")'{/b}


%>

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar