force download in ASP/WAP (urgent)

HI everybody,

I am trying to force download for images/audio files on my WAP page that uses ASP.

I use this code for the site and it funcions well enough:

					strPath=Server.MapPath(rsDownloads("file_name"))
If strPath = "" Then
		Response.Clear
		Response.Write("No file specified.")
		Response.End
	ElseIf InStr(strPath, "..") > 0 Then  
		Response.Clear
		Response.Write("Illegal folder location.")
		Response.End
	ElseIf Len(strPath) > 1024 Then
		Response.Clear
		Response.Write("Folder path too long.")
		Response.End
Else
		Call DownloadFile(strPath)
End If
Private Sub DownloadFile(file)
		'--declare variables
		Dim strAbsFile
		Dim strFileExtension
		Dim objFSO
		Dim objFile
		Dim objStream
		'-- set absolute file location
		strAbsFile = file
		'-- create FSO object to check if file exists and get properties
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		'-- check to see if the file exists
		If objFSO.FileExists(strAbsFile) Then
		Set objFile = objFSO.GetFile(strAbsFile)
		'-- first clear the response, and then set the appropriate headers
		Response.Clear
		'-- the filename you give it will be the one that is shown
		' to the users by default when they save
		Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name
		Response.AddHeader "Content-Length", objFile.Size
		Response.ContentType = "application/octet-stream"
		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open
		'-- set as binary
		objStream.Type = 1
		Response.CharSet = "UTF-8"
		'-- load into the stream the file
		objStream.LoadFromFile(strAbsFile)
		'-- send the stream in the response
		Response.BinaryWrite(objStream.Read)
		objStream.Close
		Set objStream = Nothing
		Set objFile = Nothing
		Else 'objFSO.FileExists(strAbsFile)
			Response.Clear
			Response.Write("There is no such file.")
		End If
	Set objFSO = Nothing
End Sub

Code (markup):

but on the WAP version it donwloads the wap.asp file which has this content.

Please let me know what I am doing wrong.

Thanks in advance

 

I think I have found out the problem, its the line

Response.ContentType = "application/octet-stream"

could you please write examples for JPG, GIF, JPEG, MID, MMF, MP3, THM file types.

 

I found what I needed. don't trouble guys,

The list is at http://www.asptutorial.info/sscript/ContentType.asp

I used a select case as I had several types there

		select case right(objFile.Name, 3)
			case "jpg", "peg"
			Response.ContentType = "image/jpeg"
			case "gif"
			Response.ContentType = "image/gif"
			case "mid", "midi"
			Response.ContentType = "audio/midi"
			case "mp3"
			Response.ContentType = "audio/mpeg"
			case "mmf"
			Response.ContentType = "audio/mmf"
			case "thm"
			Response.ContentType = "theme/thm"
		end select

Code (markup):