<% Response.Buffer=True %>
<%
strformelement = Request.QueryString("FE")
If strformelement = "" Then
strformelement = 0
End if
strformagent = UCase(Trim(Request.QueryString("MLS")))
If Request.QueryString("PB") = "Y" 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 "/IDX/inhousepics/" & strNewFileName
End if
End if
Set theField = Nothing
Set theForm = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage server.MapPath("/IDX/inhousepics/" & strNewFileName)
Image.Resize 640, 480
Image.FileName = server.MapPath("/IDX/inhousepics/" & strNewFileName)
Image.JPEGQuality = 100
Image.SaveImage
Set Image = nothing
fileUpload = strNewFileName
End Function
'=======================================================================================
'=======================================================================================
strImageName = fileUpload()
End If
%>
--Administration--
<% If strImageName <> "" Then %>
<% End If %>