---
title: "Problem med nerladdningsskript"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122397-problem-med-nerladdningsskript"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "klementin"
published: "2005-02-14T13:25:11.000Z"
updated: "2005-02-14T13:25:11.000Z"
replies: 0
views: 210
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/122397-problem-med-nerladdningsskript"
---

# Problem med nerladdningsskript

## #1 — klementin, 2005-02-14T13:25Z

Hej!
Har gjort en sida där man kan ladda ner filer och varje gång en fil laddas ner så uppdateras en "counter" i databasen för just den filen (detta fungerar utmärkt) men när själva filen ska ladda ner så blir den bara 302bytes stor oavsett orginalstorleken. På servern där filerna ligger rent fysiskt så stämmer storlekarna men så fort man laddar ner dem som blir dom som sagt 302bytes stora. Här är sidan view.asp som fixar uppdateringen i databasen samt startar nerladdningen:

```
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & "\upload.mdb;"

		SQL = "SELECT dFileSid, dFilename, dViews FROM tblUpload WHERE dFileSid = '" & Request.Querystring("qId") & "' AND dDeleted = 0"
		Set rs = Conn.Execute(SQL) 

		If Not rs.EOF Then

			If CStr(Request.Querystring("qId")) = CStr(rs("dFileSid")) Then

				sBin = rs("dFilename")

				Set FSO = CreateObject("Scripting.FileSystemObject")

				If FSO.FileExists(uplPath & "\" & sBin) Then

					SQL = "UPDATE tblUpload SET "
					SQL = SQL & "dViews = " & rs("dViews") + 1 & ", "
					SQL = SQL & "dViewDate = #" & Date() & "#, "
					SQL = SQL & "dViewTime = #" & Time() & "# "
					SQL = SQL & "WHERE dFileSid = '" & Request.Querystring("qId") & "'"
					Conn.Execute(SQL)

					Response.Clear
					Response.ContentType = "application/octet-stream"
					Response.AddHeader "Content-Disposition", "attachment; filename=""" & sBin & """"
					Response.Flush()
					Response.WriteFile(uplPath & "\" & sBin)

				Else

					SQL = "UPDATE tblUpload SET "
					SQL = SQL & "dDeleted = 1, "
					SQL = SQL & "dDeleteDate = #" & Date() & "#, "
					SQL = SQL & "dDeleteTime = #" & Time() & "# "
					SQL = SQL & "WHERE dFileSid = '" & Request.Querystring("qId") & "'"
					Conn.Execute(SQL)

				End If

				Set FSO = Nothing 

			End If

		End If

		rs.Close
		Set rs = Nothing

		Conn.Close
		Set Conn = Nothing
```

 

Vad gör jag för fel?
Tack på förhand!
Med vänlig hälsning
K

Permalänk: https://www.webforum.nu/p/122397

---

Tråden på webben: https://www.webforum.nu/amne/asp/122397-problem-med-nerladdningsskript