---

Hej

Jeg har en sag jeg ikke rigtigt ved hvordan jeg skal takle så jeg håber på
lidt råd.
En kunde vil gerne kunne uploade tekst og billeder til en nyhedsside men han
vil også kunne slette og / eller redigere i dette. Jeg har forsøgt mig me
ASPSmartUpload, jeg kan også få den til at uploade filerne til en mappe men
her går jeg så i stå. Jeg har overvejet at benytte en database istedet for
men hvad angiver jeg så i stien til billeder ? Jeg ved jo ikke hvad han vil
kalde sine filer ! Jeg håber på et spark så jeg kan komme videre .

På forhånd tak

Tommy

---

Tommy wrote:
> Jeg har en sag jeg ikke rigtigt ved hvordan jeg skal takle så jeg
> håber på lidt råd.
> En kunde vil gerne kunne uploade tekst og billeder til en
> nyhedsside men han vil også kunne slette og / eller redigere i
> dette. Jeg har forsøgt mig me ASPSmartUpload, jeg kan også få den
> til at uploade filerne til en mappe men her går jeg så i stå. Jeg
> har overvejet at benytte en database istedet for men hvad angiver
> jeg så i stien til billeder ? Jeg ved jo ikke hvad han vil kalde
> sine filer ! Jeg håber på et spark så jeg kan komme videre .

Hvis vi snakker filer:
Du kan vel også klare dig uden brug af database ved at kigge på ASP's
filesystem object, se eksempel på visning af filer nederst i indlægget ( jeg
vil anbefale dig at søge lige på internettet da FileSystemObject kan meget.
Jeg tror nu jeg ville foretrække at bruge en database. Hvis du gør det er
det smart, rent performancemæssigt, at opbevare stien til filerne i
databasen frem for selve filerne. Her kan du jo skrive stien i databasen
samtidig som du gemmer dem fra AspSmartuUpload.

Hvis vi også snakker tekst:
Ja så vil jeg mene at vi er ovre i noget med en database hvor du kan gemme
den redigerbare tekst, og så hente indholdet ud på nyhedssiden.

Eksempel
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(StiTilFilMappe)
For Each objItem In objFolder.Files
Response.Write "Fil: " & objItem.Name & "<br>"
Next
Set objFSO = Nothing
%>

Mvh
Chrisser

---

Tak

Det jeg ikke rigtigt kan greje er ; Lad os sige at kunden uploader til
databasen, så langt så godt men når jeg nu ikke kende navnet på de jpg filer
eller txt filer han lægger op, skal jeg da bare have dem ind i respektive
felter i databasen og så lade en tabel udskrive dynamist fra database feltet
??

Tommy

---

Tommy wrote:
> Det jeg ikke rigtigt kan greje er ; Lad os sige at kunden uploader
> til databasen, så langt så godt men når jeg nu ikke kende navnet på
> de jpg filer eller txt filer han lægger op, skal jeg da bare have
> dem ind i respektive felter i databasen og så lade en tabel
> udskrive dynamist fra database feltet ??

Jamen SmartUpload kender navnet, prøv:
<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files
If not file.IsMissing Then
Response.write = file.FileName
file.SaveAs(sti & file.FileName)
End If
Next
%>

Mvh
Chrisser

---

"Tommy" <info@manniken.dk> wrote in message
news:3fbca4ea$0$69981$edfadb0f@dread12.news.tele.dk...
> Hej
>
> Jeg har en sag jeg ikke rigtigt ved hvordan jeg skal takle så jeg håber på
> lidt råd.
> En kunde vil gerne kunne uploade tekst og billeder til en nyhedsside men
han
> vil også kunne slette og / eller redigere i dette. Jeg har forsøgt mig me
> ASPSmartUpload, jeg kan også få den til at uploade filerne til en mappe
men
> her går jeg så i stå. Jeg har overvejet at benytte en database istedet for
> men hvad angiver jeg så i stien til billeder ? Jeg ved jo ikke hvad han
vil
> kalde sine filer ! Jeg håber på et spark så jeg kan komme videre .

1) Upload filer til en mappe på serveren. Gem navn og id I en tabel i
databasen, brug fx. aspUpload.

2) Gem tekst til siden i en anden tabel. Knyt filernes id til artiklen.

3) vis siden med den tekst der er gemt i databasen. Sæt de filer ind der er
knyttet til ala dette. (for billeder)
<img src="../log/uploadbilleder/<%=oRsArticle("ImageName")%>" >
alm filer med:
<a
href="../log/uploadfile/<%=oRsFile("FileName")%>"><%=oRsFile("Filbeskrivelse
")%></a>
--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk
You can't keep time, but you can spend it right.

---

Tusind tak indtil videre , jeg prøver at få selve upload til at virke men
hvad skal jeg ændre her for at få den til at gemme i en fysisk sti ?
<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim strSQL
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
%>

---

Jeg kom lidt videre men får nu en fejl !

Her er hele smøren;

%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim strSQL
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 = ("D:\aconsult.us\www\config\datasources\ads.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver
(*.mdb)};DriverId=25;FIL=MS Access;"

' Open a recordset
' ****************
strSQL = "SELECT FILENAME,id,annoncer FROM comments"

Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open"SELECT id, annoncer FROM comments"

' 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("annoncer")
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
%>

Fejlen er :
ADODB.Field error '800a0c93'

Operation is not allowed in this context.

/register.asp, line 63 som er : file.FileToField oRs.Fields("annoncer")

---

Tommy wrote:
> 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("annoncer")

Hvad er det du gerne vil med ovenstående ?

> oRs("FILENAME") = file.FileName

I ovenstående gemmer du filnavnet i din tabel. Du vil nok også gerne have
gemt selve filen. Her synes jeg du skal gemme filen først, og så derefter
gemme sti + filnavn i databasen. A'la:
billedeSti = Server.Mappath("/billeder/") & file.fileName
file.SaveAs(billedeSti )
oRs("FILENAME") = billedeSti ' altså har du den fulde sti til billedet her

> oRs.Update
> intCount = intCount + 1
> End If
> Next

Mvh
Chrisser

---

Tak , jeg prøver om jeg kan få det til at virke , selve scriptet kommer fra
ASPSmartuploads hjemmeside.

Tommy

---

hmm.. Jeg kan stadigvæk ikke få det til at virke, kunne jeg mon lokke dig
til at indskrive min "billedsti" i dit eksempel? jeg tror det er her jeg
misforstår noget

På forhånd tak

Tommy

---

Løsningen er her , noget simpel men det virker

<html>
<head></head>
<body>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

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

'Upload filerne til memory
upload.Upload

upload.Save

filnavn = upload.Files.Item(1).FileName

'Gem filnanvet i databasen
if filnavn <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&
server.mappath("\config\datasources\ads.mdb")
strSQL = "INSERT INTO [comments] (annoncer) VALUES ('" & filnavn & "')"

Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
end if

%>
<center> Filen er nu uploaded og gemt </center>
<%
else
%>

<form method="post" action="" ENCTYPE="multipart/form-data">
<input type="file" name="fil1">
<input type="submit" name="Upload" value="Upload">
</form>

</body>
</html>
<% end if %>

---

Ja jeg var nok lidt hurtigt ude, det er kun filnavne der bliver gemt ikke
filerne ! Tilbage til arbejdsbordet !

Tommy