<% 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) = "213.171.216.21" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf objCDO.From = fromWho objCDO.To = toWho objCDO.Subject = Subject objCDO.Text = fone objCDO.TextBody = Body objCDO.Send END SUB fromWho = TRIM( Request.Form( "fromWho") ) toWho = TRIM( Request.Form( "toWho") ) Subject = TRIM( Request.Form( "Subject" ) ) fone = TRIM( Request.Form( "fone" ) ) Body = TRIM( Request.Form( "Body") ) IF toWho <> "" THEN sendMail fromWho, toWho, Subject, Body 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing END IF %> Oldpanels UK Contacts
Welcome To Old Panels
Ford SparesFiat SparesDatsun SparesAustin SparesAustin SparesVW Spares  
Old panels UK

We have fixed the form it now works

Please Contact Us By one of the follwing methods

Phone +447980362759

E-mail sales@oldpanels.com

 

">

Email Us
Name: so we know who to ask for
Subject: so we know what you want
Phone so we can call you
Parts That you Require As much detail as possible
Home | About | News | Search | Contact