aspSmartUpload problem

Hej, du mangler at få oprette upload objecktet mySmartUpload og få gemt filen. Lige nu gemmer den filen i en folder som hedder "upload". Det gøres i linien:

    intCount = mySmartUpload.Save("upload") 'Gemmer filen i upload folderen


Jeg kan se du også har mulighed for at opdater data. Jeg har derfor tilføjet at hvis man opdater og ikke vælger en fil, så overskrives fileupload kolonnen i databasen ikke med et tomt "" navn. Den gemme kun noget i kolonnen fileupload ved Opdater hvis der uploades en ny fil. Spørgsmålet er om ikke skal slette den gamle fil hvis man upload en ny? Eller om det skal overhoves skal være muligt at uploade en ny?



Jeg har rettet koden lidt til så prøv med den:



<%@ language="vbscript" codepage="1252" %>

<%
if cstr(Request.QueryString("mode")) = "new" then
    Session.Contents("userid") = 0
else
    if IsEmpty(Session.Contents("userid")) OR cstr(Session.Contents("userid") & "") = "" then
        Server.Transfer "log_image.asp"
    end if
end if

Server.Execute "setup.asp"

strConn = Session.Contents("ConnectionString")
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
 
if cstr(Request.Form("Opdater")) <> "" then
       
    Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

    intCount = mySmartUpload.Save("upload") 'Gemmer filen i upload folderen
    if intCount > 0 then
      filnavn = mySmartUpload.Files.Item(1).FileName  'finder filnavnet
    end if

    SQLBeskrivelse = Replace(mySmartUpload.Form("Beskrivelse"),"'","''")
    if len(SQLBeskrivelse) > 255 then
        SQLBeskrivelse = left(SQLBeskrivelse, 255)
    end if
   
    if Session.Contents("userid") > 0 then
        strSQL = "UPDATE bruger SET"
        strSQL = strSQL & " Navn='" & Replace(mySmartUpload.Form("Navn"),"'","''") & "'"
        strSQL = strSQL & ", [Password]='" & Replace(mySmartUpload.Form("Password"),"'","''") & "'"
        strSQL = strSQL & ", Email='" & Replace(mySmartUpload.Form("Email"),"'","''") & "'"
        strSQL = strSQL & ", Country='" & Replace(mySmartUpload.Form("Country"),"'","''") & "'"
        'Hvis filnavnet er tomt er det fordi der ikke er uploadet en ny fil og derfor bør filnanvet kun
        'indsættes hvis der er et nyt navn.
        if filnavn <> "" then
          strSQL = strSQL & ", fileupload='" & filnavn,"'","''") & "'"
        end if
        strSQL = strSQL & ", Kategori='" & mySmartUpload.Form("Kategori") & "'"
        strSQL = strSQL & ", Beskrivelse='" & SQLBeskrivelse & "'"
        strSQL = strSQL & " WHERE ID=" & Session.Contents("userid")

        objConn.Execute strSQL
    else
        strSQL = "INSERT INTO bruger"
        strSQL = strSQL & "(Navn,[Password],Email,Country,fileupload,Kategori,Beskrivelse,OprettetDato) "
        strSQL = strSQL & "VALUES("
        strSQL = strSQL & "'" & Replace(mySmartUpload.Form("Navn"),"'","''") & "'"
        strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Password"),"'","''") & "'"
        strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Email"),"'","''") & "'"
        strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Country"),"'","''") & "'"
        strSQL = strSQL & ",'" & filnavn,"'","''") &"'"     
        strSQL = strSQL & ",'" & mySmartUpload.Form("Kategori") & "'"
        strSQL = strSQL & ",'" & SQLBeskrivelse & "'"
        strSQL = strSQL & ",#" & now & "#"
        strSQL = strSQL & ")"

        objConn.Execute strSQL
       
        set objRs = objConn.Execute("SELECT @@IDENTITY AS newId")
        if not objRs.EOF then
            Session.Contents("userid") = cstr(objRs("newId"))
        end if
        objRs.Close
        set objRs = nothing
    end if

    Set mySmartUpload = Nothing   
    objConn.Close
    set objConn = nothing
    Response.Redirect "image.asp"
end if

if cstr(Request.Form("Slet")) <> "" then
    strSQL = "DELETE FROM bruger WHERE ID=" & Session.Contents("userid")
    objConn.Execute strSQL

    objConn.Close
    set objConn = nothing
    Session.Contents("userid") = Empty
    Response.Redirect "image.asp"
end if

if cstr(Request.Form("Logaf")) <> "" then
    objConn.Close
    set objConn = nothing
    Session.Contents("userid") = Empty
    Response.Redirect "image.asp"
end if

