Hva er feil i denne kode?
Bilde blir ikke opplastet....<!--#include file="Loader.asp"-->
<!--#include file ="../www/include/dbconn.asp"-->
<%
'For å unngå proxy server caching
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
' load objektet
Dim load
Set load = new Loader
' kalle initialize metoden
load.initialize
' Fil binær data
Dim fileData
fileData = load.getFileData("file")
'Oppretter når filen er lagret.
Dim strdato
strdato = now()
'Sjekker hvis dag er 1 så blir den 01
Dim strDay
strDay = Day( strdato )
if len(strDay) = 1 then
strDay = "0" & strDay
end if
'Sjekker hvis måned er 1 så blir den 01
Dim strMonth
strMonth = Month( strdato )
if len(strMonth) = 1 then
strMonth = "0" & strMonth
end if
'Sjekker hvis år er 1 så blir den 01
Dim strYear
strYear = Year( strdato )
if len(strYear) = 1 then
strYear = "0" & strYear
end if
'Sjekker hvis time er 1 så blir den 01
Dim strHour
strHour = Hour( strdato )
if len(strHour) = 1 then
strHour = "0" & strHour
end if
'Sjekker hvis minutt er 1 så blir den 01
Dim strMinute
strMinute = Minute( strdato )
if len(strMinute) = 1 then
strMinute = "0" & strMinute
end if
'Sjekker hvis sekund er 1 så blir den 01
Dim strSecond
strSecond = Second( strdato)
if len(strSecond) = 1 then
strSecond = "0" & strSecond
end if
'Setter sammen dag.måned.år-time.minutt.sekund til en variabel.
Dim strDatoTid
strDatoTid = strDay & "." & strMonth & "." & strYear & "-" & strHour & "." & strMinute & "." & strSecond
' Fil navn
Dim fileName,fileExt
fileName = LCase(load.getFileName("file"))
'Sjekker fil endelsen etter punktum.
FileExt = Mid(fileName, InstrRev(fileName, ".") + 1)
'Oppretter dag.måned.år-time.minutt.sekund.filendelse
fileName = strDatoTid & "." & fileExt
' Fil sti
Dim filePath
filePath = load.getFilePath("file")
' Fil sti komplett
Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")
' Fil størelse
Dim fileSize
fileSize = load.getFileSize("file")
' Fil størelse oversatt
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")
' Type
Dim contentType
contentType = load.getContentType("file")
' Nr. av Form elementer
Dim countElements
countElements = load.Count
' Hva som er i Navn feltet
Dim nameInput
nameInput = load.getValue("name")
' Stien hvor filen vil bli opplastet
'Dim pathToFile
'pathToFile = Server.mapPath("uploaded/") & "\" & fileName
'Sjekker om filen er større en 1000 KB
If fileSize > 1000000 Then
error = error & "Filen er for stor. "
End if
'Sjekker om filen er mindre en 1 KB
If fileSize < 1000 Then
error = error & "Filen er for liten. "
End if
'Sjekker om filen er JPG eller JPEG.
If LCase(FileExt) <> "jpg" AND LCase(FileExt) <> "jpeg" Then
error = error & "Du må velge enten et JPG eller JPEG bilde. "
end if
' Dersom error ikke er "", har det oppstått minst en feil. Skriv ut feilmelding
If error <> "" Then
Response.Clear
%><html>
<body onload="window.alert('En feil skjedde! <% =error %>');
window.history.back();">
</body></html><%
Response.End
End If
'Laster opp data
'Dim fileUploaded
'fileUploaded = load.saveToFile ("file", pathToFile)
'-----------------------------------------------------------------------
'Laster bilde til database - START
'-----------------------------------------------------------------------
' Opprette recordset objekt
Set oRS=Server.CreateObject("ADODB.Recordset")
oRS.CursorLocation = 2 ' adUseServer
'oRS.CursorType = 0 ' adOpenForwardOnly
oRS.CursorType = 2 ' adOpenDynamic
oRS.LockType = 3 ' adLockOptimistic
Dim SQL, oRS
SQL = "SELECT * FROM tblBilder"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText
On Error Resume Next
' Legg til ny rad i tblBilder tabellen
oRS.AddNew
' Legg inn data
oRS("BNavn") = nameInput
oRS("BFilNavn") = fileName
oRS("BMimeType") = contentType
oRS("BBinData") = fileData
oRs("BOpprettetDato") = Now()
'Lagre endringene i databasen
oRS.Update
%>
<!--#include file ="../www/include/dbconn_close.asp"-->
<%
'-----------------------------------------------------------------------
'Laster bilde til database - SLUTT
'-----------------------------------------------------------------------
'Ødelegger load objektet
Set load = Nothing
%>
<html>
<head>
<title>Fil opplastning</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>Fil opplastning</b><br>
<a href="show.asp">Se opplastede filer</a>
</p>
<table width="700" border="1" align="center">
<tr>
<td>Fil Navn</td><td><%= fileName %></td>
</tr><tr>
<td>Fil Sti</td><td><%= filePath %></td>
</tr><tr>
<td>Fil Sti Komplett</td><td><%= filePathComplete %></td>
</tr><tr>
<td>Fil Størelse</td><td><%= fileSize %></td>
</tr><tr>
<td>Fil Størelse Oversatt</td><td><%= fileSizeTranslated %></td>
</tr><tr>
<td>Fil Type</td><td><%= contentType %></td>
</tr><tr>
<td>Nr. med Form Elementer</td><td><%= countElements %></td>
</tr><tr>
<td>Navn</td><td><%= nameInput %></td>
</tr>
</table><br><br>
<p style="padding-left:220;">
<%
If oRS.Update = True Then
Response.Write fileName & " data kunne ikke opplastes..."
Else
Response.Write fileName & " kunne lastes opp..."
End If
%>
</p>
</body>
</html>
