sorry - falsches forum, poste es noch mal ins coffee house > -----Original Message----- > From: Thomas Bandt [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, May 29, 2002 2:31 PM > To: ASP Diskussionsliste fuer Anfaenger > Subject: [aspdebeginners] upload in access-blob-field > > > hi... > > mit nachfolgendem code und sa fileupload will ich mp3's in ne > datenbank schreiben (an alle kritiker, das hat schon seinen > sinn ;))... > > problem: > > ich kann ohne die tests erfolgreich alle m�glichen sachen > hochladen... nur mp3's nicht. content-type ist audio/mpeg, er > l�uft da auch erfolgreich rein... aber als fehler bekomme > ich: > > "Die Argumente sind vom falschen Typ, liegen au�erhalb des > G�ltigkeitsbereiches oder sind miteinander unvereinbar." > > Zeile: > > upl.SaveAsBlob objRS.Fields("mp3_data") > > hier der gesamte code, ich hoffe es kann mir jemand helfen. > > ------------------------------------------------------------- > > If UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" Then > > Set upl = Server.CreateObject("SoftArtisans.FileUp") > upl.Path = "c:\temp" > > If Not upl.IsEmpty Then > > strDB = "Data Source=" & all_dbs & ";" > strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB > > > Set objCon = Server.CreateObject("ADODB.Connection") > objCon.Open strCon > > Set objRS = Server.CreateObject("ADODB.Recordset") > objRS.CursorType = adOpenStatic > objRS.cachesize = 5 > strSQL = "Select * From mp3 Where mp3_id = 0" > objRS.open strSQL, objCon,2,3 > > '// Check ob �berhaupt Mp3 > > FName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, > "\") + 1) > FCONT = upl.ContentType > > If LCase(FCONT) = Trim(LCase("audio/mpeg")) Then > objRS.AddNew > upl.SaveAsBlob objRS.Fields("mp3_data") > objRS.Update > objRS.Close > strMessage = "Das Mp3 wurde erfolgreich > hochgeladen." > Else > upl.delete > strMessage = "Die Datei die sie uploaden wollten > entspricht nicht dem Mp3-Format." > End If > > '// Recordset und DB-Connection schliessen > > objRS.Close > Set objRS = Nothing > objCon.Close > Set objCon = Nothing > > Else > strMessage = "Das Mp3 welches Sie uploaden wollten war > leer." > End If > > End If > > > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ > | [aspdebeginners] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie > | knnen sich unter folgender URL an- und abmelden: > | > http://www.aspgerman.com/aspgerman/listen/anme> lden/aspdebeginners.asp >
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