if Session.Contents("userid") > 0 then
    SaveButton = "Update"
    strSQL = "SELECT * FROM bruger WHERE ID = " & Session.Contents("userid")

    set objRs = objConn.Execute(strSQL)

  if not objRs.EOF then
        Navn = cstr(objRs("Navn") & "")
        Password = cstr(objRs("Password") & "")
        Email = cstr(objRs("Email") & "")
        Country = cstr(objRs("Country") & "")
        fileupload = cstr(objRs("fileupload") & "")
        Kategori = cstr(objRs("Kategori") & "")
        Beskrivelse = cstr(objRs("Beskrivelse") & "")
    end if

    objRs.close
    objConn.Close
    set objRs = nothing
    set objConn = nothing
else
    SaveButton = "Submit"
end if


strKategorier = "[Select category],,A,A,B,B,C,C"
arrKategorier = Split(strKategorier, ",")

Kategorier = vbCrLf
for idx = 0 to ((ubound(arrKategorier) + 1) / 2) - 1
    strKategoriText = arrKategorier(idx * 2)
    strKategoriValue = arrKategorier(idx * 2 + 1)
    Kategorier = Kategorier & "<option value=""" & strKategoriValue & """"
    if strKategoriValue = Kategori then
        Kategorier = Kategorier & " SELECTED"
    end if
    Kategorier = Kategorier & ">" & strKategoriText & vbCrLf
next

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
  <style type="text/css">
<!--
.style5 {
    font-size: 24px;
    font-weight: bold;
}
-->
  </style>
<head>
    <title>Vedligehold brugeroplysninger</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <style type="text/css">
        .label { float:left; width:120px; }
    body,td,th {
    font-family: Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #06275B;
}
a {
    font-size: 12px;
    color: #06275B;
}
a:link {
    text-decoration: underline;
}
a:visited {
    text-decoration: underline;
    color: #06275B;
}
a:hover {
    text-decoration: none;
    color: #99CCFF;
}
a:active {
    text-decoration: underline;
    color: #06275B;
}
.style2 {font-family: Arial, Helvetica, sans-serif}
    .style4 {float: left; width: 120px; font-weight: bold; }
    </style>
</head>
  <body>


  <form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" enctype="multipart/form-data">
    <table width="57%" border="1" bordercolor="#99CCFF">
    <tr>
      <td width="11%" valign="top" bordercolor="#FFFFFF"><span class="style4">Name:</span></td>
      <td width="89" colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength="255" name="Navn" value="<%=Navn%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Password:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="password" maxlength=50" name="Password" value="<%=Password%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Email:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength=255" name="Email" value="<%=Email%>"></td>
    </tr>
    <tr>
      <td height="26" valign="top" bordercolor="#FFFFFF"><span class="style4">Country:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength="255" name="Country" value="<%=Country%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Category:</span></td>
      <td bordercolor="#FFFFFF"><select name="Kategori" class="style2">
          <%=Kategorier%> </select></td>
      <td bordercolor="#FFFFFF"><INPUT NAME="fileupload" TYPE="file"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Description:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><textarea name="Beskrivelse" cols="50" rows="5"><%=Beskrivelse%></textarea></td>
    </tr>
    <tr>
      <td bordercolor="#FFFFFF">&nbsp;</td>
      <td colspan="2" bordercolor="#FFFFFF"><input name="Opdater" type="submit" class="style4" value="<%=SaveButton%>">
        <input name="Slet" type="submit" class="style4" value="Delete"> <input name="Logaf" type="submit" class="style4"

value="Logoff"></td>
    </tr>
  </table>
  <p><br>
    <span class="label">&nbsp;</span> <br>
    <br>
  </p>
  </form>
  </body>
</html>

Den sender ikke, men bliver stående på siden.

har den altid gjort det?

kan du tjekke om SaveButton indeholder en værdi ved at i  view source i browseren. Ud fra koden skulle enten stå
value="Update" eller value="Submit" men kan du tjekke det?


Hvis det er rigtig så prøv at rette:

if cstr(Request.Form("Opdater")) <> "" then


Til:

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Nu sender de ihvertfald, men det eneste den skriver til databasen er datoen.

Jeg havde vist lavet en fejl og ikke fået hele koden med. Det skulle være klaret nu.
Nu kommer den istedet med denne fejlmelding:
Error 500:100 :

ASP Code 0
Number -2146827263
Source if filnavn <> "" then strSQL = strSQL & ", fileupload="" & filnavn,""","""") & """
File /image.asp
Line 41
Column 66
Description Expected end of statement
ASP Description -
SQL Query -

Der skal være ' nogle steder prøv at rette:

if filnavn <> "" then strSQL = strSQL & ", fileupload="" & filnavn,""","""") & """


Prøv at rette den til dette:


