Her kommer et meget langt indlæg - håber det er ok:
Jeg roder med at få billeder uploadet på min nyhedes side.
Til det bruger jeg en upload side, en side med scrolbar til at
hente billederne i mappen "billeder" en database til at lægge
link til billederne, men når jeg sender billledet til databasen
oprettes en ny linje i tabellen men navnet på filen (billedet)
kommer ikke med og dermed kan jeg ikke hente det.
Tabelen i databasen er oprettet som tekst og der vises ingen fejl
når der sendes til databasen.
Upload siden:
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=" & Server.MapPath("db1.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From billeder"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("billeder") = Request.form("billeder")
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
response.redirect ("a.asp")
%>
Siden med scrolbaren:
<form method="POST" class="css" action="oprat_besked.asp">
<%
Response.Write "<select name=billede size=1>"
InputPath = Server.MapPath("./") & "/billeder"
Set objFileSys =
Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSys.GetFolder(InputPath)
Set objFiles = objFolder.Files
For Each File in objFiles
Response.Write "<option value=" & File.Name & ">"
& File.Name & "</option>"
Next
Response.Write "</select>"
Set objFiles = Nothing
Set objFolder = Nothing
Set objFileSys = Nothing
%><p><type="text" name="billeder" size="20"></p><input
type="submit">
Håber nogen kan se fejlen.
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials