Upload billed og form til db

Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
Dim Item
Dim Value

\'uploader billede
mySmartUpload.Upload
intCount = mySmartUpload.Save(\"/upload\")


\'kode til at skrive formfelters data til database
For each Item In mySmartUpload.Form
    For each Value In mySmartUpload.Form(Item)
    \'Kode her der skriver din data i database
    Next
Next   

hvis du arbejder med access er det smartest IKKE at lægge billedet i databasen men lægge det i en mappe for sig selv, og så bare henvise til det i databasen vha et almindeligt tekstfelt...

er det noget kan jeg nok  komme med et hurtigt eksempel...

har du evt en mail kan jeg sende...

Hvis du skal skrive til et bestemt felt i databasen hvor id er 47 fx.. så lav et hidden input felt med id 47 i formen og et navn du kan bruge, fx ID

For each item In mySmartUpload.Form
    For each value In mySmartUpload.Form(item)
    if Item = \"ID\" Then
      intID = value
    End if     
    Next
Next

Defter noget SQL der vælger det felt hvor du vil skrive og så kører du bare:

\'kode til at skrive formfelters data til database
For each Item In mySmartUpload.Form
    For each Value In mySmartUpload.Form(Item)
    \'Kode her der skriver din data i database
    Next
Next   

igen..

Virkede for mig..

Husk at din form skal ha ENCTYPE=\"multipart/form-data\"

Tak for dit hurtige svar, men mangler mere kode til det komplete script...Vi et fuldt eksempel på brug af uploaden ...

Der er jo et par samples med..

Formen:

<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 5</H1>
<HR>

<form METHOD=\"POST\" ACTION=\"/scripts/aspSmartUpload/Sample5.asp\" NAME=\"PW\" ENCTYPE=\"multipart/form-data\">
  <table CELLSPACING=\"0\" CELLPADDING=\"3\" BORDER=\"1\" WIDTH=\"474\">

<!-- FILE -->
    <tr>
      <td><small><font face=\"Verdana\">Select&nbsp;a&nbsp;first&nbsp;file&nbsp;:&nbsp; </font></small></td>
      <td><small><font face=\"Verdana\"><input TYPE=\"file\" name=\"FILE1\"></font></small></td>
    </tr>

    <tr>
      <td><small><font face=\"Verdana\">Select&nbsp;a&nbsp;second&nbsp;file&nbsp;:&nbsp; </font></small></td>
      <td><small><font face=\"Verdana\"><input TYPE=\"file\" name=\"FILE2\"></font></small></td>
    </tr>

<!-- TEXT -->
    <tr>
      <td width=\"150\"><div align=\"left\"><p><small><font face=\"Verdana\">Text :&nbsp; </font></small></td>
      <td width=\"324\"><small><font face=\"Verdana\"><input TYPE=\"TEXT\" name=\"myText\" value=\"\"><br></font></small></td>
    </tr>

<!-- TEXTAREA -->
    <tr>
      <td width=\"150\"><div align=\"left\"><p><small><font face=\"Verdana\">Text Area :&nbsp; </font></small></td>
      <td width=\"324\"><small><font face=\"Verdana\"><textarea name=\"myTextArea\" rows=\"4\" value=\"\"></textarea><br></font></small></td>
    </tr>

<!-- PASSWORD -->
    <tr>
      <td><div align=\"left\"><p><small><font face=\"Verdana\">PassWord :&nbsp; </font></small></td>
      <td><small><font face=\"Verdana\"><input TYPE=\"PASSWORD\" name=\"myPASSWORD\" value=\"\"><br></font></small></td>
    </tr>

<!-- HIDDEN -->
    <tr>
      <td><div align=\"left\"><p><small><font face=\"Verdana\">Hidden :&nbsp; </font></small></td>
      <td><small><font face=\"Verdana\"><input TYPE=\"hidden\" name=\"myHidden\" value=\"hidden\"><br></font></small></td>
    </tr>

<!-- CHECKBOX -->
    <tr>
      <td><div align=\"left\"><p><small><font face=\"Verdana\">CheckBox :&nbsp; </font></small></td>
      <td><small><font face=\"Verdana\"><input TYPE=\"CHECKBOX\" name=\"myCheckBox\" value=\"Value 1\">Value 1<br><input TYPE=\"CHECKBOX\" name=\"myCheckBox\" value=\"Value 2\">Value 2<br><input TYPE=\"CHECKBOX\" name=\"myCheckBox\" value=\"Value 3\">Value 3<br></font></small></td>
    </tr>

<!-- RADIO -->
    <tr>
      <td><div align=\"left\"><p><small><font face=\"Verdana\">Radio :&nbsp; </font></small></td>
      <td><small><font face=\"Verdana\"><input TYPE=\"radio\" name=\"radio\" value=\"Value 1\">Value 1<br><input TYPE=\"radio\" name=\"radio\" value=\"Value 2\">Value 2<br><input TYPE=\"radio\" name=\"radio\" value=\"Value 3\">Value 3<br></font></small></td>
    </tr>

<!-- SELECT -->
    <tr>
      <td><div align=\"left\"><p><small><font face=\"Verdana\">Simple Select :&nbsp; </font></small></td>
      <td><small><font face=\"Verdana\"><SELECT name=\"mySimpleSelect\" ><OPTION value=\"Value 1\">Value 1</OPTION><OPTION value=\"Value 2\">Value 2</OPTION><OPTION value=\"Value 3\">Value 3</OPTION></SELECT><br></font></small></td>
    </tr>

<!-- SELECT MULTIPLE  -->
    <tr>
      <td><div align=\"left\"><p><small><font face=\"Verdana\">Multiple Select :&nbsp; </font></small></td>
      <td><small><font face=\"Verdana\"><SELECT multiple name=\"myMultSelect\" ><OPTION value=\"Value 1\">Value 1</OPTION><OPTION value=\"Value 2\">Value 2</OPTION><OPTION value=\"Value 3\">Value 3</OPTION></SELECT><br></font></small></td>
    </tr>

<!-- SUBMIT -->
    <tr>
      <td colspan=\"2\" width=\"474\"><div align=\"center\"><center><p><small><font face=\"Verdana\"><input
      TYPE=\"Submit\"> </font></small></td>
    </tr>
  </table>
</form>

</BODY>
</HTML>

Upload scriptet:

<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 5</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim item
  Dim value
  Dim file
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")

\'  Upload
\'  ******
  mySmartUpload.Upload

\'  FILES Collection
\'  ****************
  Response.Write(\"<BR><STRONG>Files Collection</STRONG><BR>\")

\'  Informations about files
\'  ************************
  Response.Write(\"Number of files =\" & mySmartUpload.Files.count &\"<BR>\")
  Response.Write(\"Total bytes of files =\" & mySmartUpload.Files.TotalBytes &\"<BR>\")

\'  Select each file
\'  ****************
  For each file In mySmartUpload.Files
      Response.Write(file.FileName & \" (\" & file.Size & \"bytes)<BR>\")
  Next

\'  FORM Collection
\'  ***************
  Response.Write(\"<BR><STRONG>Form Collection</STRONG><BR>\")

\'  Select each item
\'  ****************
  For each item In mySmartUpload.Form
  \'  Select each value of the current item
  \'  *************************************
      For each value In mySmartUpload.Form(item)
        Response.Write(item & \" = \" & value & \"<BR>\")
      Next
  Next
%>
</BODY>
</HTML>


Undskyld langt svar.. :]

keysersoze: jeg kan lide din løsning med at henvise til access databasen istedet for en binary upload. Jeg mangler et fuldt eksempel til både upload af billed + formfelter...TAK

har du en e-mail jeg kan sende til så? det er nok lettest når databasen er med...

news@akbk.dk :)

Tjekker det lige......

Får følgende fejl:

Tekniske oplysninger (for supportteknikere)

Fejltype:
aspSmartUpload.File (0x80040460)
Unable to save file (Error 1120)
/gb/gemGB.asp, line 39


Browsertype:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

Side:
POST 9378 bytes to /gb/gemGB.asp

POST Data:
fejl \'80020009\'
Undtagelse opstod.

/iisHelp/common/500-100.asp, line 192

For at løse problemet skal du højre klikke på den mappe hvor databasen er gemt.
Klik på fanebladet Security, og tildel brugeren IUSER_xxxxx (xxxxx er serverens navn) \"Write\" rettigheder, du skal også sørge for database filen får \"Write\" rettigheder.

Skal også gøres ved det bibliotek du uploader billede til

Det har den i forvejen da jeg afprøver det på min egen computer, da jeg kører IIS på Win2000. Ellers tak !!! saturation 

formentlig er det noget med rettigheder der hvor du vil gemme...

dette er direkte fra aspsmart.com

PRB: aspSmartUpload.File error \'80040460\'. Unable to save file (Error 120)
--------------------------------------------------------------------------------
This error may be returned by the component when it can\'t save a file. It often comes from the NT permissions on the directory. Check, and modify if needed, the security permissions on the directories in which you want the files to be uploaded.

Thx for hjælpen begge to....Hvordan kan jeg give saturation lidt points for hans hjælp oxo. Var der ikke engang en knap der oxo hed avanceret når man accepterer et svar.. :)

jo - er den der ikke endnu? i hvert fald kræver det at der er svar fra mere end én for at den kommer frem... måske har du afvist ham først

keysersoze : Jeg har prøvet på at fjerne (da jeg ikke skal bruge det) Karakter feltet fra DB og scriptet, men uden held. Kan du hjælpe med det for jeg er kørt fast.

jeg er ikke lige tid til det nu... og jeg er ikke hjemme hele weekenden (fredag er med der), så du når nok selv at finde ud af det inden jeg når dertil :o/

Hvis du vil give mig point, så opret et spørgsmål som jeg svarer på.

Kald det \"point til saturation\" eller noget :]

Oki saturation er oprettet, skal jeg sende dig filerne ???

Jeg har oprettet et spørgs mål som hedder :  point til saturation

husk at referere til http://www.eksperten.dk/spm/125339 (det her spørgsmål)

Derfor tdaugaard brokker sig ;)