CATI - Computer Aided Technology, Inc. Customers

<%@LANGUAGE="VBSCRIPT"%> <% '***************************************** '* * '* ADVANCED MAIL * '* if remove this comment Dreamveaver * '* don't recognize the behavior * '* * '***************************************** server.ScriptTimeout = 5400 response.buffer = false 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 OnLoadStart = "0" if OnLoadStart = "0" then Set Form = New ASPForm UploadID = Form.NewUploadID end if ProgressBar = "" ProgressMail = "" editRedirectUrl = "index.htm" RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@./" RG_formName = "ReferralForm" RG_MailParameter = "3@@@_@@@_@@@192.168.0.7@@@_@@@_@@@25@@@_@@@_@@@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@webserver@@@_@@@_@@@webserver@cati.com@@@_@@@_@@@webserver@@@_@@@_@@@webserver@cati.com@@@_@@@_@@@CATI@@@_@@@_@@@terik@callsts.com@@@_@@@_@@@ @@@_@@@_@@@christinew@cati.com@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@Referral Program - STS@@@_@@@_@@@0@@@_@@@_@@@1@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@-1@@@_@@@_@@@us-ascii;20127@@@_@@@_@@@" RG_BodyText = "STS ReferralmyErremyCrLf
myErremyCrLf------------------------myErremyCrLf
myErremyCrLfYour Information:myErremyCrLf
myErremyCrLf Name = #YourName#myErremyCrLf
myErremyCrLf Company = #YourCompany#myErremyCrLf
myErremyCrLf Address = #YourAddress#myErremyCrLf
myErremyCrLf City = #YourCity#myErremyCrLf
myErremyCrLf State = #YourState#myErremyCrLf
myErremyCrLf Zip = #YourZip#myErremyCrLf
myErremyCrLf Email = #YourEmail#myErremyCrLf
myErremyCrLf Phone = #YourPhone#myErremyCrLf
myErremyCrLf Fax = #YourFax#myErremyCrLf
myErremyCrLf
myErremyCrLfCATI can use my name when contacting the referral = #UseName#myErremyCrLf
myErremyCrLf
myErremyCrLfCOMPANY REFERRED:myErremyCrLf
myErremyCrLf Name = #ReferralName#myErremyCrLf
myErremyCrLf Company = #ReferralCompany#myErremyCrLf
myErremyCrLf Address = #ReferralAddress#myErremyCrLf
myErremyCrLf City = #ReferralCity#myErremyCrLf
myErremyCrLf State = #ReferralState#myErremyCrLf
myErremyCrLf Zip = #ReferralZip#myErremyCrLf
myErremyCrLf Email = #ReferralEmail#myErremyCrLf
myErremyCrLf Phone = #ReferralPhone#myErremyCrLf
myErremyCrLf Fax = #ReferralFax#myErremyCrLf
myErremyCrLf
myErremyCrLfOTHER COMMENTS = #Other#myErremyCrLf
myErremyCrLf------------------------" BodyFromFile = "" UploadType = "AdvancedMail" ImagesList = "" FilesList = "" RG_Connection = MM_Void_STRING ReplaceList = "#Other#;Other@_form_@|#ReferralAddress#;ReferralAddress@_form_@|#ReferralCity#;ReferralCity@_form_@|#ReferralCompany#;ReferralCompany@_form_@|#ReferralEmail#;ReferralEmail@_form_@|#ReferralFax#;ReferralFax@_form_@|#ReferralName#;ReferralName@_form_@|#ReferralPhone#;ReferralPhone@_form_@|#ReferralState#;ReferralState@_form_@|#ReferralZip#;ReferralZip@_form_@|#UseNameNo#;UseNameNo@_form_@|#UseNameYes#;UseNameYes@_form_@|#YourAddress#;YourAddress@_form_@|#YourCity#;YourCity@_form_@|#YourCompany#;YourCompany@_form_@|#YourEmail#;YourEmail@_form_@|#YourFax#;YourFax@_form_@|#YourName#;YourName@_form_@|#YourPhone#;YourPhone@_form_@|#YourState#;YourState@_form_@|#YourZip#;YourZip@_form_@|#Other#;Other@_form_@|#ReferralAddress#;ReferralAddress@_form_@|#ReferralCity#;ReferralCity@_form_@|#ReferralCompany#;ReferralCompany@_form_@|#ReferralEmail#;ReferralEmail@_form_@|#ReferralFax#;ReferralFax@_form_@|#ReferralName#;ReferralName@_form_@|#ReferralPhone#;ReferralPhone@_form_@|#ReferralState#;ReferralState@_form_@|#ReferralZip#;ReferralZip@_form_@|#UseName#;UseName@_form_@|#YourAddress#;YourAddress@_form_@|#YourCity#;YourCity@_form_@|#YourCompany#;YourCompany@_form_@|#YourEmail#;YourEmail@_form_@|#YourFax#;YourFax@_form_@|#YourName#;YourName@_form_@|#YourPhone#;YourPhone@_form_@|#YourState#;YourState@_form_@|#YourZip#;YourZip@_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") = "ReferralForm" then if Form.State = 0 then if RG_Files <> "" then 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 & "
" End If End If function GetFolderName(str): GetFolderName = Ris : end function %> CATI - Computer Aided Technology, Inc. Customers

- 3DQuickPress

- 3DQuickForm

- 3DQuickForm Professional

- 3DQuickStrip

Case Studies

Testimonials

Referrals

Webinars

Evaluations

Send in Part

Seminars

Webinars