AspSmartUpload Script

Jag undrar ifall nån har aspsmartupload script som sparar bilder i mappen, å filnamnet till databasen.
Min server stödjer aspsmartupload, men jag hittar ingen script till det...

cheers
:bire

http://www.aspsmart.com/aspSmartUpload/ kanske?

..

japp, men jag kan inte få dem å funka, jag får objekt recuired

Då vill vi se den kod du försöker med.

<%
' Variables
' *********
Dim mySmartUpload
Dim intCount

' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload
' ******
mySmartUpload.Upload

' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("bilder")
' sample with a physical path
' intCount = mySmartUpload.Save("bild")

' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.")
%>
<%
Set connect = Server.CreateObject("ADODB.Connection")
connect.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("data/community.mdb"))
Set RecSet = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM members"
set RS = Connection.Execute(SQL)
SQL = "UPDATE members Set bild = '"&File.FileName&"' where id ="&session("id")
Connection.Execute(SQL)
%>

Finn ett fel. ;)

Set [b]connect[/b] = Server.CreateObject("ADODB.Connection")
 . ..
[b]Connection[/b].Execute(SQL)

jag får endå object required... :(

Visa kod och markera den kodrad som felmeddelandet pekar på.

viki skrev:

jag får endå object required... :(

Två rader ovanför det som @nders anmärkte på finns ett object som inte är instansierat.

jag fick tag på aspupload scriptet, men jag får en
To few parameters exepted 1

line 42

koden ser ut såhär

<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim strSQL
Dim oRs
Dim intCount
intCount=0

' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload
' ******
mySmartUpload.Upload

' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("bilder")
' sample with a physical path
' intCount = mySmartUpload.Save("c:\temp\")

' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("data\community.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

' Open a recordset
' ****************
strSQL = "SELECT FILENAME,Bild FROM Members"

Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open

' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then

  '  Add the current file in a DB field
  '  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
     oRs.AddNew
     file.FileToField oRs.Fields("Bild")
	 oRs("FILENAME") = file.FileName
     oRs.Update
     intCount = intCount + 1
  End If

Next

' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.<BR>")

' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>

viki skrev:

jag fick tag på aspupload scriptet, men jag får en
To few parameters exepted 1

Felmeddelandet brukar betyda att man har stavat fel på ett tabell- eller fältnamn i sin SQL-fråga, dvs skrivit något som inte finns.

Använd gärna [kod]-taggar när du postar kod.