Avatar billede jada Nybegynder
14. november 2000 - 16:31 Der er 3 kommentarer og
1 løsning

aspSmartUpload

Er der nogle der kan hjælpe mig med at tilpasse dette script fra aspSmart.com.
Problemet med scriptet er at det tilføjer mine 2 billeder til hver sin post i databasen og jeg skal bruge dem i samme post.
Jeg går ud fra at det sker i linien \"For each file In mySmartUpload.Files\". Her er scriptet:

<%

\'  Variables
\'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs

\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")

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

\'  Connect to the DB
\'  *****************
    Set oConn = Server.CreateObject(\"ADODB.Connection\")
    oConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")

\'  Open a recordset
\'  ****************
  strSQL = \"SELECT * FROM tabel\"

  Set oRs = Server.CreateObject(\"ADODB.recordset\")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

\'  Select each file
\'  ****************
  For each file In mySmartUpload.Files

  \'  Only if the file exist
  \'  **********************
      \'If not file.IsMissing Then

  \'  Add the current file in a DB field
  \'  **********************************
      oRs.AddNew

      file.FileToField oRs.Fields(\"pic1\")
      oRs(\"picnavn1\") = file.FileName
      file.FileToField oRs.Fields(\"pic2\")
      oRs(\"picnavn2\") = file.FileName
     
      oRs.Update
 
    \'End If

  Next

  Response.Write \"<center>\"
  response.write \"Data gemt!<BR><BR>\"
  Response.Write \"<a href=\'default.asp\'>til forsiden...</a>\"
  Response.Write \"</center>\"
 
\'  Destruction
\'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
Avatar billede hypergrafx Nybegynder
14. november 2000 - 16:50 #1
Har du prøvet dette:

      file.FileToField oRs.Fields(\"pic1\")
      oRs(\"picnavn1\") = file.FileName
      file.FileToField oRs.Fields(\"pic2\")
      oRs(\"picnavn1\") = file.FileName


Jeg går ud fra at picnavn1 er en post i \"tabel\" i databasen. Hvis det er det skulle de gerne havne i den samme post. Ved ikke om det virker men er da et forsøg værd....
Avatar billede jada Nybegynder
16. november 2000 - 00:05 #2
Virker ikke da det ikke er samme felt billederne skal i.

Har selv fundet en løsning, ellers tak.
Avatar billede icedox Nybegynder
06. september 2001 - 01:40 #3
strId = strId+1 for billede nr.2
Avatar billede jada Nybegynder
06. november 2001 - 00:09 #4
Lukker
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