Avatar billede kimlarsen1978 Nybegynder
21. december 2002 - 15:03 Der er 6 kommentarer og
1 løsning

Billede navn i DB

Hej. Jeg skal have op til 15 billeder i min DB. Serveren bruger ASPupload. Jeg har lavet det der tager sig at tekstfelterne. problemet er så hvordan får jeg billeder på serveren og navnet på billedet i DB'en?...
Jeg bruger sådan en "gennemSeKnap" til at finde billderne på harddisken med, værdien i det felt gemmes så i Session("File1") og til Session("File15"). Det jeg bruger til tekstfelterne ser sådan her ud:
---------
<!--#include file="forbindelse.asp" -->
<%

randomize 'RandomID
n=int(10000000*rnd)

dinStr = Replace(request.querystring("beskivelseDansk"),vbCrLf,"<br>")
beskivelse = dinstr


Const adOpenKeyset = 1
Const adLockOptimistic = 3

    Set rs = Server.CreateObject("ADODB.recordset")
    strSQL = "Select * From Varer "
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
     
      rs("Dansk_Vare_Navn") = request.querystring("produktDansk")
      rs("RandomID") = n
      rs("Dansk_Beskrivelse") = beskivelse
      rs("Pris") = request.querystring("pris")
      rs("fabrikat") = request.querystring("fabrikat")
          rs.Update

    rs.Close
    Set rs = Nothing
Conn.Close
set Conn = Nothing
%>
---------------
Jeg skal så have lagt billednavne lagt i tabellen "pic", samtidig med at billedet gemmes på serveren i mappen ./../portraet/
Avatar billede kimlarsen1978 Nybegynder
21. december 2002 - 15:30 #1
IF request.querystring("File1") <> "" Then

  Set Upload = Server.CreateObject("Persits.Upload.1")
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 300000, True
  Upload.SaveVirtual("../dansk/sider/salg/images")
  For Each File in Upload.Files
  Dim FileName
  FileName = File.ExtractFileName

  Respone.write FileName

  if Err <> 0 Then
      Response.Write "Der er sket en fejl! : " & Err.Description
  Else
      Response.Write "Filen "&FileName&" er uploaded!<br>"
    End If
  Next
End If
----------------
Jeg har forsøgt med ovenståen (det er bare en bid af koden) men jeg får denne fejl:
----------------
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/sub4/rediger/upload.asp, line 48

Invalid class string
----------------
Avatar billede eagleeye Praktikant
21. december 2002 - 15:52 #2
Hvilken linie er nr 48?
Avatar billede kimlarsen1978 Nybegynder
21. december 2002 - 16:21 #3
Set Upload = Server.CreateObject("Persits.Upload.1")
------------
Så noget kunne tyde på at der ikke er installeret ASPUplaod på serveren, men det har jeg fået at vide der er...
Avatar billede eagleeye Praktikant
21. december 2002 - 16:26 #4
Ja fejlen betyder den ikke kan lave et object af ASPupload typen, så ASPupload er ikke installeret på serveren..

Du er sikker på det ikke er ASPsmartUpload der er installeret?
Avatar billede kimlarsen1978 Nybegynder
21. december 2002 - 16:37 #5
Jeg har prøvet med:
-----------
  Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  Upload.Upload
-----------
samme fejl
Avatar billede kimlarsen1978 Nybegynder
22. december 2002 - 19:22 #6
Du har jeg fået karanteret af min udbyder at jeg har tilladelse til at uploade i mappen http://www.xxx.dk/sub4/billeder/databasen/ med ASPupload
-------------
Jeg bruger så dette kode, men det giver stadig den sammefejl:
Kode:
------------
IF request.querystring("File1") <> "" Then

  Set Upload = Server.CreateObject("Persits.Upload.1")
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 300000, True
  Upload.SaveVirtual("../billeder/databasen")
  For Each File in Upload.Files
  Dim FileName
  FileName = File.ExtractFileName

  if Err <> 0 Then
      Response.Write "Der er sket en fejl! : " & Err.Description
  Else
      Response.Write "Filen "&FileName&" er uploaded!<br>"
    End If
  Next
End If
--------------
Fejl:
--------------
Server.CreateObject Failed
Invalid class string
--------------
det er denne linie der giver fejl:
--------------
Set Upload = Server.CreateObject("Persits.Upload.1")
--------------
Jeg ved ikke rigtig hvad der kan være galt, kan det være i selve "formen" det går galt, altså så den ikke kan "fange" filen rigtig? Min form ser sådan her ud:
----------------
<form action="upload.asp" method="get" ENCTYPE="multipart/form-data">
....
<td width="503" bgcolor="#A2BEE1" height="19"><INPUT TYPE="file" NAME="File1" SIZE=50></td>
...
</form>
--------------
Nogen ideer?
Avatar billede kimlarsen1978 Nybegynder
14. maj 2003 - 16:24 #7
Scriptet virker det var en server fejl, nu hiver jeg mine points tilbage med hvis du gerne vil have nogle af dem, eagleeye så skriv så finder vi ud af det
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