<%@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 = "thank_you_request.htm" RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@./" RG_formName = "CadAudit" RG_MailParameter = "3@@@_@@@_@@@10.0.1.113@@@_@@@_@@@25@@@_@@@_@@@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@webserver@@@_@@@_@@@webserver@cati.com@@@_@@@_@@@webserver@@@_@@@_@@@webserver@cati.com@@@_@@@_@@@CATI@@@_@@@_@@@cati@cati.com@@@_@@@_@@@ @@@_@@@_@@@christinew@cati.com@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@CAD Audit Form@@@_@@@_@@@0@@@_@@@_@@@1@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@-1@@@_@@@_@@@us-ascii;20127@@@_@@@_@@@" RG_BodyText = "CAD Audit RequestmyErremyCrLf
myErremyCrLf--------------myErremyCrLf
myErremyCrLfWhat formats do you exchange with your suppliers? myErremyCrLf
myErremyCrLf
myErremyCrLf... DWG = #format_dwg#myErremyCrLf
myErremyCrLf... DXF = #format_dxf#myErremyCrLf
myErremyCrLf... eDrawings = #format_edrawings#myErremyCrLf
myErremyCrLf... IGES = #format_iges#myErremyCrLf
myErremyCrLf... PDF = #format_pdf#myErremyCrLf
myErremyCrLf... STEP = #format_step#myErremyCrLf
myErremyCrLf... Other = #format_other#myErremyCrLf
myErremyCrLf
myErremyCrLfHow are you exchanging data?myErremyCrLf
myErremyCrLf... Email = #exchange_email#myErremyCrLf
myErremyCrLf... Mail = #exchange_mail#myErremyCrLf
myErremyCrLf... Web Based = #exchange_webbased#myErremyCrLf
myErremyCrLf... Other = #exchange_other#myErremyCrLf
myErremyCrLf
myErremyCrLfCONTACT INFO:myErremyCrLf
myErremyCrLfName: #FirstName# #LastName#myErremyCrLf
myErremyCrLfTitle = #Title#myErremyCrLf
myErremyCrLfEmail = #Email#myErremyCrLf
myErremyCrLfPhone = #Phone#myErremyCrLf
myErremyCrLfFax = #Fax#myErremyCrLf
myErremyCrLfCompany = #Company#myErremyCrLf
myErremyCrLfAddress = #Address#myErremyCrLf
myErremyCrLfCity, State, Zip = #City#, #State# #Zip#myErremyCrLf
myErremyCrLf
myErremyCrLf--------------myErremyCrLfmyErremyCrLf" BodyFromFile = "" UploadType = "AdvancedMail" ImagesList = "" FilesList = "" RG_Connection = MM_Void_STRING ReplaceList = "#Address#;Address@_form_@|#City#;City@_form_@|#Company#;Company@_form_@|#Email#;Email@_form_@|#exchange_email#;exchange_email@_form_@|#exchange_mail#;exchange_mail@_form_@|#exchange_other#;exchange_other@_form_@|#exchange_webbased#;exchange_webbased@_form_@|#Fax#;Fax@_form_@|#FirstName#;FirstName@_form_@|#format_dwg#;format_dwg@_form_@|#format_dxf#;format_dxf@_form_@|#format_edrawings#;format_edrawings@_form_@|#format_iges#;format_iges@_form_@|#format_other#;format_other@_form_@|#format_pdf#;format_pdf@_form_@|#format_step#;format_step@_form_@|#LastName#;LastName@_form_@|#Phone#;Phone@_form_@|#State#;State@_form_@|#Title#;Title@_form_@|#Zip#;Zip@_form_@|#Address#;Address@_form_@|#City#;City@_form_@|#Company#;Company@_form_@|#Email#;Email@_form_@|#exchange_email#;exchange_email@_form_@|#exchange_mail#;exchange_mail@_form_@|#exchange_other#;exchange_other@_form_@|#exchange_webbased#;exchange_webbased@_form_@|#Fax#;Fax@_form_@|#FirstName#;FirstName@_form_@|#format_dwg#;format_dwg@_form_@|#format_dxf#;format_dxf@_form_@|#format_edrawings#;format_edrawings@_form_@|#format_iges#;format_iges@_form_@|#format_other#;format_other@_form_@|#format_pdf#;format_pdf@_form_@|#format_step#;format_step@_form_@|#LastName#;LastName@_form_@|#Phone#;Phone@_form_@|#State#;State@_form_@|#Title#;Title@_form_@|#Zip#;Zip@_form_@|#Address#;Address@_form_@|#City#;City@_form_@|#Company#;Company@_form_@|#Email#;Email@_form_@|#exchange_email#;exchange_email@_form_@|#exchange_mail#;exchange_mail@_form_@|#exchange_other#;exchange_other@_form_@|#exchange_webbased#;exchange_webbased@_form_@|#Fax#;Fax@_form_@|#FirstName#;FirstName@_form_@|#format_dwg#;format_dwg@_form_@|#format_dxf#;format_dxf@_form_@|#format_edrawings#;format_edrawings@_form_@|#format_iges#;format_iges@_form_@|#format_other#;format_other@_form_@|#format_pdf#;format_pdf@_form_@|#format_step#;format_step@_form_@|#LastName#;LastName@_form_@|#Phone#;Phone@_form_@|#State#;State@_form_@|#Title#;Title@_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") = "CadAudit" 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.
SolidWorks 3D mechanical CAD (computer aided design) software reseller
spacer
spacer cati store Support Login
    First Time User? Register Here
    Learn More
SolidWorks 3D mechanical CAD (computer aided design) software reseller
Products Events Support & Services Customer Successes Training Company

New Streaming Video

View this important video on packaging up assemblies or drawings for transfer to a customer or technical support.  Also, how you can send a file to the CATI FTP site. 

Click to view video

Please note: To view this video, it is necessary to have Windows Media Player™.

 

 
© 2008 Computer Aided Technology Inc. | Privacy Policy | Site Map | Contact Us - 888-308-2284