<% Response.Buffer=True %>
<%
Dim strpath,strtype,strprocess
strpath = Trim(Request.Querystring("PATH"))
strtype = Cint(Request.Querystring("TYPE"))
Select case strtype
Case 1
strprocess = "Agency Logo Upload"
Case 2
strprocess = "Agency Banner Upload"
End Select
If Request.QueryString("PB") = "Y" AND Request.Cookies("Webmaster") = "Validated" Then
'Upload Function Utilizing the ABCUpload Component,,,, www.websupergoo.com==============
'=======================================================================================
Private Function fileUpload()
Dim theForm,theField,strNewFileName,newname
Set theForm = Server.CreateObject("ABCUpload4.XForm")
theForm.Overwrite = True
theForm.MaxUploadSize = 1000000
Set theField = theForm("file1")(1)
Set newname = theForm("name")
If theField.FileExists AND theField.ImageType = 2 Then
strNewFileName = newname & ".jpg"
If strtype = 1 Then
theField.Save strpath & strNewFileName
Elseif strtype = 2 Then
theField.Save strpath & strNewFileName
End if
End if
Set theField = Nothing
Set newname = Nothing
Set theForm = Nothing
fileUpload = strNewFileName
End Function
'=======================================================================================
'=======================================================================================
strImageName = fileUpload()
End if
%>
--Administration--
<% If strImageName <> "" Then %>
<% End If %>