if filnavn <> "" then strSQL = strSQL & ", fileupload='" & filnavn & "'"

Error 500:100 :

Nu brokker den sig igen:

ASP Code 0
Number -2146827263
Source strSQL = strSQL & ","" & filnavn,""","""") &"""
File /image.asp
Line 57
Column 32
Description Expected end of statement
ASP Description -
SQL Query -

I gen der skal være ' omrking teksten så prøv at rette den til:


strSQL = strSQL & ",'" & filnavn & "'"

Den bliver ved:

Error 500:100 :

ASP Code 0
Number -2146827264
Source end if
File /image.asp
Line 77
Column 0
Description Expected statement
ASP Description -
SQL Query -

Ok, det tyder på at der enten er et  end if  for meget eller for lidt.
Du kan evt. prøve at vise koden, det kode som bygger de to strSQL.

Jeg er ikke helt med på hvad det er for noget kode du vil se, som du ikke allerede har set?

Den prokker sig over: end if
Typisk fordi der er kommet en end if for meget

Hvis der eksempelvis står:

if filnavn <> "" then strSQL = strSQL & ", fileupload='" & filnavn & "'"
end if


Så skal det bare være sådan her da then delen står på samme linie som ordet then:

if filnavn <> "" then strSQL = strSQL & ", fileupload='" & filnavn & "'"

Error 500:100 :

Hvis jeg fjerner end if fra den sætning du nævner kommer den med en ny fejl:

ASP Code 0
Number -2146827850
Source -
File /image.asp
Line 55
Column -1
Description Object doesn"t support this property or method: "mySmartUpload"
ASP Description -
SQL Query -

ok kan ikke prøve at vise koden?

Her er koden, som den ser ud nu:
<%@ language="vbscript" codepage="1252" %>

<%
if cstr(Request.QueryString("mode")) = "new" then
    Session.Contents("userid") = 0
else
    if IsEmpty(Session.Contents("userid")) OR cstr(Session.Contents("userid") & "") = "" then
        Server.Transfer "log.asp"
    end if
end if

Server.Execute "setup.asp"

strConn = Session.Contents("ConnectionString")
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
 
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
       
    Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

    intCount = mySmartUpload.Save("upload") 'Gemmer filen i upload folderen
    if intCount > 0 then
      filnavn = mySmartUpload.Files.Item(1).FileName  'finder filnavnet
    end if

    SQLBeskrivelse = Replace(mySmartUpload.Form("Beskrivelse"),"'","''")
    if len(SQLBeskrivelse) > 255 then
        SQLBeskrivelse = left(SQLBeskrivelse, 255)
    end if
   
    if Session.Contents("userid") > 0 then
        strSQL = "UPDATE bruger SET"
        strSQL = strSQL & " Navn='" & Replace(mySmartUpload.Form("Navn"),"'","''") & "'"
        strSQL = strSQL & ", [Password]='" & Replace(mySmartUpload.Form("Password"),"'","''") & "'"
        strSQL = strSQL & ", Email='" & Replace(mySmartUpload.Form("Email"),"'","''") & "'"
        strSQL = strSQL & ", Country='" & Replace(mySmartUpload.Form("Country"),"'","''") & "'"
        'Hvis filnavnet er tomt er det fordi der ikke er uploadet en ny fil og derfor bør filnanvet kun
        'indsættes hvis der er et nyt navn.
        if filnavn <> "" then strSQL = strSQL & ", fileupload='" & filnavn & "'"
        end if
        strSQL = strSQL & ", Kategori='" & mySmartUpload.Form("Kategori") & "'"
        strSQL = strSQL & ", Beskrivelse='" & SQLBeskrivelse & "'"
        strSQL = strSQL & " WHERE ID=" & Session.Contents("userid")

        objConn.Execute strSQL
    else
        strSQL = "INSERT INTO bruger"
        strSQL = strSQL & "(Navn,[Password],Email,Country,fileupload,Kategori,Beskrivelse,OprettetDato) "
        strSQL = strSQL & "VALUES("
        strSQL = strSQL & "'" & Replace(mySmartUpload.Form("Navn"),"'","''") & "'"
        strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Password"),"'","''") & "'"
        strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Email"),"'","''") & "'"
        strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Country"),"'","''") & "'"
        strSQL = strSQL & ",'" & filnavn & "'"            
        strSQL = strSQL & ",'" & mySmartUpload.Form("Kategori") & "'"
        strSQL = strSQL & ",'" & SQLBeskrivelse & "'"
        strSQL = strSQL & ",#" & now & "#"
        strSQL = strSQL & ")"

        objConn.Execute strSQL
       
        set objRs = objConn.Execute("SELECT @@IDENTITY AS newId")
        if not objRs.EOF then
            Session.Contents("userid") = cstr(objRs("newId"))
        end if
        objRs.Close
        set objRs = nothing
    end if

    Set mySmartUpload = Nothing   
    objConn.Close
    set objConn = nothing
    Response.Redirect "image.asp"
