jeg bruger dette script på en af mine andre sider kan/skal den der progressbar implementeres i det ?
<%Session.lcid = 1030%>
<!-- AspUpload Code samples: odbc_upload.asp -->
<!-- Invoked by odbc.asp -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!--
http://www.persits.com -->
<HTML><style type="text/css">
<!--
body {
background-color: #f6f6f6;
}
-->
</style>
<link href="stylesheet.css" rel="stylesheet" type="text/css">
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="black9">
<%
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.SaveVirtual "../images/upload"
' Obtain file object
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
' Build ODBC connection string
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/gutterne.mdb")
' If you use SQL Server, the connecton string must look something like this:
' Connect = "Driver=SQL Server;Server=MYSRV;Database=master;UID=sa;PWD=xxx"
' Build SQL INSERT statement
SQL = "INSERT INTO myimages(ImageBlob, Filename, Filesize, userID, UploadDate, UploadTime, Category, Title, Description) VALUES(?, '"
SQL = SQL & File.Filename & "', '"
SQL = SQL & File.Size & "', '"
SQL = SQL & Replace(Upload.Form("IDuser"), "'", "''") & "', "
SQL = SQL & "#"& Replace(Upload.Form("Date"), "'", "''") & "#, "
SQL = SQL & "'"& Replace(Upload.Form("Time"), "'", "''") & "', "
SQL = SQL & "'"& Replace(Upload.Form("Category"), "'", "''") & "', "
SQL = SQL & "'"& Replace(Upload.Form("Title"), "'", "''") & "', "
SQL = SQL & "'"& Replace(Upload.Form("Description"), "'", "''") & "')"
' Save to database
File.ToDatabase Connect, SQL
Response.Write "Filen er gemt.</P>"
Response.Write "<a href='../galleri.asp' target='_parent'>Klik her for at uploade flere billeder</a>"
Else
Response.Write "Vælg en fil inden du prøver at uploade."
End If
%>
</BODY>
</HTML>