<% If Request.Form("title") <> "" Or Request.Form("name") <> "" Or Request.Form("surname") <> "" Or Request.Form("company") <> "" Or Request.Form("position") <> "" Or Request.Form("addr1") <> "" Or Request.Form("addr2") <> "" Or Request.Form("city") <> "" Or Request.Form("state") <> "" Or Request.Form("Zip_Code") <> "" Or Request.Form("Country") <> "" Or Request.Form("phoneA") <> "" Or Request.Form("phoneB") <> "" Or Request.Form("faxA") <> "" Or Request.Form("faxB") <> "" Or Request.Form("email") <> "" Or Request.Form("via") <> "" Or Request.Form("area") <> "" Or Request.Form("message") <> "" Then ' Create the JMail message Object set msg = Server.CreateOBject( "JMail.Message" ) ' Set logging to true to ease any potential debugging ' And set silent to true as we wish to handle our errors ourself msg.Logging = true 'msg.silent = true ' Most mailservers require a valid email address ' for the sender msg.From = "techservice@safemate.com" msg.FromName = "Website" ' Next we have to add some recipients. ' The addRecipients method can be used multiple times. ' Also note how we skip the name the second time, it ' is as you see optional to provide a name. msg.AddRecipient "techservice@safemate.com", "Safemate" 'msg.AddRecipient "mkellock@go-online.com.au", "Safemate" ' The subject of the message msg.Subject = "Safemate website response" ' The body property is both read and write. ' If you want to append text to the body you can ' use JMail.Body = JMail.Body & "Hello world! " ' or you can use JMail.AppendText "Hello World! " ' which in many cases is easier to use. ' ' Note the use of vbCrLf to add linebreaks to our email strMessage = "Title :" & Request.Form("title") & Chr(10) strMessage = strMessage & "Name :" & Request.Form("name") & " " & Request.Form("surname") strMessage = strMessage & "Company :" & Request.Form("company") & Chr(10) strMessage = strMessage & "Position :" & Request.Form("position") & Chr(10) strMessage = strMessage & "Address :" & Request.Form("addr1") & Chr(10) strMessage = strMessage & " " & Request.Form("addr2") & Chr(10) strMessage = strMessage & "City :" & Request.Form("city") & Chr(10) strMessage = strMessage & "State :" & Request.Form("state") & Chr(10) strMessage = strMessage & "Post/Zip code :" & Request.Form("Zip_Code") & Chr(10) strMessage = strMessage & "Country :" & Request.Form("Country") & Chr(10) strMessage = strMessage & "Phone :(" & Request.Form("phoneA") & ") " & Request.Form("phoneB") & Chr(10) strMessage = strMessage & "Fax :(" & Request.Form("faxA") & ") " & Request.Form("faxB") & Chr(10) strMessage = strMessage & "E-Mail :" & Request.Form("email") & Chr(10) strMessage = strMessage & "Contact via :" & Request.Form("via") & Chr(10) strMessage = strMessage & "Interested in :" & Request.Form("area") & Chr(10) strMessage = strMessage & "Message :" & Request.Form("message") & Chr(10) msg.Body = strMessage ' There.. we have now succesfully created our message. ' Now we can either send the message or save it ' as a draft in a Database. ' To save the message you would typicly use the ' Message objects Text property ' to do something like this: ' ' SaveMessageDraft( msg.Text ) ' Note that this function call is only an ' example. The function does not exist by ' default, you have to create it yourself. ' To send the message, you use the Send() ' method, which takes one parameter that ' should be your mailservers address ' ' To capture any errors which might occur, ' we wrap the call in an IF statement msg.Send("mail.safemate.com.au" ) ' And we're done! the message has been sent. End If %> Safemate Antislip - Prevents Costly Slips <% If Request.Form("title") <> "" Or Request.Form("name") <> "" Or Request.Form("surname") <> "" Or Request.Form("company") <> "" Or Request.Form("position") <> "" Or Request.Form("addr1") <> "" Or Request.Form("addr2") <> "" Or Request.Form("city") <> "" Or Request.Form("state") <> "" Or Request.Form("Zip_Code") <> "" Or Request.Form("Country") <> "" Or Request.Form("phoneA") <> "" Or Request.Form("phoneB") <> "" Or Request.Form("faxA") <> "" Or Request.Form("faxB") <> "" Or Request.Form("email") <> "" Or Request.Form("via") <> "" Or Request.Form("area") <> "" Or Request.Form("message") <> "" Then %> <% Else %> <% End If %>
Your Message has been sent to Safemate. We will contact you as soon as possible.

Thank You.

Safemate Customer Service:

Contact Safemate on one of the following numbers for immediate information:

    USA - Texas UK - Scotland Australia - Melbourne
Phone: 281 354 8627 01224 716 283 03 9798 7450

Alternatively use the form or e-mail address below to find out more about Safemate and our products. We will be happy to get back to you with the information you need to make your workplace safer.

techservice@safemate.com

MastercardVisaAmerican Express

First name:
Surname:
Company:
Position:
Address:
Address:
City:
State:
Zip/Post Code:
Country:
Telephone: -
Fax: -
e-mail:
Preferred reply via: E-mail, Fax, Post, Phone.

Safety Kit & CD-ROM		 Information about Safemate products for:

Ladders,
Stairs,
Floors, ramps, and walkways,
Workstations.

The free Safemate CD-ROM. (Windows only.)
The free Safemate introduction video (VHS only.)
The free Safemate Occupational Health & Safety Kit. (Includes VHS video, and samples.)

 
Other information, or details of a safety problem we can help with: