11/06/2002, 15:41
|
| | | Fecha de Ingreso: mayo-2002 Ubicación: Mexico DF
Mensajes: 119
Antigüedad: 23 años Puntos: 0 | |
| Re: ¿Sabrán hacer esto?
Hola Ojala te sirva esto
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "c:\upload"
On Error Resume Next
For Each File in Upload.Files
File.ToDatabase "DSN=MyImages;UID=sa;PWD=xxx;", _
"insert into MyImages(filename, Image1) values('" & File.Path & "', ?)"
if Err <> 0 Then
Response.Write "Error saving the file: " & Err.Description
Else
File.Delete
Response.Write "Success!"
End If
Next
%>
</BODY>
</HTML>
saludos |