end if

if cstr(Request.Form("Slet")) <> "" then
    strSQL = "DELETE FROM bruger WHERE ID=" & Session.Contents("userid")
    objConn.Execute strSQL

    objConn.Close
    set objConn = nothing
    Session.Contents("userid") = Empty
    Response.Redirect "image.asp"
end if

if cstr(Request.Form("Logaf")) <> "" then
    objConn.Close
    set objConn = nothing
    Session.Contents("userid") = Empty
    Response.Redirect "image.asp"
end if

if Session.Contents("userid") > 0 then
    SaveButton = "Update"
    strSQL = "SELECT * FROM bruger WHERE ID = " & Session.Contents("userid")

    set objRs = objConn.Execute(strSQL)

  if not objRs.EOF then
        Navn = cstr(objRs("Navn") & "")
        Password = cstr(objRs("Password") & "")
        Email = cstr(objRs("Email") & "")
        Country = cstr(objRs("Country") & "")
        fileupload = cstr(objRs("fileupload") & "")
        Kategori = cstr(objRs("Kategori") & "")
        Beskrivelse = cstr(objRs("Beskrivelse") & "")
    end if

    objRs.close
    objConn.Close
    set objRs = nothing
    set objConn = nothing
else
    SaveButton = "Submit"
end if


strKategorier = "[Select Category],,A,A,B,B,C,C"
arrKategorier = Split(strKategorier, ",")

