<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim AdvMailUpload AdvMailUpload = "yes" 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" ProgressBar = "" ProgressMail = "" editRedirectUrl = "response.htm" RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@./" RG_formName = "form1" RG_MailParameter = "6@@@_@@@_@@@mrelay.perfora.net@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@Name@_form_@@@@_@@@_@@@Email@_form_@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@Frank Islam@@@_@@@_@@@fislam@ffislam.com@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@1@@@_@@@_@@@Contact From Website@@@_@@@_@@@0@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@0@@@_@@@_@@@us-ascii;20127;US-ASCII@@@_@@@_@@@Address@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@post@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@" RG_BodyText = "Dear Frank,myErremyCrLfmyErremyCrLfA visitor to your website has just contacted you with the information below:

myErremyCrLf-------------------------------------------myErremyCrLf

myErremyCrLfName = #Name#myErremyCrLf
myErremyCrLf
myErremyCrLfEmail = #Email#myErremyCrLf
myErremyCrLf
myErremyCrLfAddress = #Address#myErremyCrLf
myErremyCrLf
myErremyCrLfCity = #City#myErremyCrLf
myErremyCrLf
myErremyCrLfState = #State#myErremyCrLf
myErremyCrLf
myErremyCrLfZip = #Zip#myErremyCrLf
myErremyCrLf
myErremyCrLfPhone = #Phone#myErremyCrLf
myErremyCrLf
myErremyCrLfMessage = #Message#myErremyCrLf
myErremyCrLf
myErremyCrLfmyErremyCrLfmyErremyCrLfmyErremyCrLf" BodyFromFile = "" UploadType = "AdvancedMail" ImagesList = "" FilesList = "" RG_Connection = MM_Void_STRING ReplaceList = "#Address#;Address@_form_@|#City#;City@_form_@|#Email#;Email@_form_@|#Message#;Message@_form_@|#Name#;Name@_form_@|#Phone#;Phone@_form_@|#State#;State@_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 (Request.QueryString <> "") Then editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString else editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) End If if request.Form("DW_Form_Name") = "form1" then StrSql = "" verifyUserExists() Set Rs = Server.CreateObject("ADODB.RecordSet") BodyFromDynamicPage = "" IsMailSend = SendMail() Set RS = nothing response.write(getRedirectForMail(IsMailSend)) response.end End If End If %> <% HDWCaptchaValidation %> Interviews of Frank Islam, Frank Islam Investment Group, Frank Islam Interview for TV Asia, Frank Islam Interview for World Business Review, Ernst & Young Entrepreneur Award, Frank Islam
Frank Islam

 

 
   Contact Me

 

 

 

 

 

 

 

 

 

 

 


Name:
Address:
City:
State:
Zip:
Phone:
Email:
Message:
 
security code
Enter Security Code:

<% HDWCaptchaInvalidMessage %>
 
 
 


 
© 2007-2008 Frank Islam ffislam.com