<%@LANGUAGE="VBSCRIPT"%> <% '********************************* '* ADVANCED MAIL * '********************************* deleteProgressMail session.SessionID '********************************* '* ADVANCED MAIL * '********************************* '********************************* '* * '* ADVANCED MAIL * '* http://www.DwZone.it * '* * '********************************* server.ScriptTimeout = 5400 Dim RG_altVal, RG_columns, RG_Cong, RG_dbValues, RG_dbValuesTmp, RG_delim, RG_editCmd, RG_editQuery, RG_editQueryTmp, RG_emptyVal, RG_Ext, RG_Extensions, RG_fields, RG_FieldValueTmp, RG_FileDel, RG_FileExt, RG_formVal, RG_FS, RG_i, RG_L, RG_Len, RG_Max, RG_Name, RG_New, RG_newName, RG_Num, RG_Path, RG_Rec, RG_ret, RG_Save, RG_tableValues, RG_tableValuesTmp, RG_tst, FileMatch Dim RG_Connection, RG_editColumn, RG_recordId, Form, editAction, editRedirectUrl, RG_Files, RG_formName, UploadType, ParamVal, ParamList, MaxFieldNumber, TmpVal, x, y, Key, ProgressBar, RG_typeArray, RG_z, UploadStatus, NumFile, RG_MailParameter Dim OnLoadStart,ProgressMail,RG_BodyText,BodyFromFile,ImagesList,FilesList,StrSql,ReplaceList,sendAllFilesInFolder,sendAllFilesType,Rs,Parametri,SendMailID,Risposta,Cong,TotalMail,NumMail,TimeStart,Mailer,MailPar_1,MailPar_2,MailPar_3,MailPar_4,MailPar_5,FromName,FromMail, ReplyName, ReplyMail, ToName, ToMail, CcList, BccList, ReturnReceipt, MailFormat, Priority, MailObject, Message,Cc,Bcc,Comando,Conn,Fs,TempFolder,TempFileName,retStr,Risp,IsMailSend,newPage,ListToReplace,valori,ListFile,Folder,File,ListImage,UploadID,StatusFile,NewFileName,VerLen,VerExt,ItemCounter,Ris,FileToDelete,separ,ThisPage,tmpFile,LineaFile Dim tmpField_Name(), tmpValue_Name(), tmpField_Size(), tmpValue_Size(), QtyRecord, ParamVal_AdvMail, TotalFileSize, NoSendFileExceed, UploadMailError, valueToRedirectSend, MaxFieldNumberAdv, newPassword OnLoadStart = "0" if OnLoadStart = "0" then Set Form = New ASPForm UploadID = Form.NewUploadID end if ProgressBar = "" ProgressMail = "" editRedirectUrl = "thank_you.html" RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@./" RG_formName = "form1" RG_MailParameter = "2@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@first@_form_@@@@_@@@_@@@email@_form_@@@@_@@@_@@@first@_form_@@@@_@@@_@@@email@_form_@@@@_@@@_@@@Scott Norris@@@_@@@_@@@scott@scottnorris.com@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@Foreclosure Watch Request@@@_@@@_@@@0@@@_@@@_@@@1@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@-1@@@_@@@_@@@us-ascii;20127;US-ASCII@@@_@@@_@@@@@@_@@@_@@@@@@_@@@_@@@1@@@_@@@_@@@post@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0" RG_BodyText = "CONTACT INFORMATIONmyErremyCrLf

myErremyCrLf#first# #last#myErremyCrLf
myErremyCrLf#address1#myErremyCrLf
myErremyCrLf#address2#myErremyCrLf
myErremyCrLf#city#, #state# #zip#myErremyCrLf

myErremyCrLf#email#myErremyCrLf

myErremyCrLf#phone#myErremyCrLf

myErremyCrLfBest time to call: #bestTime#myErremyCrLf


myErremyCrLf--------------------------------------------
myErremyCrLfTARGET INFORMATIONmyErremyCrLf

myErremyCrLf#TargetAddress1#myErremyCrLf
myErremyCrLf#Targetaddress2#myErremyCrLf
myErremyCrLf#Targetcity#, #Targetstate# #Targetzip#myErremyCrLf