Kategorier = vbCrLf
for idx = 0 to ((ubound(arrKategorier) + 1) / 2) - 1
    strKategoriText = arrKategorier(idx * 2)
    strKategoriValue = arrKategorier(idx * 2 + 1)
    Kategorier = Kategorier & "<option value=""" & strKategoriValue & """"
    if strKategoriValue = Kategori then
        Kategorier = Kategorier & " SELECTED"
    end if
    Kategorier = Kategorier & ">" & strKategoriText & vbCrLf
next

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
  <style type="text/css">
<!--
.style5 {
    font-size: 24px;
    font-weight: bold;
}
-->
  </style>
<head>
    <title>Vedligehold brugeroplysninger</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <style type="text/css">
        .label { float:left; width:120px; }
    body,td,th {
    font-family: Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #06275B;
}
a {
    font-size: 12px;
    color: #06275B;
}
a:link {
    text-decoration: underline;
}
a:visited {
    text-decoration: underline;
    color: #06275B;
}
a:hover {
    text-decoration: none;
    color: #99CCFF;
}
a:active {
    text-decoration: underline;
    color: #06275B;
}
.style2 {font-family: Arial, Helvetica, sans-serif}
    .style4 {float: left; width: 120px; font-weight: bold; }
    </style>
</head>
  <body>


  <form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" enctype="multipart/form-data">
    <table width="57%" border="1" bordercolor="#99CCFF">
    <tr>
      <td width="11%" valign="top" bordercolor="#FFFFFF"><span class="style4">Name:</span></td>
      <td width="89" colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength="255" name="Navn" value="<%=Navn%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Password:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="password" maxlength=50" name="Password" value="<%=Password%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Email:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength=255" name="Email" value="<%=Email%>"></td>
    </tr>
    <tr>
      <td height="26" valign="top" bordercolor="#FFFFFF"><span class="style4">Country:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength="255" name="Country" value="<%=Country%>"></td>
    </tr>
        <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Category:</span></td>
      <td bordercolor="#FFFFFF"><select name="Kategori" class="style2">
          <%=Kategorier%> </select></td>
      <td bordercolor="#FFFFFF"><INPUT NAME="fileupload" TYPE="file"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Description:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><textarea name="Beskrivelse" cols="50" rows="5"><%=Beskrivelse%></textarea></td>
    </tr>
    <tr>
      <td bordercolor="#FFFFFF">&nbsp;</td>
      <td colspan="2" bordercolor="#FFFFFF"><input name="Opdater" type="submit" class="style4" value="<%=SaveButton%>">
        <input name="Slet" type="submit" class="style4" value="Delete"> <input name="Logaf" type="submit" class="style4"

value="Logoff"></td>
    </tr>
  </table>
  <p><br>
    <span class="label">&nbsp;</span> <br>
    <br>
  </p>
  </form>
  </body>
</html>

Disse to:

        if filnavn <> "" then strSQL = strSQL & ", fileupload='" & filnavn & "'"
        end if

Skal være sådan her:

        if filnavn <> "" then strSQL = strSQL & ", fileupload='" & filnavn & "'"

Nu kommer den med en ny fejlmelding.

Jeg har fået nedenstående script anbefalet. Det virker nogenlunde. Min stivej var anderledes så jeg har gættet mig frem til den. Den uploader og skriver til databasen, men der er følgende fejl:

Den skriver et filnavn i databasen, der ser rigtigt ud, men selve billedfilen giver den et andet navn. Den kalder billedet for databasens navn + billedmappens navn, derefter billedfilnavnet. Desuden lægger den ikke billedfilen i billedmappen, der hedder upload, den lægger billedet i mappen hvor asp filerne ligger.
Håber du forstår lidt af det...  :.)

<%@ language="vbscript" codepage="1252" %>
<%
if cstr(Request.QueryString("mode")) = "new" then
    Session.Contents("userid") = 0
else
    if IsEmpty(Session.Contents("userid")) OR cstr(Session.Contents("userid") & "") = "" then
        Server.Transfer "log.asp"
    end if
end if
dbPath = Server.MapPath("databasetest.mdb")
permanent_mappe = dbPath + "upload"
placering = request.servervariables("upload") & "databasetest.mdb"
Server.Execute "setup.asp"

'SMARTUPLOAD-------------------------------------------------------
Dim mySmartUpload

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

' Max fil-størrelse 1000 KByte)
mySmartUpLoad.TotalMaxFileSize = 1000000

' Upload starter
' **************
on error resume next
mySmartUpload.Upload
on error goto 0
'SMARTUPLOAD-------------------------------------------------------

strConn = Session.Contents("ConnectionString")
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
 
if cstr(mySmartUpload.Form("Opdater")) <> "" then

  'UPLOAD EVT EN FIL
  randomize
'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files
      '  **************
        tmp = int(rnd * 1000000) + 1000000
        fileNavn = "Billed_" & tmp & "." & file.FileExt
        'response.write(permanent_mappe & fileNavn & "<BR>")
        file.SaveAs(permanent_mappe & fileNavn)   
      End If
  Next


    SQLBeskrivelse = Replace(mySmartUpload.Form("Beskrivelse"),"'","''")
    if len(SQLBeskrivelse) > 255 then
        SQLBeskrivelse = left(SQLBeskrivelse, 255)
    end if
 
    if Session.Contents("userid") > 0 then

        ' HUSK VED UPDATE AT SLETTE EN EVT. GAMMEL FIL. DENNES FILNAVN SKAL LAESES I TABELLEN FOER NEDENSTAAENDE
        ' SQL KOERES.

        strSQL = "UPDATE bruger SET"
        strSQL = strSQL & " Navn='" & Replace(mySmartUpload.Form("Navn"),"'","''") & "'"
        strSQL = strSQL & ", [Password]='" & Replace(mySmartUpload.Form("Password"),"'","''") & "'"
        strSQL = strSQL & ", Email='" & Replace(mySmartUpload.Form("Email"),"'","''") & "'"
  strSQL = strSQL & ", Country='" & Replace(mySmartUpload.Form("Country"),"'","''") & "'"
        strSQL = strSQL & ", Kategori='" & mySmartUpload.Form("Kategori") & "'"
        strSQL = strSQL & ", Beskrivelse='" & SQLBeskrivelse & "'"
        strSQL = strSQL & ", fileupload='" & fileNavn & "'"           
        strSQL = strSQL & " WHERE ID=" & Session.Contents("userid")

        objConn.Execute strSQL
    else
        strSQL = "INSERT INTO bruger"
        strSQL = strSQL & "(Navn,[Password],Email,Country,fileupload,Kategori,Beskrivelse,OprettetDato) "
        strSQL = strSQL & "VALUES("
        strSQL = strSQL & "'" & Replace(mySmartUpload.Form("Navn"),"'","''") & "'"
        strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Password"),"'","''") & "'"
        strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Email"),"'","''") & "'"
  strSQL = strSQL & ",'" & Replace(mySmartUpload.Form("Country"),"'","''") & "'"
    strSQL = strSQL & ",'" & fileNavn & "'"                                 
        strSQL = strSQL & ",'" & mySmartUpload.Form("Kategori") & "'"
        strSQL = strSQL & ",'" & SQLBeskrivelse & "'"
  strSQL = strSQL & ",#" & now & "#"
  strSQL = strSQL & ")"

        objConn.Execute strSQL
     
        set objRs = objConn.Execute("SELECT @@IDENTITY AS newId")
        if not objRs.EOF then
            Session.Contents("userid") = cstr(objRs("newId"))
        end if
        objRs.Close
        set objRs = nothing
    end if
 
    objConn.Close
    set objConn = nothing
    Response.Redirect "image.asp"
end if

if cstr(Request.Form("Slet")) <> "" then
    strSQL = "DELETE FROM bruger WHERE ID=" & Session.Contents("userid")
    objConn.Execute strSQL

    objConn.Close
    set objConn = nothing
    Session.Contents("userid") = Empty
    Response.Redirect "image.asp"
end if

if cstr(Request.Form("Logaf")) <> "" then
    objConn.Close
    set objConn = nothing
    Session.Contents("userid") = Empty
Response.Redirect "image.asp"
end if

if Session.Contents("userid") > 0 then
    SaveButton = "Update"
    strSQL = "SELECT * FROM bruger WHERE ID = " & Session.Contents("userid")

    set objRs = objConn.Execute(strSQL)

  if not objRs.EOF then
        Navn = cstr(objRs("Navn") & "")
        Password = cstr(objRs("Password") & "")
        Email = cstr(objRs("Email") & "")
  Country = cstr(objRs("Country") & "")
    fileupload = cstr(objRs("fileupload") & "")                 
        Kategori = cstr(objRs("Kategori") & "")
        Beskrivelse = cstr(objRs("Beskrivelse") & "")
    end if

    objRs.close
    objConn.Close
    set objRs = nothing
    set objConn = nothing
else
    SaveButton = "Submit"
end if


strKategorier = "[Select Category],,A,A,B,B,C,C"
arrKategorier = Split(strKategorier, ",")

Kategorier = vbCrLf
for idx = 0 to ((ubound(arrKategorier) + 1) / 2) - 1
    strKategoriText = arrKategorier(idx * 2)
    strKategoriValue = arrKategorier(idx * 2 + 1)
    Kategorier = Kategorier & "<option value=""" & strKategoriValue & """"
    if strKategoriValue = Kategori then
        Kategorier = Kategorier & " SELECTED"
    end if
    Kategorier = Kategorier & ">" & strKategoriText & vbCrLf
next

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
  <style type="text/css">
<!--
.style5 {
font-size: 24px;
font-weight: bold;
}
-->
  </style>
<head>
    <title>Vedligehold brugeroplysninger</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <style type="text/css">
        .label { float:left; width:120px; }
    body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #06275B;
}
a {
font-size: 12px;
color: #06275B;
}
a:link {
text-decoration: underline;
}
a:visited {
text-decoration: underline;
color: #06275B;
}
a:hover {
text-decoration: none;
color: #99CCFF;
}
a:active {
text-decoration: underline;
color: #06275B;
}
.style2 {font-family: Arial, Helvetica, sans-serif}
    .style4 {float: left; width: 120px; font-weight: bold; }
    </style>
</head>
  <body>   

  <form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" enctype="multipart/form-data">
  <table width="50%"  border="0">
    <tr>
      <td align="left" valign="top" nowrap><div align="left"><span class="style2"><span class="style3"><span class="style5"><font face="Arial Black, Impact, MS Sans Serif">GTO
          Recycle</font></span><img src="../mimages/cycle10.gif" width="70" height="77"></span></span></div></td>
    </tr>
  </table>
  <table width="57%" border="1" bordercolor="#99CCFF">
    <tr>
      <td width="11%" valign="top" bordercolor="#FFFFFF"><span class="style4">Name:</span></td>
      <td width="89%" colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength="255" name="Navn" value="<%=Navn%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Password:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="password" maxlength=50" name="Password" value="<%=Password%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Email:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength=255" name="Email" value="<%=Email%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Country:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><input type="text" maxlength="255" name="Country" value="<%=Country%>"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Category:</span></td>
      <td bordercolor="#FFFFFF"><select name="Kategori" class="style2">
          <%=Kategorier%> </select></td>
      <td bordercolor="#FFFFFF"><INPUT NAME="fileupload" TYPE="file"></td>
    </tr>
    <tr>
      <td valign="top" bordercolor="#FFFFFF"><span class="style4">Description:</span></td>
      <td colspan="2" bordercolor="#FFFFFF"><textarea name="Beskrivelse" cols="50" rows="5"><%=Beskrivelse%></textarea></td>
    </tr>
    <tr>
      <td bordercolor="#FFFFFF">&nbsp;</td>
      <td colspan="2" bordercolor="#FFFFFF"><input name="Opdater" type="submit" class="style4" value="<%=SaveButton%>">
        <input name="Slet" type="submit" class="style4" value="Delete"> <input name="Logaf" type="submit" class="style4" value="Logoff"></td>
    </tr>
  </table>
  <p><br>
    <span class="label">&nbsp;</span> <br>
    <br>
  </p>
  </form>
  </body>
</html>


</body>
</html>

Prøv at rette denne hvor stien til mappen oprettes:

permanent_mappe = dbPath + "upload"


Til dette:
permanent_mappe = Server.Mappath("upload")

Det har ændret det så filerne ikke længere bliver kaldt databasens navn, men det bliver stadig kaldt billed mappens navn og filerne bliver stadig lagt i en forkert mappe.

ok så folderen skal være upload og filnaget databasen nav?

Så pvør at rette den så der byttet rundt på de to ting:

permanent_mappe =  "upload/" & dbPath

Nu kommer den med denne:

Unable to save file (Error 1120)

Stivejen er ikke rigtig.

>> Den kalder billedet for databasens navn + billedmappens navn, derefter billedfilnavnet.

Jeg er ikke helt med hvad skal billedet hedde?



dbPath = Server.MapPath("databasetest.mdb")
dbPath bliver til en sti som c:\stil\til\databaefilen\databasetest.mdb

hvordan skal det ind i navnet?

Hvad billedet skal hedde er et tilfældigt tal.
Jeg synes ikke det er vigtigt, at omdøbe filen, hvis det er nemmere uden.
Hvis jeg skriver nedenstående hedder billed filen sit talnavn og databasenavnet:
permanent_mappe = dbPath + fileNavn

så hedder file:

databasetest.mdbXXXXX.jpg

og ligger i samme folder som databasen er det ikke rigtigt?


Så prøv at rette:

permanent_mappe = dbPath + fileNavn



Til dette:

permanent_mappe = mid(dbPath, 1, inStrRev(dbPath,"\") & "\upload\"

sådan her:

permanent_mappe = mid(dbPath, 1, inStrRev(dbPath,"\")) & "upload\"

skal der noget mere ind i som filnavnet kan det være sådan her:


permanent_mappe = mid(dbPath, 1, inStrRev(dbPath,"\")) & "upload\xyz"

Så langt så godt. Nu uploader den til den rigtige mappe, men den lægger xyz til det øvrige billedfil navn, men det kommer ikke med i databasen så den kan stadig ikke finde stivejen.

Nu har jeg fattet det!! Det virker!! Jeg er MEGET glad!!
1000000 tak. :-)

Det lyder godt :)

Jeg håber, vi snakkes ved en anden gang..... :-)

Du har også lige fået max. karma. :-)

Jeg har et "lille" tillægsspørgsmål...
Når man på siden, hvor man viser oplysningerne har denne kode:
<td>" & "<IMG SRC=""upload/" & objRs("fileupload") & """><BR>" & "</td>
Hvad gør man så hvis en bruger IKKE vil uploade et billede?

