Keysersoze!!!

Hvilket script !?

Jeg head hunter ham han har et script til at uploade billeder og gemme navnet i en database...

Har du noget lignende?

Se det meldte historien jo ikke noget om.
Men det er da ligeså nemt som at klø sig selv i nakken ... ASPSimpleUpload og en Access database .. hvor svært kan det være .. det har jeg selv lavet før, men jeg gider ikke til at sidde og pille det ud af det jeg lavede det til.

du får en god klat point for det?

Point er ikke afgørende for mig... jeg har 42455 i forvejen så jeg har ikke brug for flere.
Men, hvad har du adgang til af upload komponent(er) ?
Hvis du HAR ASPSimpleUpload (den er gratis; www.asphelp.com) kan jeg lige se om det er nemt at pille ud eller ej ..

sesam >> selvfølgelig... men ved du så at det er med aspupload?

ja det er jeg klar over

tdaugaard >> Jeg har lige installeret den så jeg håber at du vil hjælpe mig

default.asp

<HTML>
<BODY BGCOLOR=\"#FFFFFF\">

    <FORM METHOD=\"POST\" ENCTYPE=\"multipart/form-data\" ACTION=\"Upload.asp\">
        <INPUT TYPE=FILE SIZE=60 NAME=\"FILE1\"><BR>
        <INPUT TYPE=SUBMIT VALUE=\"Upload!\">
    </FORM>

</BODY>
</HTML>

--------------------------------

upload.asp

<%

set conn = Server.CreateObject(\"ADODB.Connection\")
Session(\"MyConn\") = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"test.mdb\")

    Set Upload = Server.CreateObject(\"Persits.Upload.1\")
      Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual (\"/\")
   
    For Each File in Upload.Files
   
        File.ToDatabase Session(\"MyConn\"), \"insert into test(test) \" &_
        \"values(\'\" & File.ExtractFileName & \"\')\"
        if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
       
    Else

          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
   
    End If
      Next
%>

Well .. problem solved I guess :-)

tdaugaard jeg vil gerne se dit script fordi så kan lære begge dele...please

keyzersoze jeg får denne fejmedelelse:


Persits.Upload.1 fejl \'800a001c\'

[Microsoft][ODBC Microsoft Access-driver] Outputtabellen \"images\" kan ikke findes.

/ep/Upload2.asp, linje 13

databasen hedder i dette eksempel \"test\" - har en tabel der hedder \"test\" - og i den er der så en kolonne med navnet \"test\"...

Det virker nu kanon
Et sprg. mere kan jeg få scriptet til at skrive image foran så stien bliver gemt som
images/blabla.jpg

lav databasen, så \"standardværdi\" er = \"images\"

sesam:> jeg gider sku\'t sidde og finde noget frem når keysersoze har komnet med noget der funker.

Hvordan gør jeg det?

det er så ok jeg ville bare gerne kunne bruge ASPSimpleUpload også men hvis du ikke gider så er det ok

inde i databasen - under tabellens designvisning...

Hvordan gør jeg det med databasen?

damn - troede ikke også du skulle have begynder access-kursus...

åbn din database - åbn din tabel i designvisning - vælg den kolonne hvor billedernes navn ligger - og i fanebladet generelt lige neden under dine kolonner er der et punkt der hedder standardværdi  der skriver du \"images\"...

haha

blev det løst eller?

jep det er løst tak for hjælpen