Søg
Avatar billede madeindk Nybegynder
21. oktober 2004 - 16:40 Der er 60 kommentarer og
1 løsning

ASP Smart Upload

Hej eksperter..

Jeg bruger ASP Smart Upload, nu kommer det store problem så..

Jeg er igang med at lave en "portal" hvor brugerne gner skal kunne ligget et billede op af dem selv.. :)

Og jeg bruger sample 4 som ser sådan herud..

Sample4.htm

<HTML>
<BODY BGCOLOR="white">

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

<FORM METHOD="POST" ACTION="/scripts/aspSmartUpload/Sample4.asp" ENCTYPE="multipart/form-data">
  <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
  <INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

</BODY>
</HTML>

Sample4.asp

<HTML>
<BODY BGCOLOR="white">

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

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

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

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("\scripts\aspSmartUpload\Sample.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE FROM TFILES"

  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("FILE")
        oRs("FILENAME") = file.FileName
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>

Nu kommer mine problemer så..

1. Jeg ved ikke hvor den ligger filerne!
2. Hvordan for jeg den til at gemme URL'en til billedet i min database?

3. Og hvordan fortæller jeg den i hvilken tabel den skal ligge billedet?
Avatar billede eagleeye Praktikant
21. oktober 2004 - 16:57 #1
1.: Den gemmer filerne i dtabasen så de gemmes ikke som en fil.

2.: Hvis du vil gemme filerne som en fil så skal denne rettes:
file.FileToField oRs.Fields("FILE")
oRs("FILENAME") = file.FileName

Til at kalde .SaveAs:
file.SaveAs Server.Mappath("/billedefolder/" & file.FileName)
oRs("FILENAME") = "/billedefolder/" & file.FileName


3.: Som koden er nu gemmer den det i en tabel som hedder TFILES.

Skal den gemme det i 4 poster eller i en og samme post?
Avatar billede madeindk Nybegynder
21. oktober 2004 - 17:08 #2
Den skal gemme det i en kolonne i en tabel? Under profilbillede..
Avatar billede eagleeye Praktikant
21. oktober 2004 - 17:12 #3
Ok altså sådan her så:

id billede
1  fil1
2  fil2
3  fil3
4  fil4



Du kan rette SQL sætningen fra:
strSQL = "SELECT FILENAME,FILE FROM TFILES"

Til dette:

strSQL = "SELECT * FROM profilbillede"
Avatar billede eagleeye Praktikant
21. oktober 2004 - 17:18 #4
Kolonne navnet angives i denne linje:

oRs("FILENAME") = "/billedefolder/" & file.FileName


Skal du også hvad et ID på brugeren??
Så kan du lave det som gemmer i stil med:


  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.SaveAs Server.Mappath("/billedefolder/" & file.FileName)
        oRs("filnavn") = "/billedefolder/" & file.FileName
        oRs("brugerID") = Session("brugerID")
        oRs.Update
        intCount = intCount + 1
      End If
  Next
Avatar billede madeindk Nybegynder
21. oktober 2004 - 17:28 #5
Nu ser min kode sådan her ud..

<HTML>
<BODY BGCOLOR="white">

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

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

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

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("\scripts\aspSmartUpload\Sample.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE FROM TFILES"

  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.SaveAs Server.Mappath("c:\123\" & file.FileName)
        oRs("FILENAME") = "c:\123\" & file.FileName
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>

Se fejl..

http://sykonia.dk/aspsmartupload/sample4.htm
Avatar billede eagleeye Praktikant
21. oktober 2004 - 18:58 #6
Den udskriver bare sourse koden??
Er du sikker på den server du bruger kan køre ASP ?
er det den rigitge kode som er uploadet jeg syntes der er lidt forskel?
Avatar billede madeindk Nybegynder
21. oktober 2004 - 19:34 #7
<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload : Sample 4</H1>
<HR>
<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
  Session.LCID = 1030     
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
 
  mySmartUpload.Upload
'  ******
  intCount = mySmartUpload.Save("c:\123\")                     

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("\scripts\aspSmartUpload\Sample.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE FROM TFILES"

  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
      '  **********************************

.SaveAs

file.SaveAs Server.Mappath("c:\123\" & file.FileName)
oRs("FILENAME") = "c:\temp\" & file.FileName

        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>

Prøv at se nu .. Der er stadig fejl, men nu ligger fejlen på linje 53 som er .Saveas
Avatar billede eagleeye Praktikant
21. oktober 2004 - 19:42 #8
Prøv at rette:
file.SaveAs Server.Mappath("c:\123\" & file.FileName)

Til dette:

file.SaveAs "c:\123\" & file.FileName
Avatar billede madeindk Nybegynder
21. oktober 2004 - 19:44 #9
Det virkede :)

Så er det det med databasen :P
Avatar billede eagleeye Praktikant
21. oktober 2004 - 19:46 #10
ok, hvad hedder din tabel og kolonnenavn?
Avatar billede madeindk Nybegynder
21. oktober 2004 - 19:51 #11
Min tabel hedder avn og min kolonne hedder bild

Det er en svensker der har lavet det! :D
Avatar billede eagleeye Praktikant
21. oktober 2004 - 19:54 #12
Prøv at rette dette:


  strSQL = "SELECT FILENAME,FILE FROM TFILES"

  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
      '  **********************************

.SaveAs

file.SaveAs "c:\123\" & file.FileName
oRs("FILENAME") = "c:\temp\" & file.FileName

        oRs.Update
        intCount = intCount + 1
      End If
  Next



Til:


  strSQL = "SELECT * FROM avn"

  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.SaveAs "c:\123\" & file.FileName
oRs("bild") = "c:\temp\" & file.FileName

        oRs.Update
        intCount = intCount + 1
      End If
  Next
Avatar billede madeindk Nybegynder
21. oktober 2004 - 19:57 #13
Men hva så med session? Man skal jo være logget ind så den kan vide hvilket bruger ID den skal ligge det under? ;)
Avatar billede eagleeye Praktikant
21. oktober 2004 - 19:58 #14
ok så der er også en kolonne hvor brugerid skal gemmes hvad hedder den?
Avatar billede madeindk Nybegynder
21. oktober 2004 - 20:00 #15
Den hedder ID ..
Avatar billede eagleeye Praktikant
21. oktober 2004 - 20:02 #16
Så prøv at rette:

      oRs.AddNew
file.SaveAs "c:\123\" & file.FileName
oRs("bild") = "c:\temp\" & file.FileName

        oRs.Update


Til dettE:

      oRs.AddNew
file.SaveAs "c:\123\" & file.FileName
oRs("bild") = "c:\temp\" & file.FileName
oRs("id") = Session("id")

        oRs.Update
Avatar billede madeindk Nybegynder
21. oktober 2004 - 20:12 #17
Nu kan siden pludselig ikke findes! :'(

Prøv at gå ind på http://Portal.Sykonia.dk ..

Laddi / Laddi
Avatar billede madeindk Nybegynder
21. oktober 2004 - 20:13 #18
Og så gå ind under rediger profil - 15 spørgsmål og så upload

blev jo nød til at ligge det lidt skjult for de andre brugere :)
Avatar billede madeindk Nybegynder
21. oktober 2004 - 20:22 #19
eagleeye: kan du se hvorfor fejlen er der?

har du msn?
Avatar billede eagleeye Praktikant
21. oktober 2004 - 20:33 #20
Jeg kan se siden men der kommer en fejl;:

Active Server Pages error 'ASP 0126'

Include file not found

/upload.asp, line 8

The include file '..\meny.asp' was not found.
Avatar billede eagleeye Praktikant
21. oktober 2004 - 20:34 #21
Du skulle gerne få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"
Avatar billede madeindk Nybegynder
21. oktober 2004 - 20:36 #22
Okay! Er nu slået fra.. ;)

Hmm.. Nu er den med meny.asp rettet! Men nu er der fejl på linje 45 ..

Kig! :D
Avatar billede madeindk Nybegynder
21. oktober 2004 - 20:39 #23
Det var en "stavefejl ( noget der var skrevet forkert - min fejl )" men nu siger den fejl på linje 61..

linje 61:        oRs.Update

        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
Avatar billede eagleeye Praktikant
21. oktober 2004 - 20:53 #24
hvilken fejl kommer den med?
Avatar billede madeindk Nybegynder
21. oktober 2004 - 20:53 #25
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

/upload.asp, line 61
Avatar billede eagleeye Praktikant
21. oktober 2004 - 20:55 #26
Ok det fordi kolonne ID er autonummer. Man kan ikke sætte et tal ind i en autonummer kolonne. Så denne skal rettes så den indsætter tallet ID i en kolonne som er af typen tal.

oRs("id") = Session("id")
Avatar billede madeindk Nybegynder
21. oktober 2004 - 20:59 #27
Hvor skal jeg sætte dette ind?

oRs("id") = Session("id")
Avatar billede eagleeye Praktikant
21. oktober 2004 - 21:01 #28
Du kan lave en ny kolonne i tabellen og kalden den brugerid den skal havde type Tal eller "Number".  Så kan du skrive linjen sådan her:

oRs("brugerid") = Session("id")
Avatar billede madeindk Nybegynder
21. oktober 2004 - 21:03 #29
Så er den tabel tilføjet :)
Avatar billede madeindk Nybegynder
21. oktober 2004 - 21:06 #30
Stadig samme fejl :(
Avatar billede eagleeye Praktikant
21. oktober 2004 - 21:09 #31
Prøv at tjekke kolonne bild ikke er sat til Primary key.
Samt tjek at kolonnen bild er sat til at tillade dupletter.
Avatar billede madeindk Nybegynder
21. oktober 2004 - 21:11 #32
Vil du ikke hellere downloade databasen og så kigge selv? Fatter hat lige nu..
Avatar billede eagleeye Praktikant
21. oktober 2004 - 21:18 #33
ok..
Avatar billede madeindk Nybegynder
21. oktober 2004 - 21:20 #34
http://portal.sykonia.dk/databas/databas.mdb
Avatar billede madeindk Nybegynder
21. oktober 2004 - 21:48 #35
Du har downloadet databasen ik?
Avatar billede eagleeye Praktikant
21. oktober 2004 - 21:54 #36
Ja, men jeg kan ikke se det for jeg har kun Access97.
Men prøv at åben tabellen og tryk på kolonnen bild og tjek i property listen at den tillader dupletter.
Avatar billede madeindk Nybegynder
21. oktober 2004 - 21:59 #37
Kan ikke finde det.. :S

http://arto.sykonia.dk/97version.mdb
Avatar billede eagleeye Praktikant
21. oktober 2004 - 22:03 #38
Jeg kan se hvad kolonnerne hedder.. I Den tabel er brugerne så det du skal lave er en UPDATE SQL og ikke Add da billedet skal tilføjes en bruger som findes i forvejen såprøv sådan her:



<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload : Sample 4</H1>
<HR>
<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
  Session.LCID = 1030     
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
 
  mySmartUpload.Upload
'  ******
  intCount = mySmartUpload.Save("c:\123\")                     

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("\scripts\aspSmartUpload\Sample.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
'  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
      '  **********************************

file.SaveAs "c:\123\" & file.FileName
filnavn = "c:\temp\" & file.FileName

SQL = "UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = " & Session("id")
      oConn.Execute (SQL)

        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>
Avatar billede madeindk Nybegynder
21. oktober 2004 - 22:11 #39
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID = 32FA211B-5689-4925-92C1-D6FC6800F16B}'.

/upload.asp, line 49
Avatar billede madeindk Nybegynder
21. oktober 2004 - 22:11 #40
Billederne bliver lagt op de bliver bare ikke sat som profil billede!
Avatar billede eagleeye Praktikant
21. oktober 2004 - 22:15 #41
Ok så skal SQL sætningne rettes:

SQL = "UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = " & Session("id")

til dette med ' omkring :

SQL = "UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = '" & Session("id") & "'"
Avatar billede madeindk Nybegynder
21. oktober 2004 - 22:16 #42
Microsoft VBScript compilation error '800a03ea'

Syntax error

/upload.asp, line 48

SQL = "UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = '" & Session("id") &
-------------------------------------------------------------------------------^
Avatar billede eagleeye Praktikant
21. oktober 2004 - 22:21 #43
umiddelbart mangler der "'" til sidst ser linjen sådan her ud?`


SQL = "UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = '" & Session("id") & "'"
Avatar billede madeindk Nybegynder
21. oktober 2004 - 22:24 #44
Har jeg sat på nu ..

Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'

Command text was not set for the command object.

/upload.asp, line 51

Er det noget med det ODBC på min server?!
Avatar billede eagleeye Praktikant
21. oktober 2004 - 22:26 #45
Ok, ja er oConn en åben connection til databasen?
Avatar billede madeindk Nybegynder
21. oktober 2004 - 22:27 #46
Ved det ikk.. Fatter hat af det der?

Er total lost pt.
Avatar billede eagleeye Praktikant
21. oktober 2004 - 22:29 #47
Det må det næsten være. Prøv at findes hvor du definere oConn
Avatar billede madeindk Nybegynder
21. oktober 2004 - 22:37 #48
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Avatar billede eagleeye Praktikant
21. oktober 2004 - 22:55 #49
hmm ja det ser jo meget fornuftigt ud prøv evt at rette den til:


oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};"
Avatar billede madeindk Nybegynder
21. oktober 2004 - 23:07 #50
Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'

Command text was not set for the command object.

/upload.asp, line 51
Avatar billede eagleeye Praktikant
21. oktober 2004 - 23:43 #51
hvordan ser din kode ud??
Avatar billede eagleeye Praktikant
21. oktober 2004 - 23:52 #52
Prøv at tjekke at du har en vairable som hedder SQL, og linjen den er i ser sådan her ud:
SQL = "UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = '" & Session("id") & "'"


Tjek du har en linje:

oConn.Execute (SQL)

Tjek linjen med SQL er før den sidst viste linje.
Avatar billede madeindk Nybegynder
22. oktober 2004 - 22:06 #53
Skal jeg sende hele min kode?

(upload.asp)
Avatar billede eagleeye Praktikant
22. oktober 2004 - 22:14 #54
Ja prøv at vise koden som den er nu.
Avatar billede madeindk Nybegynder
22. oktober 2004 - 22:15 #55
<HTML>
<BODY BGCOLOR="white">

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

<H1>aspSmartUpload : Sample 4</H1>
<HR>
<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
  Session.LCID = 1030     
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
 
  mySmartUpload.Upload
'  ******
  intCount = mySmartUpload.Save("D:\WWW\Sykonia\logind\portal\billeder\")                     

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

'  Open a recordset
'  ****************
'  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
      '  **********************************

file.SaveAs "c:\123\" & file.FileName
filnavn = "c:\temp\" & file.FileName

'SQL = 'UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = '" & Session("id") &'
      oConn.Execute (SQL)

        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
22. oktober 2004 - 22:18 #56
Ok det fordi SQL er udkommenteret:

'SQL = 'UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = '" & Session("id") &'

Prøv at rette den linje til dette:

SQL = "UPDATE anv SET bild = '" & filnavn & "' WHERE ID  = '" & Session("id") & "'"
Avatar billede madeindk Nybegynder
22. oktober 2004 - 22:35 #57
Det virker sgu nu du! :D

Men stadig en fejl..

2 file(s) uploaded.

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/upload.asp, line 63
Avatar billede eagleeye Praktikant
22. oktober 2004 - 22:38 #58
Der er kun plads til et billede i den tabel pr bruger som tabellen er lavet.

Du kan slette disse to linjer:

  oRs.Close

  Set oRs = Nothing
Avatar billede madeindk Nybegynder
22. oktober 2004 - 22:49 #59
Virker perfekt nu! :P
Avatar billede eagleeye Praktikant
22. oktober 2004 - 22:51 #60
ok jeg lave lige et svar så :)
Avatar billede pretsmann Nybegynder
28. december 2004 - 15:38 #61
Hej eagleeye, jeg er ved at forsøge at lave noget tilsvarende dette men kan absolut ikke få det til at fungere og det ser jo ud til at du har godt styr på sagerne!

Kan jeg logge dig til at se på min kode - Har taget udgangspkt. i ovenstående.
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
02/0814:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
White papers
Flere white papers »