<% Session.Timeout = 20 Sub sendmail( eMail, recipient, subject, strMessageBody) Dim objCDO Dim iConf Dim Flds Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf objCDO.From = eMail objCDO.To = recipient objCDO.Subject = subject objCDO.TextBody = strMessageBody objCDO.Send End Sub thisScript = Request.ServerVariables("SCRIPT_NAME") recipient = TRIM( Request.Form( "recipient") ) subject = TRIM( Request.Form( "subject" ) ) redirectUrl = TRIM( Request.Form( "redirectUrl") ) Session("eMail") = TRIM( Request.Form( "eMail") ) Session("companyName") = TRIM( Request.Form( "CompanyName") ) Session("Name") = TRIM( Request.Form( "Name") ) Session("position") = TRIM( Request.Form( "Position") ) Session("address1") = TRIM( Request.Form( "Address1") ) Session("address2") = TRIM( Request.Form( "Address2") ) Session("city") = TRIM( Request.Form( "City") ) Session("state") = TRIM( Request.Form( "State") ) Session("zip") = TRIM( Request.Form( "Zip") ) Session("country") = TRIM( Request.Form( "country") ) Session("phoneAreaCode") = TRIM( Request.Form( "phoneAreaCode") ) Session("Phone") = TRIM( Request.Form( "Phone") ) Session("faxAreaCode") = TRIM( Request.Form( "faxAreaCode") ) Session("fax") = TRIM( Request.Form( "Fax") ) Session("comments") = TRIM( Request.Form( "Comments") ) strMessageBody = "Company Name: " & Session("companyName") & vbCRLF & _ "Name: " & Session("Name") & vbCRLF & _ "Position: " & Session("position") & vbCRLF & _ "Address1: " & Session("address1") & vbCRLF & _ "Address2: " & Session("address2") & vbCRLF & _ "City: " & Session("city") & vbCRLF & _ "State: " & Session("state") & vbCRLF & _ "Zip: " & Session("zip") & vbCRLF & _ "Country: " & Session("country") & vbCRLF & _ "Phone: " & Session("phoneAreaCode") & "-" & Session("phone") & vbCRLF & _ "Fax: " & Session("faxAreaCode") & "-" & Session("fax") & vbCRLF & _ "Email: " & Session("eMail") & vbCRLF & _ "Comments: " & Session("comments") & vbCRLF If ((Session("companyName") <> "") and (Session("name") <> "") and _ (Session("phone") <> "") and (Session("email") <> "")) Then sendMail Session ("eMail"), recipient, subject, strMessageBody 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing Response.redirect redirectUrl End If %> MCInternational Fabric Product Design

MCInternational, Inc.
            E x p a n d i n g   C h o i c e s
Home About MCInternational, Inc. Fabric Product Design Production Inquiries / Contact Us

Inquiries

If you are interested in obtaining more information on how MCInternational, Inc. can assist you with your product research and design, pattern making, prototype development and manufacturing needs, please contact us using the inquiry form below or simply contact us using the contact information at the bottom of the page. We will be pleased to provide you more information on our company, our rates or any information you may require making your decision an easy one.

">
COMPANY NAME: ">
YOUR NAME: ">
Position: ">
Address1: ">
Address2: ">
City: ">
State: ">
Zip Code: ">
Country: ">
PHONE: ">">
Fax: ">">
EMAIL: ">
Comments:
BOLD fields are required.


MCInternational, Inc. Expanding Choices
399 Chinook Trail Gunnison, CO 81230
Phone: 970-641-3312 Fax: 970-641-3321
Website: www.mcibags.com
Email:choices@mcibags.com

Fabric Products and Bags Made in the USA