Jeg vil godt give 200 point for det...:-)

Du kan tjekke om en bruger har uploaded et billede ved at tjekke på om indhodlet af objRs("fileupload") er null:

if len("" & objRs("fileupload")) > 0 then
  'Der er et billede

  <td>" & "<IMG SRC=""upload/" & objRs("fileupload") & """><BR>" & "</td>

else
  'Der er ikke noget billede. Vis evt. default billede eller teskt

  <td>Ingen billede<BR>" & "</td>

end if

Jeg kan ikke få det til, at virke. Det kan være, jeg laver fejl i det?
Jeg har også et andet problem..
Brugeren kan bl.a. ikke længere slette. Man kan kun opdatere.
Kan man uddybe denne linje så den indbefatter slet og logaf?:
if cstr(mySmartUpload.Form("Opdater")) <> "" then

Jeg har løst noget af problemet med slet og logaf. Jeg skulle huske, at slet og logaf også skulle hedde mySmartUpload.Form istedet for Request.Form. :-)

Når man updaterer er der dog det problem, at hvis man kun vil ændre teksten er man nødt til, at uploade billedfilen.

I Update SQL sætningen:

        strSQL = "UPDATE bruger SET"
        strSQL = strSQL & " Navn='" & Replace(mySmartUpload.Form("Navn"),"'","''") & "'"
        strSQL = strSQL & ", [Password]='" & Replace(mySmartUpload.Form("Password"),"'","''") & "'"
        strSQL = strSQL & ", Email='" & Replace(mySmartUpload.Form("Email"),"'","''") & "'"
  strSQL = strSQL & ", Country='" & Replace(mySmartUpload.Form("Country"),"'","''") & "'"
        strSQL = strSQL & ", Kategori='" & mySmartUpload.Form("Kategori") & "'"
        strSQL = strSQL & ", Beskrivelse='" & SQLBeskrivelse & "'"
        strSQL = strSQL & ", fileupload='" & fileNavn & "'"           
        strSQL = strSQL & " WHERE ID=" & Session.Contents("userid")



