<% Dim buildinfiles,buildoutfiles,MyTextFile,MyImageFile,objFSO,strINcontents,strOUTcontents,obj,strmls,ix,foundouts,foundins foundouts = False foundins = False strmls = Request.Querystring("MLS") buildinfiles = False buildoutfiles = False strINcontents = "" strOUTcontents = "" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") function validformelement(elementtocheck,valuetocheck) validformelement = True Select case LCase(elementtocheck) Case "strindexformin","strindexformout","submit","reset","mainphoto","unsharpmask","dropshadow","contrast","lightness","imgwidth","imgheight","imgbranding","resizebrand" validformelement = False End Select If Trim(valuetocheck) = "" then validformelement = False End if End function function makefullimage(elementname) Select Case Left(elementname,2) Case "IN" makefullimage = Mid(elementname,3,Len(elementname)) & ".jpg" Case "OU" makefullimage = Mid(elementname,4,Len(elementname)) & ".jpg" End Select End function function makefullhtm(elementname,elementwidth,elementheight) Dim imagename,imagefullname Select Case Left(elementname,2) Case "IN" imagename = Mid(elementname,3,Len(elementname)) makefullhtm = imagename & ".htm" imagefullname = imagename & ".jpg" Case "OU" imagename = Mid(elementname,4,Len(elementname)) makefullhtm = imagename & ".htm" imagefullname = imagename & ".jpg" End Select Set MyImageFile = objFSO.CreateTextFile(Server.MapPath("/images/" & strmls & "/" & makefullhtm)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.WriteLine("" & chr(13)) MyImageFile.Close Set MyImageFile = Nothing End function function makethumbnail(elementname,elementorder) Select Case Left(elementname,2) Case "IN" strprefix = "IN" buildinfiles = True Case "OU" strprefix = "OUT" buildoutfiles = True End Select strorder = elementorder If Len(elementorder) < 2 then strorder = 0 & elementorder End if makethumbnail = strprefix & "tn" & strorder & ".jpg" End function Set Obj = Server.CreateObject("eKov.PicturePreviewer") Obj.errorPrompt = 0 For s = 1 to Request.Form.Count For ix = 1 to Request.Form.Count If Len(Request.Form.Item(ix)) <> 0 AND validformelement(Request.Form.Key(ix),Request.Form.Item(ix)) Then If Left(UCase(Request.Form.Key(ix)),2) = "IN" AND Cint(Request.Form.Item(ix)) = s Then Obj.LoadFromFile Server.MapPath("/images/" & strmls & "/" & makefullimage(Request.Form.Key(ix))) If Obj.errorFlag = 0 Then strINcontents = strINcontents & "
" & chr(13) Obj.Resize Obj.Width / 6.7, Obj.Height / 6.7, 5 Obj.Quality = 100 Obj.SaveToFileAsJpeg Server.MapPath("/images/" & strmls & "/" & makethumbnail(Request.Form.Key(ix),Request.Form.Item(ix))) 'Resize Image to 640 Width and 480 Height and Tag with Houseviewonline.com------------------------------------------------------ If Request.Form("resizebrand") = "yes" Then Obj.LoadFromFile Server.MapPath("/images/" & strmls & "/" & makefullimage(Request.Form.Key(ix))) If Obj.Width <> Cint(Trim(Request.Form("imgwidth"))) OR Obj.Height <> Cint(Trim(Request.Form("imgheight"))) Then Obj.Resize Cint(Trim(Request.Form("imgwidth"))), Cint(Trim(Request.Form("imgheight"))), 5 End if Obj.TextAlignment = 0 Obj.FontBoldOn = False Obj.FontName = "Arial" Obj.FontSize = 14 Obj.FontColor = RGB(0,0,0) Obj.TextOut 10, 10 , Trim(Request.Form("imgbranding")) Obj.Quality = 100 Obj.SaveToFileAsJpeg Server.MapPath("/images/" & strmls & "/" & makefullimage(Request.Form.Key(ix))) End if 'Resize Image to 640 Width and 480 Height and Tag with Houseviewonline.com----------------------------------------------------- foundins = True End if End if End if Next Next For s = 1 to Request.Form.Count For ix = 1 to Request.Form.Count If Len(Request.Form.Item(ix)) <> 0 AND validformelement(Request.Form.Key(ix),Request.Form.Item(ix)) Then If Left(UCase(Request.Form.Key(ix)),2) = "OU" AND Cint(Request.Form.Item(ix)) = s Then Obj.LoadFromFile Server.MapPath("/images/" & strmls & "/" & makefullimage(Request.Form.Key(ix))) If Obj.errorFlag = 0 Then strOUTcontents = strOUTcontents & "
" & chr(13) Obj.Resize Obj.Width / 6.7, Obj.Height / 6.7, 5 Obj.Quality = 100 Obj.SaveToFileAsJpeg Server.MapPath("/images/" & strmls & "/" & makethumbnail(Request.Form.Key(ix),Request.Form.Item(ix))) 'Resize Image to 640 Width and 480 Height and Tag with Houseviewonline.com------------------------------------------------------ If Request.Form("resizebrand") = "yes" Then Obj.LoadFromFile Server.MapPath("/images/" & strmls & "/" & makefullimage(Request.Form.Key(ix))) If Obj.Width <> Cint(Trim(Request.Form("imgwidth"))) OR Obj.Height <> Cint(Trim(Request.Form("imgheight"))) Then Obj.Resize Cint(Trim(Request.Form("imgwidth"))), Cint(Trim(Request.Form("imgheight"))), 5 End if Obj.TextAlignment = 0 Obj.FontBoldOn = False Obj.FontName = "Arial" Obj.FontSize = 14 Obj.FontColor = RGB(0,0,0) Obj.TextOut 10, 10 , Trim(Request.Form("imgbranding")) Obj.Quality = 100 Obj.SaveToFileAsJpeg Server.MapPath("/images/" & strmls & "/" & makefullimage(Request.Form.Key(ix))) End if 'Resize Image to 640 Width and 480 Height and Tag with Houseviewonline.com----------------------------------------------------- foundouts = True End if End if End if Next Next Set Obj = Nothing Dim strframewidth,strbackINimg,strbackOUTimg If Cint(Trim(Request.Form("imgwidth"))) > 700 Then strframewidth = 145 strbackINimg = "INbgvW.gif" strbackOUTimg = "OUTbgvW.gif" Else strframewidth = 135 strbackINimg = "INbgv.gif" strbackOUTimg = "OUTbgv.gif" End if If Request.Form("mainphoto") <> "" Then 'Do the Small Picture Set Obj = Server.CreateObject("eKov.PictureEffector") Obj.LoadFromFile Server.MapPath("/images/" & strmls & "/" & Request.Form("mainphoto") & ".jpg") If Request.Form("dropshadow") = "yes" Then Obj.Resize (Obj.Width / 2)-6, (Obj.Height / 2)-6, 5 Obj.EffectDropShadow 6, 6, 6, RGB(0,0,0) Else Obj.Resize Obj.Width / 2, Obj.Height / 2, 5 End if Obj.EffectContrast Request.Form("contrast") Obj.EffectLightness Request.Form("lightness") If Request.Form("unsharpmask") = "yes" Then Obj.EffectUnSharpMask End if Obj.Quality = 50 Obj.SaveToFileAsJpeg Server.MapPath("/images/" & strmls & "/" & strmls & "sm.jpg") Set Obj = Nothing 'Do the Full size Picture Set Obj = Server.CreateObject("eKov.PictureEffector") Obj.LoadFromFile Server.MapPath("/images/" & strmls & "/" & Request.Form("mainphoto") & ".jpg") If Request.Form("dropshadow") = "yes" Then Obj.Resize Obj.Width-6, Obj.Height-6, 5 Obj.EffectDropShadow 6, 6, 6, RGB(0,0,0) End if Obj.EffectContrast Request.Form("contrast") Obj.EffectLightness Request.Form("lightness") If Request.Form("unsharpmask") = "yes" Then Obj.EffectUnSharpMask End if Obj.Quality = 50 Obj.SaveToFileAsJpeg Server.MapPath("/images/" & strmls & "/" & strmls & ".jpg") Set Obj = Nothing End if ' Make HTML Page------------------------------------- If buildoutfiles Then Set MyTextFile = objFSO.CreateTextFile(Server.MapPath("/images/" & strmls & "/OUTpgf.htm")) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("<body bgcolor=#ffffff text=black>" & chr(13)) MyTextFile.WriteLine("<center>" & chr(13)) MyTextFile.WriteLine(strOUTcontents & chr(13)) MyTextFile.WriteLine("</center>" & chr(13)) MyTextFile.WriteLine("</body>" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.Close Set MyTextFile = Nothing Set MyTextFile = objFSO.CreateTextFile(Server.MapPath("/images/" & strmls & "/OUTpgm.htm")) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine(strOUTcontents & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.Close Set MyTextFile = Nothing Set MyTextFile = objFSO.CreateTextFile(Server.MapPath("/images/" & strmls & "/OUTpgi.htm")) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("

