%@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 - claudio@netsolutionswales.co.uk |
||