Upload og database forbindelse på samme tid?
Hej.. Er det ikke muligt at uploade uden komponent, og samtidigt oprette data i databasen? Her er min fil:----------------------------------
<% If Session("admin_garderobe") => "1" then %>
<!-- #INCLUDE FILE="fileupload.inc" -->
<%
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes
intFileUpload = FileUpload("../../uploadroot/garderobe/", 20000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)
'----------------------------------------------------------------
DBPATH = "DBQ=" & Server.MapPath("../../db/l1i2n3k4s5.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DBPATH
navn = Request.Form("navn")
beskrivelse = Request.Form("beskrivelse")
beskrivelse = Replace(beskrivelse, "'", "''")
beskrivelse = Replace(beskrivelse, vbCrLf, "xbr")
link = Request.Form("link")
billede = strFilename
If navn="" Or beskrivelse="" Or link="" Or billede="" then
Response.Write "<b>Du skal udfylde alle felter!!</b>"
Else
strSQL="INSERT INTO links (navn,beskrivelse,link,billede) VALUES('" & navn & "','" & beskrivelse & "','" & link & "','" & strFileName & "')"
Conn.Execute(strSQL)
If intFileUpload = 0 Then
Response.Write "Garderobe linket ved navn <b>" & navn & "</b> / <b>" & strFilename & "</b> blev oprettet og korrekt uploaded.<BR>"
Response.Write "Billedets type er <b>" & strContentType & "</b> og det fylder <b>" & intFileTotalBytes & "</b> bytes, og ser således ud:<BR>"
Response.Write "<IMG SRC='/upload/garderobe/" & strFilename & "'><BR>"
Else
Response.Write "Der opstod en fejl under upload af billede!<BR>"
Response.Write "Fejl nr: " & intFileUpload & "<BR>"
Response.Write "Filnavn: " & strFilename & "<BR>"
Response.Write "Filtype: " & strContentType & "<BR>"
Response.Write "Filstørrelse: " & intFileTotalBytes & "<BR>"
End If
End If
Set Conn = Nothing
%>
<%
Else
Response.Write "Ikke online eller ikke adgang til funktion!"
End If
%>
---------------------------------------------
Database navnet ER skrevet rigtigt, så jeg kan ikke se hvad der ellers kunne være galt..
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x6e0 Thread 0x1e4 DBC 0x9425024 Jet'.
