Upload: vil ikke uploade store filer?
Jeg har følgende funktiuon til upload af filer - den fungerer fint nok ved mindre filstr. som f.eks. 50kb (foto) men hvis jeg skal upload en film på ca. 5mb så sker der intet, den kommer heller ikke med nogen fejlmeddelelse...Hva fann gør jeg
Sub Opret_Click(Sender as object, E as EventArgs)
Dim Videofilnavn AS String
Dim Placering as string
If Page.IsValid then
DataConn.OpenDb()
DataConn.DanData("SELECT * From Video_VideoType WHERE KategoriID=" & DrpVideoType.SelectedItem.Value & " and VideoID=" & request.QueryString("Videoid") & ";")
If DataConn.Data.Read() then
return
end if
DataConn.CloseDb()
try
If InStr(VideoUpload.PostedFile.FileName, "\") > 0 Then
Videofilnavn = Mid(VideoUpload.PostedFile.FileName, InStrRev(VideoUpload.PostedFile.FileName, "\") + 1)
End If
Placering = Div.ServerSti & Div.VideoSti
If File.Exists(Placering & Videofilnavn) Then
Return
Else
VideoUpload.PostedFile.SaveAs(Placering & "\" & Videofilnavn)
End If
catch t as exception
Fejl.Fejl(t.tostring())
return
end try
DataConn.OpenDb()
Dim udtryk as string
udtryk = "INSERT INTO Video_VideoType "
udtryk += "(KategoriID,VideoID,FilNavn) "
udtryk += "VALUES"
udtryk += "(" & DrpVideoType.SelectedItem.Value & "," & request.QueryString("Videoid") & ",'" & Videofilnavn & "')"
DataConn.SkrivData(udtryk)
DataConn.CloseDb()
Fyld_DgVideoType()
end if
end sub
