<%@language = vbscript%> <% Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iConf Set iConf = CreateObject("CDO.Configuration") Dim Flds if not isempty(request.form("cmdsubmit")) then Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" Flds.Update strBody = "An enquiry from your website" & chr(10) & chr(13) & chr(10) & chr(13) strBody = strBody & "Name: " & request.form("txtname") & chr(10) & chr(13) strBody = strBody & "Email add: " & request.form("txtemail") & chr(10) & chr(13) strBody = strBody & "Tel No: " & request.form("telno") & chr(10) & chr(13) strBody = strBody & "Enquiry: " & request.form("txtenquiry") & chr(10) & chr(13) Set iMsg.Configuration = iConf iMsg.To = "claudio@netsolutionswales.co.uk" iMsg.From = request.form("txtemail") iMsg.Subject = "Website enquiry" iMsg.TextBody = strBody iMsg.Send 'strBody = "An enquiry from your website" & chr(10) & chr(13) & chr(10) & chr(13) 'strBody = strBody & "Name: " & request.form("txtname") & chr(10) & chr(13) 'strBody = strBody & "Email add: " & request.form("txtemail") & chr(10) & chr(13) 'strBody = strBody & "Tel No: " & request.form("txttelnoenq") & chr(10) & chr(13) 'strBody = strBody & "Enquiry: " & request.form("txtenquiry") & chr(10) & chr(13) 'Dim myCDONTSMail 'Dim strFrom 'Dim strTo 'Dim strSubject 'Dim strMessage 'Dim lngImportance 'strFrom = request.form("txtemail") 'strTo = "claudio@netsolutionswales.co.uk" 'strSubject = "An enquiry from your website" ' Set myCDONTSMail = CreateObject("CDONTS.NewMail") ' myCDONTSMail.Send strFrom,strTo,strSubject,strBody ' Set myCDONTSMail = Nothing varsentmsg = "Your enquiry has been sent. We will contact you shortly" end if if not isempty(request.form("cmdsubmit2")) then Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" Flds.Update strBody = "A user has requested a call back" & chr(10) & chr(13) & chr(10) & chr(13) strBody = strBody & "Name: " & request.form("txtcallname") & chr(10) & chr(13) strBody = strBody & "Daytime Tel No: " & request.form("Daytelno") Set iMsg.Configuration = iConf iMsg.To = "claudio@netsolutionswales.co.uk" iMsg.From = "claudio@netsolutionswales.co.uk" iMsg.Subject = "A user has requested a call back using CDOSYS" iMsg.TextBody = strBody iMsg.Send 'Dim myCDONTSMail2 'Dim strFrom2 'Dim strTo2 'Dim strSubject2 'Dim strMessage2 'Dim lngImportance2 'strFrom2 = "http://www.netsolutionswales.co.uk" 'strTo2 = "claudio@netsolutionswales.co.uk" 'strSubject2 = "A user has requested a call back" 'Set myCDONTSMail2 = CreateObject("CDONTS.NewMail") 'myCDONTSMail2.Send strFrom2,strTo2,strSubject2,strBody 'Set myCDONTSMail2 = Nothing varsentmsg = "Thank you for requesting a call-back. We will call you shortly on the number you have submitted" end if %> NET Solutions Wales: web design, e-commerce, web hosting: Contact Us


Hardware
Software
Consultancy

CONTACT US
<%=varsentmsg%>

Enquiry
Name:
Email address:
Tel No:
Enquiry:
 


 

© Net Solutions Wales - claudio@netsolutionswales.co.uk
Net Solutions Wales. A professional, affordable Welsh web design company specialising in search engine friendly web design. Also offers web design, promotion, web hosting, search engine optimisation, e-commerce, IT services and web design management services at great rates website hosts, web hosting, internet providers, web design, web templates, e-commerce, ecommerce, online selling marketing, merchant account website design, web site development, hosting, shopping cart software, server, internet business solutions, credit card services, ecommerse, ecomerce, website designers, cheap computers, uk, wales, cardiff, barry, software designers, web designers, shopping basket software, ecommerce services uk, software consultants, IT consultants, e-commerce consultants