myErremyCrLfView: #view#myErremyCrLf
myErremyCrLfWater Access: #waterAccess#myErremyCrLf
myErremyCrLfProperty Type: #PropertyType#myErremyCrLf
myErremyCrLfParking: #parking#myErremyCrLf
myErremyCrLfBath Rooms: #bathRooms#myErremyCrLf
myErremyCrLfBedrooms: #bdRms#" BodyFromFile = "" UploadType = "AdvancedMail" ImagesList = "" FilesList = "" RG_Connection = MM_Void_STRING ReplaceList = "#address1#;address1@_form_@|#address2#;address2@_form_@|#bathRooms#;bathRooms@_form_@|#bdRms#;bdRms@_form_@|#bestTime#;bestTime@_form_@|#city#;city@_form_@|#email#;email@_form_@|#first#;first@_form_@|#last#;last@_form_@|#parking#;parking@_form_@|#phone#;phone@_form_@|#PropertyType#;PropertyType@_form_@|#state#;state@_form_@|#TargetAddress1#;TargetAddress1@_form_@|#Targetaddress2#;Targetaddress2@_form_@|#Targetcity#;Targetcity@_form_@|#Targetstate#;Targetstate@_form_@|#Targetzip#;Targetzip@_form_@|#view#;view@_form_@|#waterAccess#;waterAccess@_form_@|#zip#;zip@_form_@|#address1#;address1@_form_@|#address2#;address2@_form_@|#bathRooms#;bathRooms@_form_@|#bdRms#;bdRms@_form_@|#bestTime#;bestTime@_form_@|#city#;city@_form_@|#email#;email@_form_@|#first#;first@_form_@|#last#;last@_form_@|#parking#;parking@_form_@|#phone#;phone@_form_@|#PropertyType#;PropertyType@_form_@|#state#;state@_form_@|#TargetAddress1#;TargetAddress1@_form_@|#Targetaddress2#;Targetaddress2@_form_@|#Targetcity#;Targetcity@_form_@|#Targetstate#;Targetstate@_form_@|#Targetzip#;Targetzip@_form_@|#view#;view@_form_@|#waterAccess#;waterAccess@_form_@|#zip#;zip@_form_@" sendAllFilesInFolder = "" sendAllFilesType = 0 UploadStatus = "" NumFile = 0 if OnLoadStart = "-1" then StrSql = "" Set Rs = Server.CreateObject("ADODB.RecordSet") BodyFromDynamicPage = "" IsMailSend = SendMail() Set RS = nothing response.write(getRedirectForMail(IsMailSend)) response.end else if len(Request.QueryString("UploadID"))>0 then Form.UploadID = Request.QueryString("UploadID") end if if (Request.QueryString <> "") Then editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString & "&UploadID=" & UploadID else editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?UploadID=" & UploadID End If Const fsCompletted = 0 If Form.State = fsCompletted Then StrSql = "" if UploadFormRequest("DW_Form_Name") = "form1" then if Form.State = 0 then verifyUserExists() if RG_Files <> "" then setExtraData() setParamVal() setParamVal_AdvMail() Form.Files.Save end if Set Rs = Server.CreateObject("ADODB.RecordSet") BodyFromDynamicPage = "" IsMailSend = SendMail() Set RS = nothing response.write(getRedirectForMail(IsMailSend)) response.end End If End If ElseIf Form.State > 10 then response.write "
Some form error.
Error code: " & Form.State & "
Error List:
0 Form was successfully processed.
1 Request method is NOT post
2 Zero length request (there are no data in a source form)
3 Form is in a middle of process.
5 Initial form state
11 Boundary of multipart/form-data is not specified.
12 Unknown source form (Content-type must be multipart/form-data)
15 Client was disconnected before upload was completted.
16 Unexpected error from Request.BinaryRead method (ASP error).

" End If End If function GetFolderName(str): GetFolderName = Ris : end function %> Scott Norris, Realtor

Foreclosure Watch

This is the easiest and surest way to find foreclosures. Fill out the questionnaire below and we will email you all listings matching your requirements. You will receive updates the instant new listings appear (matching your requirements) in our Multiple Listing Service. You will never miss an opportunity!

Fill out the following information and click 'Submit'.
Fields marked with an asterisk (*) are required.

Contact Information

*First:
 
*Last:
 
   
*Address:
 
 
*City:
 
*State:
 
*Zip:
 
   
*Email:
 
   

*Phone:

 
Best Time To Call:
 
   

Target Information

*Address:
 
 
*City:
 
*State:
 
*Zip:
 
   
*Property Type:
 
   
*# of Bedrooms:
 
*# of Bathrooms:
 
*Parking:
 
*View:
 
*Water Access:
 
   
 

 

Copyright ©2002-08 Scott Norris, Realtor ® - Bradenton, Florida
Please direct all website problems to Insight Resources, Inc.