<%
If Request.Form("btndsply") = "lookup" AND Request.Form("IMG") <> "" then
Dim objFSO,imagename,strLine,picture,showit,validfile
imagename = Request.Form("IMG")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
picture = imagename & ".jpg"
If objFSO.FileExists(Server.MapPath("/images/" & imagename & "/" & picture )) Then
Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage Server.MapPath("/images/" & imagename & "/" & picture )
Image.FontColor = RGB(255, 255, 255)
Image.FontName = "Arial"
Image.FontSize = 8
Image.AntiAliasText = True
Image.TextOut "www.houseviewonline.com",10, 455, false
Image.FileName = Server.MapPath("/ctrfiles/dwnloadimg.jpg")
Image.JPEGQuality = 100
Image.SaveImage
Set Image = nothing
showit = "True"
end if
Set objFSo = nothing
End if
%>
<%
If showit = "True" then
Response.Write("MLS# " & imagename & "
")
Response.Write("Click Icon for Picture")
Response.Write(" & )
")
Else
Response.Write("Error Retrieving Image
")
Response.Write("or MLS# is Invalid
")
End if
%>
<% If showit = "True" then %>
To Download Image:
- RIGHT-CLICK on the Image
- choose Save picture as
- place the image in a Location on your computer
<% End if %>