Avatar billede amd Nybegynder
31. januar 2006 - 18:09 Der er 5 kommentarer og
2 løsninger

ASP upload på cliche server.

Hej eksperter

har følgende side, som skal uploade et billede på min server. Det fungerer på min wannafind server, men ikke på den cliche server, som det skal bruges på.


<%
response.write request.form("opretdato")
Server.ScriptTimeout = 3600
Set upload = Server.CreateObject("Persits.Upload")
Upload.Save
datoTid = Replace(now(),"/","")
datoTid = Replace(datoTid,"-","")
datoTid = Replace(datoTid,":","")

Set filnavn1 = Upload.Files(1)
if isNull(filnavn1) = false OR isEmpty(filnavn1) = false then
  filnavn1.SaveAs Server.MapPath("images/" & datoTid & filnavn1.Filename)
end if


session("filename1") = filnavn1.filename


%>




fejlen lyder:


Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/konstruktion/pw/tilfoejetcmp.asp, line 4

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
Avatar billede amd Nybegynder
31. januar 2006 - 18:13 #1
Sorry denne kode, som melder fejl.

<%Server.ScriptTimeout = 3600
Set upload = Server.CreateObject("Persits.Upload")
'Gem i memory
Upload.Save
Set filnavn1 = Upload.Files(1)

datoTid = Replace(now(),"/","")
datoTid = Replace(datoTid,"-","")
datoTid = Replace(datoTid,":","")
if isNull(filnavn1) = false OR isEmpty(filnavn1) = false then
  filnavn1.SaveAs Server.MapPath("images/" & datoTid & filnavn1.Filename)
end if
session("filename1") = filnavn1.filename
%>

<!--#include file="dbinc.asp"-->

<%

SQL = "update varer set BilledeSti = '" & session("filename1") & "' where OpretDato = '" & upload.form("OpretDato") & "'"
conn.execute(SQL)
conn.close
set conn = Nothing

response.write "OK"
%>

på linje 2
Avatar billede keysersoze Ekspert
31. januar 2006 - 18:31 #2
skyldes at komponenten Persits.Upload ikke understøttes af cliche.
Avatar billede keysersoze Ekspert
31. januar 2006 - 18:35 #3
hos cliche skal du bruge ASPsmartupload; http://www.aspsmart.com/
Avatar billede amd Nybegynder
31. januar 2006 - 18:55 #4
hmm okay... Kan du forklare hvordan jeg skal lave det så :-s
Avatar billede keysersoze Ekspert
31. januar 2006 - 19:39 #5
på linket jeg gav er der gode eksempler med aspsmartupload - i bund og grund er der ikke den store forskel.
Avatar billede amd Nybegynder
01. februar 2006 - 12:39 #6
Lyder til at være nemt :)
Gider du lave eksemplet og de 80 points er dine.
Avatar billede amd Nybegynder
02. februar 2006 - 13:20 #7
Hmm jamen nu har jeg vidst selv fået det stykket sammen. Så må vi jo dele pointsne.

<%Server.ScriptTimeout = 3600

Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0

datoTid = Replace(now(),"/","")
datoTid = Replace(datoTid,"-","")
datoTid = Replace(datoTid,":","")


Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.Upload
For each file In mySmartUpload.Files
  If not file.IsMissing Then
file.SaveAs("images/" & datoTid & file.FileName)


session("filename1") = datoTid & file.FileName

        intCount = intCount + 1
      End If
  Next
%>

<!--#include file="dbinc.asp"-->

<%

SQL = "update varer set BilledeSti = '" & session("filename1") & "' where OpretDato = '" & session("OpretDato") & "'"
conn.execute(SQL)
conn.close
set conn = Nothing

response.write "OK"
%>
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