<%@ LANGUAGE="VBSCRIPT" %> <% Sub ShowForm()%>

<% = msg %>

Please don't hesitate to aks questions, we promise you won't be sold to, nor will you be pursued with spam.

First Name <%=Request("ContactFirstName")%>" size="31" maxlength="35">
Last Name: <%=Request("ContactLastName")%>" size="31" maxlength="35">
Company: <%=Request("company")%>" size="31" maxlength="35">
City: <%=Request("town")%>" size="31" maxlength="35">
Email Address: <%=Request("mail")%>" size="55">
Phone: <%=Request("phone")%>" size="15">
Prefered contact method: <%=Request("preferred")%>" size="35">
How can we we help?:


It is our policy that personal details will not be revealed to any other parties for the purpose of unsolicited mailing.

<%End Sub msg = "" mode= Left(UCase(Request.form ("mode")), 5) '*********************************************End of scrippts************************************************** ' -------------------------------------------- RUNTIME--------------------------------------------------------- %> Fusion :: Contact us
FusionPeople - Progress - Technology
Homewoman understanding

Contact us

<% If mode= "SECUR" Then 'form has been submitted If Validate Then If CheckEmail(request("mail")) Then SetSession senderEmail = "enquiries@system-fusion.co.uk" subject = "Website download" recipient = "ed@system-fusion.co.uk" body = "Enquiry:"&vbCrLf & "Name: "& Session("name") & vbCrLf body = body & "Town: "& Session("town") & vbCrLf body = body & "Country: "& Session("country") & vbCrLf body = body & "Downloaded:" & session("download") & vbCrLf body = body & "email:" & session("mail") & vbCrLf body = body & "phone:" & session("phone") & vbCrLf body = body & "Message:" & cleanup(session("Message")) & vbCrLf strReferer = request.servervariables("HTTP_REFERER") strServer = Replace(request.servervariables("SERVER_NAME"),"www.","") strSMTPServer = "smtp." & strServer 'response.write body 'response.end ' check referer intComp = inStr(strReferer, strServer) If intComp > 0 Then blnSpam = False Else ' Spam Attempt Block blnSpam = True End If ' Create the JMail message Object on error resume next set oMsg = Server.CreateOBject( "JMail.Message" ) ' Set logging to true to ease any potential debugging ' And set silent to true in case you wish to handle the errors yourself oMsg.Logging = true oMsg.silent = true ' Enter the sender data omsg.From = senderEmail oMsg.AddRecipient recipient ' The subject of the message oMsg.Subject = subject ' And the body oMsg.body = body ' Now send the message, using the indicated mailserver on error resume next xx= oMsg.Send(strSMTPServer ) ' Clear the object set oMsg = nothing ' now return to the referring page response.cookies("registered")=1 response.cookies("name")=session("name") response.cookies("email")=session("email") ClearSession 'response.redirect(strReferer&"?registered=1") %>

 

Thank you for your communication, someone will respond to you very soon.

 

<% Else %>

 

For a free informal discussion about your potential requirements email
call 0844 8844713 or complete the email form below <% ShowForm End If Else %>

 

For a free informal discussion about your potential requirements email
call 0844 8844713 or complete the email form below <% ShowForm End If Else %>

 

For a free informal discussion about your potential requirements email
call 0844 8844713 or complete the email form below <% ShowForm End If %>