<%
If Request.querystring("upload") <> "" Then
Dim objUpload
Dim strFileName
Dim strPath
Dim FileLength
Server.ScriptTimeout = 5400
' Instantiate Upload Class
Set objUpload = New clsUpload
' Grab the file name
strFileName = objUpload.Fields("File1").FileName
FileLength = ObjUpload.Fields("File1").Length
If FileLength > 256000 then
' Release upload object from memory
Set objUpload = Nothing
session("msg") = "Göndermeye çalıştığınız dosyanın büyüklüğü 250KB 'dan Büyük ...! Zipleyiniz veya küçültünüz. Dosyanız : " & strFileName & " Dosya Büyüklüğü : " & FileLength
session("uploadedfilename")=""
response.Redirect("form.asp?success=false")
End if
' Compile path to save file to
strPath = Server.MapPath("../dosyalar/" & strFileName)
' Save the binary data to the file system
objUpload("File1").SaveAs strPath
' Release upload object from memory
Set objUpload = Nothing
session("msg") = "Dosyanız ("& strFileName &") alınmıştır. Aşağıdakı forma da açıklamanızı yazınız."
session("uploadedfilename") = strPath
End If
If Request.querystring("Send") <> "" Then
msg_txt = "Hizmetofisi İletişim Formu"
msg_txt = msg_txt & "