%@LANGUAGE="VBSCRIPT"%> <% Dim strSalesmail strSalesmail = "mailto:sales@w2tyres.co.uk?Subject=Sales%20enquiry&Body=Thank%20you%20for%20viewing%20the%20W2%20tyre%20website.%0D%0AFor%20sales%20information%20please%20include%20the%20following%3A-%0D%0A%0D%0A1.%20Width%0D%0A2.%20Profile%0D%0A3.%20Wheel%0D%0A4.%20Speed%0D%0A5.%20Make%20and%20year%20of%20car%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0AMany%20thanks%20W2%20the%20tyre%20sales%20team.%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%0D%0A" %> <% Dim strInfomail strInfomail ="mailto:info@w2tyres.co.uk?Subject=General%20information&Body=Thank%20you%20for%20viewing%20the%20W2%20tyre%20website.%0D%0AFor%20information%20please%20include%20the%20following%3A-%0D%0A%0D%0A1.%20Make%20and%20year%20of%20car%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0AMany%20thanks%20W2%20tyre%20sales%20team.%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20" %> <% Dim strBookmail strBookmail = "mailto:book@w2tyres.co.uk?Subject=Booking%20information&Body=Thank%20you%20for%20viewing%20the%20W2%20tyre%20website.%0D%0AFor%20information%20on%20booking%20a%20fitting%20please%20include%20the%20following%3A-%0D%0A%0D%0A1.%20Make%20and%20year%20of%20car%0D%0A2.%20When%20you%20are%20available%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0AMany%20thanks%20W2%20tyre%20sales%20team.%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20" %> <% Dim strTrademail strTrademail = "mailto:trade@w2tyres.co.uk?Subject=Trade%20enquiry&Body=Thank%20you%20for%20viewing%20the%20W2%20tyre%20website.%0D%0AFor%20sales%20information%20please%20include%20the%20following%3A-%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0A%0D%0AMany%20thanks%20the%20W2%20the%20tyre%20sales%20team.%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%0D%0A" %> <% Dim rsWidth Dim rsWidth_numRows Set rsWidth = Server.CreateObject("ADODB.Recordset") rsWidth.ActiveConnection = MM_w2new_STRING rsWidth.Source = "SELECT * FROM w2tyraa.width ORDER BY width ASC" rsWidth.CursorType = 0 rsWidth.CursorLocation = 2 rsWidth.LockType = 1 rsWidth.Open() rsWidth_numRows = 0 %> <% Dim rsProfile Dim rsProfile_numRows Set rsProfile = Server.CreateObject("ADODB.Recordset") rsProfile.ActiveConnection = MM_w2new_STRING rsProfile.Source = "SELECT * FROM w2tyraa.profile ORDER BY profile ASC" rsProfile.CursorType = 0 rsProfile.CursorLocation = 2 rsProfile.LockType = 1 rsProfile.Open() rsProfile_numRows = 0 %> <% Dim rsWheel Dim rsWheel_numRows Set rsWheel = Server.CreateObject("ADODB.Recordset") rsWheel.ActiveConnection = MM_w2new_STRING rsWheel.Source = "SELECT * FROM w2tyraa.wheel ORDER BY wheel ASC" rsWheel.CursorType = 0 rsWheel.CursorLocation = 2 rsWheel.LockType = 1 rsWheel.Open() rsWheel_numRows = 0 %> <% Dim rsSpeed Dim rsSpeed_numRows Set rsSpeed = Server.CreateObject("ADODB.Recordset") rsSpeed.ActiveConnection = MM_w2new_STRING rsSpeed.Source = "SELECT * FROM w2tyraa.speed ORDER BY speed ASC" rsSpeed.CursorType = 0 rsSpeed.CursorLocation = 2 rsSpeed.LockType = 1 rsSpeed.Open() rsSpeed_numRows = 0 %> <% Dim rsMake Dim rsMake_numRows Set rsMake = Server.CreateObject("ADODB.Recordset") rsMake.ActiveConnection = MM_w2new_STRING rsMake.Source = "SELECT * FROM w2tyraa.logo ORDER BY logo ASC" rsMake.CursorType = 0 rsMake.CursorLocation = 2 rsMake.LockType = 1 rsMake.Open() rsMake_numRows = 0 %>
|
|
| |||||||||||||||
|