Avatar billede sunero Nybegynder
29. januar 2003 - 15:23 Der er 2 kommentarer og
3 løsninger

Filupload i ASP

Jeg har kæmpet lidt med følgende problem. Jeg gemmer et billede i min acces db , derefter gemmer jeg filen i en mappe. filnavnet bliver bestemt af løbenummeret i access db'en, f.eks. løbenummer 1 = fil 1.jpg. desværre får jeg fejlen "HTTP 500 - Intern serverfejl"

hvad er der galt ?
___________________________________________________

    Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")


'    Response.Write "Text : "
    PicDesc = mySmartUpload.Form("PicDesc")
    ProdId = mySmartUpload.Form("ProdId")

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open MM_IG_Conn_STRING
    Set rsPic = Server.CreateObject("ADODB.RecordSet")
    strSql = "Select * From pic"
    rsPic.Open strSql, Conn, adOpenKeyset, adLockOptimistic
    rsPic.AddNew
    rsPic("intRefId") = cint(ProdId)
    rsPic("strPicDesc") = Cstr(PicDesc)
    rsPic.update
    PicPath = ""
    PicPath = rsPic("intPicId")&".jpg"
    PicId  = rsPic("intPicId")

    path = "D:\web\importguiden.dk\www\pics\" & PicPath
    response.Write Path
    response.Write "<br>"
    myUpload.files.item("Form_file").saveas path

    File.SaveAs "D:\web\importguiden.dk\www\pics\" & PicPath
    rsPic.Close
      Set rsPic = Nothing
Avatar billede keysersoze Ekspert
29. januar 2003 - 15:44 #1
funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

så får du en besked du kan bruge til lidt mere
Avatar billede coltau Juniormester
29. januar 2003 - 15:49 #2
jeg kan kun se at denne linie skal ændres:
myUpload.files.item("Form_file").saveas path

til:
file = myUpload.files.item("Form_file")
Avatar billede coltau Juniormester
29. januar 2003 - 15:50 #3
Der er mere:

Den skal se således ud:
file = mySmartUpload.files.item("Form_file")
Avatar billede sunero Nybegynder
29. januar 2003 - 15:52 #4
tak, så får jeg fejlen nedenfor ( linie 52 er
" File.SaveAs "D:\web\importguiden.dk\www\pics\" & PicPath")
D:\web\www\pics\13.jpg

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/admin/AddPicCommit.asp, line 52
Avatar billede sunero Nybegynder
29. januar 2003 - 16:13 #5
Jeg fandt selv problemet som var :

mySmartUpload.files.item("form_file").saveas(path)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester