Contact us for further information
To discuss our articles or any other aspect of this site
<%
dim cust_name, house_number, address1, address2, city, phone, email, message, full_message
cust_name=request.form("name")
address1=request.form("address1")
address2=request.form("address2")
city=request.form("city")
phone=request.form("phone")
email=Request.Form("email")
message=Request.Form("message")
if email <> "" then
if message = "" then
response.write "
"
Response.Write ""
Response.Write ""
Response.End
end if
%>
You have not provided a message, please use your browser's " back " button and try again.
" response.end end if if cust_name = "" then response.write "You have not provided your name, please use your browser's " back " button and try again.
" %> <% response.End end if full_message="This is a new message from www.cognos-install.co.uk Web Site:" & vbcrlf & vbcrlf full_message=full_message & "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" & vbcrlf & vbcrlf full_message=full_message & "The message text is : " & vbcrlf & vbcrlf & message & vbcrlf & vbcrlf & "From: " & cust_name & vbcrlf full_message=full_message & "Phone Number: " & phone & vbcrlf full_message=full_message & "Address: " & address1 & ", " & address2 & ", " & city & vbcrlf & vbcrlf full_message=full_message & "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" & vbcrlf & vbcrlf full_message=full_message & "End of message" Dim objMail Set objMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") 'Configuration: objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort objConfig.Fields(cdoSMTPServer)="auth.smtp.1and1.co.uk" objConfig.Fields(cdoSMTPServerPort)=25 objConfig.Fields(cdoSMTPAuthenticate)=cdoBasic objConfig.Fields(cdoSendUserName) = "m40576314-13" objConfig.Fields(cdoSendPassword) = "fucknuts" 'Update configuration objConfig.Fields.Update Set objMail.Configuration = objConfig objMail.From = email objMail.To = "info@frea-consulting.co.uk" objMail.Subject ="www.cognos-install.co.uk Contact Page Responder" objMail.TextBody=full_message objMail.Send Response.Write "Message Sent Successfully!
" Response.Write "A summary of your message is shown below: -
" Response.Write ""
Response.Write "Message From: " & cust_name & "
"
Response.Write "email: " & email & "
"
Response.Write "Phone: " & phone & "
"
Response.Write "Message: " & message & "
What happens next:
" Response.Write "We will endeavour to contact you shortly to discuss your message, thank you for contacting www.cognos-install.co.uk
" Response.Write "This site is provided with the aim of offering information that may be helpful to professionals responsible for the support of IBM Cognos software environments, you should always seek advice from your IBM Cognos support provider for any queries you may have.
If you would like to ask any questions relating to the content of this site please use the following form and we will endeavor to get back to you as soon as possible.