Fejl ved ASPsmartUpload

den fejl betyder normalt at man har navngivet i dit tilfælde 2 kolonner forkert i sin sql i forhold til databasen
Men hvornår sætter du din conn? og hvorfor laver du en select når du skal indsætte en ny?

<!--#include file="../conn.asp"-->

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=d:\web\localuser\pivskid.dk\database\pivskid.mdb"
Conn.Open DSN
%>

det er den ene ting, den anden ting er at du må ikke benytte request.form !
Du skal benytte mySmartUpload.Form i stedet

nå ja klart :o)

der er en del fejl
file.FileToField oRs.Fields("billede")
hvor kommer "oRs" ind i billedet når det resten af stederne hedder RS

<!--#include file="../conn.asp"-->
<%

  Dim mySmartUpload
  Dim file
  Dim Conn
  Dim strSQL
  Dim Rs
  Dim intCount
  intCount=0
       

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")


  mySmartUpload.Upload


  strSQL = "SELECT FILENAME,FILE FROM nyheder"

  Set Rs = Server.CreateObject("ADODB.recordset")
  Set Rs.ActiveConnection = Conn
  Rs.Source = strSQL
  Rs.LockType = 3
  Rs.Open


  For each file In mySmartUpload.Files

      If not file.IsMissing Then


        Rs.AddNew
        file.FileToField Rs.Fields("billede")
        Rs("FILENAME") = file.FileName
        Rs("skrevet_af") = mySmartUpload.form("skrevet_af")
        Rs("nyhed") = mySmartUpload.form("nyhed")
        Rs("rang") = mySmartUpload.form("rang")
        Rs("kategori") = mySmartUpload.form("kategori")
        Rs("dato") = FormatDateTime(Now, vbShortDate)
        Rs.Update
        intCount = intCount + 1
      End If
  Next


  Response.Write(intCount & " file(s) uploaded.<BR>")
  Response.Write("<font face='Verdana' size='1'>Nyheden er oprettet !</font>")


  Rs.Close
  Conn.Close
  Set Rs = Nothing
  Set Conn = Nothing
%>

Jeg har lavet den om fra oRs til Rs og vist lige glemt den ene, men har rettet den

har du set eksemplerne på aspsmartuploads hjemmeside?
http://www.aspsmart.com/aspSmartUpload/
ellers vil jeg anbefale dig at lure dem, da de går godt i dybden med det :o)

En anden ting er at du vist vil uploade billedet til databasen og ikke serveren
Du skal blot vide at dette vil sløve din database
Det er normalt mere anbefalelsesværdig at gemme billedet på serveren og så blot gemme stien til billedet i databasen :o)

Har kigget på den side, men har ikke fået det til alligevel

jeg forstår ikke den måde at gøre det på, at åbne et recordset med to kolonner for at indsætte en ny række med 7 kolonner
--
strSQL = "SELECT FILENAME,FILE FROM nyheder"
--
Der er jo kun to
Er du sikker på du har et felt i databasen kaldet "FILENAME" og et kaldet "FILE"

jeg mener du gemmer jo billedet i "billede" så hvad er "FILE"

jeg ville tro du skulle lave
strSQL = "SELECT * FROM nyheder"
Men jeg er så heller ikke så stærkt inde i den måde at gøre det på

kan sgu ikke hitte ud af det

to min

det den skal er gemme billedet i en mappe....
skrive dens navn ind i databasen og de oplysninger...

nårh skrive dens navn i databasen, den skal altså ikke gemme selve billedet i databasen?
For det er der jo stor forskel på ;o)

netop, men kan ikke ret godt finde ud af det skidt med ASPSmartUpload

Er godt klar over at det ikke er smart at gemme filen i dben

hehe ok
Så ville jeg droppe alle de linjer med RS og istedet lave
--
sql = "insert into nyheder (billede, navn, ...osv) Values ("&file.filename&","&mysmartupload.form("navn") ....osv))
conn.execute(sql)
--
og derudover skal du så have en
--
file.SaveAs("c:\temp\" & file.FileName)
altså stien på serveren hvor billedet skal gemmes

prøv se deres eksempel nummer 2, der er en masse overflødige udskrifter du kan slette
Men det er et eksempel som løber alle billederne igennem og gemmer dem på serveren
I løkken laver du så en conn.execute("update blabla") med navn, nyhed, osv osv til databasen

Altså der er jo to ting
1) upload til server
2) gemme diverse oplysninger i db

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

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

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
        file.SaveAs("/aspSmartUpload/Upload/" & file.FileName)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        intCount = intCount + 1
      End If
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

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

Det skulle så være den ?

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