Skal denne linie rettes så den kun opdater hvis der er en ny fil:

        strSQL = strSQL & ", fileupload='" & fileNavn & "'"


Så den skal være:

        if fileNavn <> "" then strSQL = strSQL & ", fileupload='" & fileNavn & "'"

Super!! :-)
Det hjalp! Tak!
Resten af oplysningerne kan folk jo ændre ved, at de bliver hentet ind i formularen hvor brugeren kan se dem. Det må man vel også kunne med billedfilen, ikke?

Ikke direkte for stien i file input feltet skal pege på fil på brugeren PC.

Så det man kan gøre at at udskrive navnet på filen eller vise billedet med img tags som folk har uploaded. En metode har jeg har set er at vise billedet og så havde en checkbox hvor man kunne vælge at slette billedet, eller uploade et ny billede som også vil slette det gamle billede.


Ved update af profil:

[file inputet (tom)] [browse-knap]

[det uploaded billede]  [ ]-Slet billede (checkbox)

Ok, det er jeg med på, tak. :-)
Jeg har dog stadig 2 mindre problemer jeg ikke har fået løst.
Det ene er, at jeg kan ikke få den til, at vise ingenting, når folk IKKE vil uploade et billede. Jeg har prøvet et par modeller, men ingen af dem virker.

