Problemer med aspsmartupload
Jeg har denne kode, og i den er der en fejl<%
On Error Resume Next
Response.Buffer=TRUE
Dim mySmartUpload 'declare the component
Dim intCount ' count the number of uploaded files
Dim File 'declare the file to upload
intCount=1 'initialize the counter
'dim datoen, navn, by, tekst
Session("Navn")=request.form("navn")
Session("By")=request.form("by")
Session("Tekst")=request.form("tekst")
'component creation
Set mySmartUpload= Server.CreateObject("aspSmartUpload.SmartUpload")
'limit the file size to 70 Kb
mySmartUpload.MaxFileSize = 70000
' limit the file extensions to pictures files
mySmartUpload.allowedFilesList="jpg"
'Select files on the user computer
mySmartUpload.Upload
'checking all the files
For each file in mySmartUpload.Files
'presence test
If not File.IsMissing then
fic=file.FileName
if Session("Pic1") = "" THEN
Session("Pic1")=fic
elseif Session("Pic2") = "" THEN
Session("Pic2")=fic
elseif Session("Pic3") = "" THEN
Session("Pic3")=fic
elseif Session("Pic4") = "" THEN
Session("Pic4")=fic
elseif Session("Pic5") = "" THEN
Session("Pic5")=fic
end if
' file.SaveAs("../../Admin/user/" & fic)
'next file
intCount = intCount + 1
End If
Next
' initialize the object
Set mySmartUpload=nothing
direction="userPic3.asp"
'end if
' redirect to the result display
'Response.redirect direction
%>
<br><br>
Link=<a href="<%=direction%>">her</a>
<br><br>
<%
If err.number > 0 Then
Response.write("<br><hr><h3><b>Error Report</b></h3><hr>")
Response.write("<b>Server Side Error(s) Occured</b><br><br>")
Response.write("Error Number: " & err.number)
Response.write(" (This is a " & err.description & ")")
Response.write("<br><br>Help Context=" & err.helpcontext)
Response.write("<br>Help Path=" & err.helppath )
Response.write("<br>Native Error=" & err.nativeerror)
Response.write("<br>Source=" & err.source)
Response.write("<br><br>SQLState=" & err.sqlstate)
Else
End If
%>
Jeg får en "Siden kan ikke vises" fejl:
Serveren blev ikke fundet, eller der opstod en DNS-fejl
Internet Explorer