du må lige se om navnene i din tabel er korrekte,
Men sådan her vil jeg mene
----
<!--#include file="../conn.asp"-->
<%
  Dim mySmartUpload, file, Conn, strSQL     

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.Upload

  For each file In mySmartUpload.Files
      If not file.IsMissing Then
        file.SaveAs("DIN_STI" & file.FileName)
        strSQL = "Insert Into nyheder (filename, skrevet_af, nyhed, rang, kategori, dato) values ("&_
                " '"&file.FileName&"'"&_
                ",'"&mySmartUpload.form("skrevet_af")&"'&"_
                ",'"&mySmartUpload.form("nyhed")&"'"&_
                ",'"&mySmartUpload.form("rang")&"'"&_
                ",'"&mySmartUpload.form("kategori")&"'"&_
                ",#"&FormatDateTime(Now, vbShortDate)&"#)"
        conn.execute(strSQL)
      End If
  Next

  Conn.Close
  Set Conn = Nothing
%>

Det eneste der umiddelbart mangler i den er en sti til mappen på hotellet

nå ja men den putter du bare ind selvfølgelig, evt istedet for filnavnet som vel er overflødigt?
--
<!--#include file="../conn.asp"-->
<%
  Dim mySmartUpload, file, Conn, strSQL   

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.Upload

  For each file In mySmartUpload.Files
      If not file.IsMissing Then
        file.SaveAs("DIN_STI" & file.FileName)
        strSQL = "Insert Into nyheder (sti, skrevet_af, nyhed, rang, kategori, dato) values ("&_
                " '"&"DIN_STI"&file.FileName&"'"&_
                ",'"&mySmartUpload.form("skrevet_af")&"'&"_
                ",'"&mySmartUpload.form("nyhed")&"'"&_
                ",'"&mySmartUpload.form("rang")&"'"&_
                ",'"&mySmartUpload.form("kategori")&"'"&_
                ",#"&FormatDateTime(Now, vbShortDate)&"#)"
        conn.execute(strSQL)
      End If
  Next

  Conn.Close
  Set Conn = Nothing
%>

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/admin/nyhed_opret_handler.asp, line 14

",'"&mySmartUpload.form("nyhed")&"'"&_
^

ups, ret denne her
",'"&mySmartUpload.form("skrevet_af")&"'&"_
til
",'"&mySmartUpload.form("skrevet_af")&"'"&_

aspSmartUpload.File error '80040460'

Unable to save file (Error 1120)

/admin/nyhed_opret_handler.asp, line 10

file.SaveAs("d:\web\localuser\domain.dk\public_html\grafik\" & file.FileName)
Line 10

det kan tyde på to ting
Enten har du skrevet stien forkert så den ikke eksisterer
Eller også har du ikke skrive adgang til den angivne mappe

dohhh
        file.SaveAs("d:\web\localuser\domain.dk\public_html\grafik\" & file.FileName)
-----------------------------------------|
        file.SaveAs("d:\web\localuser\pivskid.dk\public_html\grafik\" & file.FileName)

smart

hæhæ jaaa det var jo nok et start ;o)
virker det så ?

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

[Microsoft][ODBC Microsoft Access Driver] The INSERT INTO statement contains the following unknown field name: 'billede'. Make sure you have typed the name correctly, and try the operation again.

/admin/nyhed_opret_handler.asp, line 18

line 18 :

        conn.execute(strSQL)

ok den siger jo simpelt nok at den ikke har et felt i tabellen som hedder "billede"
Så du må lige tjekke op med navnene i tabellen :o)

okai det ser ud til at virke nu, det eneste er vel at vist jeg vil udskrive billedet på en anden side, så kommer vel hele stien med eller ?

ja det er stien som står i databasen, så hvis du laver
<img src="<%=rs("billede")%>">
Så vil du få hele stien ja
Hvis du nu ved hvor du gemmer billederne, fx hvis de alle gemmes i samme mappe
Så kan du jo nøjes med at gemme filnavnet i stedet
Så slipper du for at man kan se den fulde sti

ja det ville jo straks være bedre

strSQL = "Insert Into nyheder (sti, skrevet_af, nyhed, rang, kategori, dato) values ("&_
                " '"&file.FileName&"'"&_

jup

hva med den sti ?

strSQL = "Insert Into nyheder (sti, skrevet_af, nyhed, rang, kategori, dato) values
-------------------------------| DEN STI

skal den laves om til billede ?

der sætter du file.FileName?
Ellers giv mig det du har hvis det er

Det bestemmer du selv, du bestemmer selv navnene, de skal bare stemme overens med navnene i din tabel i databasen jo

og det skulle den vist hehe

Så har jeg så den set kun et spørgsmål mere, vist du gider at hjælpe da ? Ellers er point ihvertfald dine

jeman så lægger jeg et svar :o)
bare spørg løs

når jeg udskriver mit billede på siden
<img src="grafik/<%  Response.Write "" & rs("billede") & "" %>">

Så er det jo ikke altid at der er et billede hvordan får jeg den til at tjekke om der er et billede og vist der er smider dette op på siden...?

så må du lave en if sætning
---
if rs("billede") <> "" then
  response.write "<img src=""grafik/"&rs("billede")&""">"
end if

okai :) Damn nu skal jeg upload et billede med ellers smider den ikke oplysningerne ind i dben