<%
'Include Security
Server.Execute("/admin/includes/popup_security.asp")
%>
<%'Include Data Connection%>
<%'Include ADO constants include file for VBScript%>
<%
'open data connection
OpenConn()
%>
<%'Include Utility Scripts%>
<%
'close data connection
CloseConn()
%>
<%'Include upload Scripts%>
<%
dim byteCount, RequestBin, UploadRequest, contentType, filepathname, filename, FolderName, Path
dim value, MyFileObject, objFile, i
If request("Action")="1" then
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUpload(RequestBin)
If UploadRequest.Item("txtUpload").Item("Value") <> "" Then
contentType = UploadRequest.Item("txtUpload").Item("ContentType")
filepathname = UploadRequest.Item("txtUpload").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,Chr(92)))
FolderName = UploadRequest.Item("txtFolder").Item("Value")
Path = Server.MapPath(FolderName)
value = UploadRequest.Item("txtUpload").Item("Value")
filename = Path & Chr(92) & filename
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = MyFileObject.CreateTextFile(filename)
For i = 1 to LenB(value)
objFile.Write chr(AscB(MidB(value,i,1)))
Next
objFile.Close
Set objFile = Nothing
Set MyFileObject = Nothing
End If
Set UploadRequest = Nothing
Response.Write ""
End If%>