<% Response.Buffer=True %>
<%
strformelement = Request.QueryString("FE")
If strformelement = "" Then
strformelement = 0
End if
strformagent = UCase(Trim(Request.QueryString("AGENT")))
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
Set theForm = Server.CreateObject("ABCUpload4.XForm")
theForm.Overwrite = True
theForm.MaxUploadSize = 1000000
Set theField = theForm("file1")(1)
If theField.FileExists Then
IF theField.ImageType = 2 Then
strNewFileName = strformagent & ".jpg"
theField.Save "/agents/agentpics/" & strNewFileName
End if
End if
Set theField = Nothing
Set theForm = Nothing
' Set Image = Server.CreateObject("AspImage.Image")
'Image.Loadimage server.MapPath("/agents/agentpics/" & strNewFileName)
' Image.ResizeR 103, 133
' Image.FileName = server.MapPath("/agents/agentpics/" & strNewFileName)
' Image.JPEGQuality = 100
' Image.SaveImage
' Set Image = nothing
Set Obj = Server.CreateObject("eKov.PicturePreviewer")
Obj.LoadFromFile server.MapPath("/agents/agentpics/" & strNewFileName)
Obj.Resize 103, 133, 5
Obj.Quality = 100
Obj.SaveToFileAsJpeg server.MapPath("/agents/agentpics/" & strNewFileName)
Set Obj = nothing
fileUpload = strNewFileName
End Function
'=======================================================================================
'=======================================================================================
strImageName = fileUpload()
End If
%>
--Administration--
<% If strImageName <> "" Then %>
<% End If %>