Hejsan!

Jag får följande problem när jag vill ladda upp en bild (jag har precis bytt från W3Upload till SA):

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/nyheter/admin/saverelease.asp, line 25

Kan någon se vad jag gör för fel?

Line 25 är: strTitle = replace(strUtils.form("title"),"'","''") (Men där tror jag inte att felet ligger). OBS! Det finns en del bortkommenterad kod i filen - det är för W3Upload och inget att bry sig om).

Tacksam för svar!

Här är koden:

<code>
Response.buffer = "true"

Dim strUtils, strTitle, strPublishDate, strPmonth, strPyear, srtPublish, strName, strExtUrl, strSummary, strTextCopy, strBild

Dim conn, rs

'Set strUtils = Server.CreateObject("w3.Upload")
'Set file = strUtils.Form("Bild")

Set upl = Server.CreateObject("softartisans.fileup")

'capture input parameters

strTitle = replace(strUtils.form("title"),"'","''")
strPday = strUtils.form("Pday")
strPmonth = strUtils.form("pmonth")
strPyear = strUtils.form("pyear")
strPublish = strUtils.form("publish")
strName = strUtils.form("name")
strExtUrl = strUtils.form("exturl")
strSummary = replace(strUtils.form("summary"),"'","''")
strTextCopy = replace(strUtils.form("textcopy"),"'","''")

NewFileName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
upl.Form("Bild").SaveInVirtual "/artbilder/" & NewFileName

'if not file.fileName = VBNullString then
' fileName = file.fileName
' file.SaveToFile server.mappath("/artbilder/" & fileName)
'Else
' fileName = ""
'End If

if datefmt = "mmddyyyy" then
strPublishDate = strPmonth & "/" & strPday & "/" & strPyear
'response.write strPublishDate
else
'strPublishDate = strPday & "/" & strPmonth & "/" & strPyear
strPublishDate = strPyear & "/" & strPmonth & "/" & strPday
'response.write strPublishDate
end if

'save record into database

strSqlStmt = "INSERT INTO release (title, publishdate, publish, pmonth, pyear, name, exturl, Bild, summary, textcopy)"
strSqlStmt = strSqlStmt & " VALUES "
strSqlStmt = strSqlStmt & "("
strSqlStmt = strSqlStmt & "'" & strTitle & "', '" & strPublishDate & "', " & strPublish & ", "
strSqlStmt = strSqlStmt & "'" & strPmonth & "', '" & strPyear & "', "
strSqlStmt = strSqlStmt & "'" & strName & "', '" & strExtUrl & "', '" & NewFileName & "','" & strSummary & "', '" & strTextCopy & "')"

'response.write strSqlStmt
conn = strAdminProvider
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open strSqlStmt, conn

'display save confirmation
</code>

Hoppas någon kan hjälpa mig...

/Peter

Kanske är helt ute och cyklar...Men... ;-)

När jag tittar på din kodsnuitt ser jag inet att du instansierar strUtils någonstans. Objektet du faktiskt instansierar är ju upl och inte strUtils enligt din kodsnutt nedan.

'Set strUtils = Server.CreateObject("w3.Upload")
'Set file = strUtils.Form("Bild")

Set upl = Server.CreateObject("softartisans.fileup")

'capture input parameters

strTitle = replace(strUtils.form("title"),"'","''")


Borde du inte istället gör om det ovan till följande:

Set strUtils = Server.CreateObject("softartisans.fileup")
strTitle = replace(strUtils.form("title"),"'","''")

Edi: Se exempel här: http://www.learnasp.com/sa/uploadmultipartform.asp