" & chr(13)) MyTextFile.WriteLine("Listing# " & strmls & " Outside Photos" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.Close Set MyTextFile = Nothing End if If buildinfiles Then Set MyTextFile = objFSO.CreateTextFile(Server.MapPath("/images/" & strmls & "/INpgf.htm")) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("<body bgcolor=#ffffff text=black>" & chr(13)) MyTextFile.WriteLine("<center>" & chr(13)) MyTextFile.WriteLine(strINcontents & chr(13)) MyTextFile.WriteLine("</center>" & chr(13)) MyTextFile.WriteLine("</body>" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.Close Set MyTextFile = Nothing Set MyTextFile = objFSO.CreateTextFile(Server.MapPath("/images/" & strmls & "/INpgm.htm")) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine(strINcontents & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.Close Set MyTextFile = Nothing Set MyTextFile = objFSO.CreateTextFile(Server.MapPath("/images/" & strmls & "/INpgi.htm")) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("

" & chr(13)) MyTextFile.WriteLine("Listing# " & strmls & " Inside Photos" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.WriteLine("" & chr(13)) MyTextFile.Close Set MyTextFile = Nothing End if Set objFSO = Nothing %> Build Completed.....
<% If foundins Then %> Inside Photos

<% End if If foundouts Then %> Outside Photos <% End if %>