..:: Fahrenheit.com :: Contact Us ::..

<% SUB sendmail( fromWho, toWho, Subject, Body ) 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 = fromWho objCDO.To = toWho objCDO.Subject = Subject objCDO.TextBody = Body objCDO.Send END SUB fromWho = TRIM( Request.Form( "fromWho") ) toWho = TRIM( Request.Form( "toWho") ) Subject = TRIM( Request.Form( "Subject" ) ) Body = TRIM( Request.Form( "Body") ) & Chr(13) & Chr(10) & TRIM( Request.Form( "fromWho") ) If toWho <> "" THEN sendMail fromWho, toWho, Subject, Body 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing Response.redirect "confirm.asp" END IF %> ..:: Fahrenheit.com :: Contact Us ::..

WELCOME TO
FAHRENHEIT
Address:
2417 Professor Ave.
Cleveland, OH 44113
Phone:
216.781.8858
Hours:
Mon.-Thurs.: 5pm-11pm
Fri.-Sat.: 5pm-1am
Sun.: Closed
Reservations
Recommended
Valet Parking Available
Wheelchair Accessible
All Major Credit Cards Accepted

Sign Up for the Fahrenheit eMail List

If you'd like to receive that latest news and info about everything that's going on at Fahrenheit including events, promotions, new menus and the like, sign up below and we'll keep informed. And don't worry, we won't be sending you email every day and we most certainly won't share your address or other information with anyone else!

Join Our Mailing List

For Email Marketing you can trust