---

hejsa
jeg bruger aspsmartupload til at uploade nogen billeder til min side.
det køre også godt nok men jeg vil gerne gemme stien i en database.
koden ser sådan ud:
<%
' 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("\foto/" & 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>")
%>

jeg kan bare ikke se hvordan jeg kan hente filnavnet ud af det har og komme
det i en table.
er der en der kan gi mig et hent til hvordan man kan gøre det?
--
pepss
den ordblinde der prøver at blive webdesigner
www.team-blitz.dk

---

Først kan du starte med et oprette en forbindelse til din database...

<%
Server.ScriptTimeOut = 9000000

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("<database>")

Set rs = Server.CreateObject("ADODB.Recordset")
   strSQL = "Select * FROM <tabel>"
   rs.Open strSQL, Conn, 1, 3
   
   
%>

Her efter kan du bruge dit Recordset til at tilføje med...
<%
rs.addnew
rs("FileName") = File.FileName
rs("IP") = request.servervariables("remote_addr")
rs("date") = date
rs("time") = time
rs("Brugernavn") = Session("Brugernavn")
rs.update
%>


Her er min kode jeg bruger:
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
' Variables
' *********
Dim mySmartUpload
Dim file
Dim intCount
Dim Filnavn
intCount=0

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

mySmartUpload.DeniedFilesList = "exe,bat,asp"

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

' Vælg hver fil
' ****************
Response.write("<u><font size='2' face='Verdana, Arial, Helvetica,
sans-serif'><strong>Info:</strong></font></u></strong><br><br>")
For each file In mySmartUpload.Files

If not file.IsMissing Then
' Gemmer filen på serveren
'
**************************************************************************
file.SaveAs("/pub/files/" & file.FileName)

' Viser info om hver enkelt fil.
' ******************************************
    Response.write("<font size='2'><font face='Verdana, Arial, Helvetica,
sans-serif'>")
    Response.Write("<b><u>" & file.Name & "</b></u></font><BR>")
       Response.write("<font size='1'><font face='Verdana, Arial, Helvetica,
sans-serif'>")
       Response.Write("<b>Størelse</b> = " & FormatNumber(file.Size/1024, 2) & "
KB<br>")
Response.Write("<b>Filnavn & Link</b> = " & "<a
href='http://www.thefatman.dk/pub/files/" & file.FileName & "'>" &
file.FileName & "</a><BR>")
Response.write("<br>")
intCount = intCount + 1

' Tilføjer til databasen.
' ************************************
rs.addnew
rs("FileName") = File.FileName
rs("IP") = request.servervariables("remote_addr")
rs("date") = date
rs("time") = time
rs("Brugernavn") = Session("Brugernavn")
rs.update
End If

Next
End If
%>


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Kenneth Auchenberg" <kenneth@thefatman.dk> skrev
> Først kan du starte med et oprette en forbindelse til din database...
>
> Her efter kan du bruge dit Recordset til at tilføje med...

rigtig mange tak!
jeg har aldrig brugt den måde til at tilføje på men det ku da godt være jeg
skulle til at kikke noget mere på det!

hvad er forskælden på den måde du bruget og Insert into table?

--
pepss
den ordblinde der prøver at blive webdesigner
www.team-blitz.dk

---

> hvad er forskælden på den måde du bruget og Insert into table?

Forskellen ligger i at jeg bruger et recordset istedet for SQL, nogle gange er
det lettere (syntes jeg) at gøre det på den måde, mens andre gange så er det
bedre at bruge SQL...

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Kenneth Auchenberg" <kenneth@thefatman.dk> skrev
> > hvad er forskælden på den måde du bruget og Insert into table?
>
> Forskellen ligger i at jeg bruger et recordset istedet for SQL, nogle
gange er
> det lettere (syntes jeg) at gøre det på den måde, mens andre gange så er
det
> bedre at bruge SQL...

tror jeg har fårstået systemet! men jeg har lig et spørsmål mere!
jeg vil gerne tilføge noget tekst til billede som også skal være i databasen
jeg kan bare ikke lige se hvordan man kan hente teksten med fra form siden
jeg har forsøgt med:

form siden:
<FORM METHOD="POST" ACTION="/up2.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
text: <INPUT TYPE="text" NAME="text" SIZE="50" value="text til foto"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

og på uploade siden har jeg så indsat:
rs("text") = text

men der kommer ikke noget med over.....
hvordan for den File.FileName med over? det må jo kunde gøres på samme
måde....

--
pepss
den ordblinde der prøver at blive webdesigner
www.team-blitz.dk

---

Jeg lytter lige med, har nemlig haft samme problem, kunne godt udskrive
navnet men når det skulle gemmes i db stod der ingenting???

--
Mvh
Frank Sørensen

"Kun en tåbe rydder op. Et geni behersker kaos"