Hej eagleeye
Nu har jeg fået løst det ene problem, men jeg mangler dog stadig, at få løst problemet med når folk IKKE vil uploade en fil. Jeg har oprettet det som et nyt spørgsmål til 200 point. Det er det eneste, der mangler før folk kan begynde at bruge siden.

>> dog stadig, at få løst problemet med når folk IKKE vil uploade en fil.

Kan du vise de par linier kode hvor billede udskrives?

Evt. også hvis du har tilføjet en if sætning..



Princippet i den er:

if len(trim("" & rs("fileupload"))) > 0 then
  'Billedesti i databasen vis billede

else
  'Ingen billede

end if

Der er kommet et billedlink på. Jeg har bl.a. prøvet denne udgave:
if len("" & objRs("fileupload")) > 0 then
    <td><a href=""upload/" & objRs("fileupload") & """ target=""popvindue""onclick=""window.open(this.href, this.target, 'height=200;width=300'"">Se foto</a></td>
else
    <td>Ingen billede<BR>" & "</td>

end if

har du response.write på de linier?

if len("" & objRs("fileupload")) > 0 then
    response.write "<td><a href=""upload/" & objRs("fileupload") & " target=""popvindue""onclick=""window.open(this.href, this.target, 'height=200;width=300'"">Se foto</a></td>"
else
    response.write "<td>Ingen billede<BR>" & "</td>"

end if

Ja, jeg får denne fejlmelding:
Error 500:100 :

ASP Code 0
Number -2146827263
Source Userlist = Userlist & "<tr><td>" & objRs("ID") & "</td><td>" & objRs("Navn") & "</td><td>" & "<a href="mailto:" & objRs("Email") & "">" & objRs("Email") & "</a>" & "</TD><td>" & objRs("Country") & "</td><td>" & objRs("Kategori") & "</td><td>" & objRs("Beskrivelse") & "</td>if len("" & objRs("fileupload")) > 0 then
File /image.asp
Line 38
Column 328
Description Expected end of statement
ASP Description -
SQL Query -

Ok så du bygger en streng sammen så skal det være i stil med:


Userlist = Userlist & "<tr><td>" & objRs("ID") & "</td><td>" & objRs("Navn") & "</td><td>" & "<a href="mailto:" & objRs("Email") & "">" & objRs("Email") & "</a>" & "</TD><td>" & objRs("Country") & "</td><td>" & objRs("Kategori") & "</td><td>" & objRs("Beskrivelse") & "</td>"
if len("" & objRs("fileupload")) > 0 then
  Userlist = Userlist & "<td><a href=""upload/" & objRs("fileupload") & " target=""popvindue""onclick=""window.open(this.href, this.target, 'height=200;width=300'"">Se foto</a></td>"
else
  Userlist = Userlist & "<td>Ingen billede<BR>" & "</td>"
end if

Den kommer med den samme fejlmelding:
Error 500:100 :

ASP Code 0
Number -2146827263
Source Userlist = Userlist & "<tr><td>" & objRs("ID") & "</td><td>" & objRs("Navn") & "</td><td>" & "<a href="mailto:" & objRs("Email") & "">" & objRs("Email") & "</a>" & "</TD><td>" & objRs("Country") & "</td><td>" & objRs("Kategori") & "</td><td>" & objRs("Beskrivelse") & "</td>if len("" & objRs("fileupload")) > 0 then
File /image.asp
Line 38
Column 328
Description Expected end of statement
ASP Description -
SQL Query -

Det ser ud til, at jeg har fået en løsning, men igen 1000 tak for al din hjælp. :-)