Kufchak Strings

<% SUB sendmail( HTMLBody ) 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.To = "Kufchak Strings eMsg " objCDO.From = "Kufchak Strings eMsg " objCDO.ReplyTo = fromName + " <" + fromEmail + ">" objCDO.Subject = Subject objCDO.HTMLBody = HTMLBody objCDO.Send END SUB fromName = TRIM( Request.Form( "fromName") ) fromEmail = TRIM( Request.Form( "fromEmail") ) Subject = TRIM( Request.Form( "Subject" ) ) eMsg = TRIM( Request.Form( "eMsg") ) HTMLBody = "" HTMLBody = HTMLBody + "" HTMLBody = HTMLBody + "" HTMLBody = HTMLBody + "" HTMLBody = HTMLBody + "" HTMLBody = HTMLBody + "" HTMLBody = HTMLBody + "" HTMLBody = HTMLBody + "" HTMLBody = HTMLBody + "

" HTMLBody = HTMLBody + "
" HTMLBody = HTMLBody + "From:	" HTMLBody = HTMLBody + "" + fromName + "
" HTMLBody = HTMLBody + "Email:	" HTMLBody = HTMLBody + "" + fromEmail + "
" HTMLBody = HTMLBody + "Subject:	" HTMLBody = HTMLBody + "" + Subject + "

" HTMLBody = HTMLBody + "" HTMLBody = HTMLBody + "

" + eMsg + "

" If fromName <> "" THEN sendMail HTMLBody 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing Response.redirect "/contact/conf.shtml" ' Any existing page can be used for the response redirect method END IF %> Kufchak Strings

Contact Information

614-204-8884
216 Sterling Glen Dr · Westerville, OH 43081

So that you receive our personal and exclusive attention, we see customers by appointment at mutually convenient times.

Please feel free to call, or send an eMsg.

Send and eMsg to Kufchak Strings
Your Name
Your Email (for Reply)
Subject
Message
Click Send button only once and wait for confirmation.