<%@ LANGUAGE = JScript %> Bayway Hire - The equipment you need <% // Create the database link. //var connString = "Provider=MSDASQL;DSN=baywayhire"; //var connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\Websites\\baywayhire\\Data;Extended Properties=dBASE IV;User ID=Admin;Password="; //var connString = "Provider=vfpoledb.1;Data Source=baywayhire\Data\;Collating Sequence=general;"; //var connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\CustomerData\webspaces\webspace_00136950\wwwroot\Data\Bayway.mdb;Persist Security Info=False;"; //var baywayData = Server.CreateObject("ADODB.Connection"); set cnn = server.createobject("ADODB.Connection") cnn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=E:\CustomerData\webspaces\webspace_00136950\wwwroot\Data\Bayway.mdb" // Here are the queries for the groups and the individual piece of equipment. var sqlGroup = "SELECT DISTINCT grpname FROM groups ORDER BY grpname"; //var sqlAlpha = "SELECT DISTINCT LEFT(eqname, 1) AS alpha FROM eqnames ORDER BY alpha"; var sqlAlpha = "SELECT DISTINCT Left(eqname, 1) AS alpha FROM eqnames ORDER BY 1"; var rsGroups = Server.CreateObject("ADODB.RecordSet"); var rsAlpha = Server.CreateObject("ADODB.RecordSet"); baywayData.Open(connString); // Create the database connection. rsGroups.Open(sqlGroup, baywayData); // Get the list of groups. rsAlpha.Open(sqlAlpha, baywayData); // Get first letters of equipment name. %>
 
Equipment Page
<% while (!rsAlpha.EOF) { %> <% rsAlpha.MoveNext; } %>

 

<% } %>
<% // OK. This is where we need to display different things depending on what the URL is. var group, alpha; var groupNum = Request.QueryString("group").Count; var alphaNum = Request.QueryString("alpha").Count; var eqnameNum = Request.QueryString("eqname").Count; var group = Request.QueryString("group"); var alpha = Request.QueryString("alpha"); var eqname = Request.QueryString("eqname"); if (alphaNum == 0 && groupNum == 0 && eqnameNum == 0) { // Display the introductory page. %>

Search the groups on the left, or the alphabet above to explore the world of equipment we have right now.

Our equipment is always bought brand new and is fully maintained, safety checked and tagged before each hire.

Equipment recently added includes - Turf cutter, giraffe plaster sander,carpet dryers, Duo Fast and Paslode nail guns (ideal for decking),bruchcutters and water filled spiked rollers just to name a few.

Please contact us about any unlisted equipment.

 

<% } else if (alphaNum != 0) { // Alpha page. Display all equipment starting with that letter. var rsAlpha = Server.CreateObject("ADODB.RecordSet"); var sqlCommand = "SELECT eqname, eqid FROM eqnames WHERE LEFT(eqname,1) = '" + alpha + "' ORDER BY eqname"; rsAlpha.Open(sqlCommand, baywayData); while (!rsAlpha.EOF) { %>

"><%= rsAlpha.Fields("eqname").Value %>

<% rsAlpha.MoveNext; } } else if (groupNum != 0) { // Equipment group page. Display all equipment items from that group. var rsEqList = Server.CreateObject("ADODB.RecordSet"); var sqlCommand = "SELECT eqnames.eqname, eqid FROM eqnames INNER JOIN groups ON eqnames.eqid = groups.eqname WHERE grpname = '" + group + "' ORDER BY 1"; rsEqList.Open(sqlCommand, baywayData); while (!rsEqList.EOF) { %>

"><%= rsEqList.Fields("eqname").Value %>

<% rsEqList.MoveNext; } } else if (eqnameNum != 0) { // Actual equipment page. Display the actual equipment. var rsEquip = Server.CreateObject("ADODB.RecordSet"); var sqlCommand = "SELECT * from equipment WHERE name = '" + eqname + "'"; rsEquip.Open(sqlCommand, baywayData); %>

<%= rsEquip.Fields("name").Value %>

" >

Specifications

<%= rsEquip.Fields("specs").Value %>

<% // Display the appropriate icon for the fuel type. if (rsEquip.Fields("fl_elec").Value) // Electricity. Response.Write(""); if (rsEquip.Fields("fl_petrol").Value) // Petrol. Response.Write(""); %>

<%= rsEquip.Fields("fl_notes").Value %>

Transport requirements

<% // Display the appropriate transport icons. if (rsEquip.Fields("tr_sedan").Value) // Sedan. Response.Write(''); if (rsEquip.Fields("tr_towball").Value) // towball. Response.Write(''); if (rsEquip.Fields("tr_trailer").Value) //trailer. Response.Write(''); if (rsEquip.Fields("tr_ute").Value) // ute. Response.Write(''); if (rsEquip.Fields("tr_wagon").Value) // wagon. Response.Write(''); %>

<%= rsEquip.Fields("tr_notes").Value %>

Uses

<%= rsEquip.Fields("use").Value %>

Operating instructions

<%= rsEquip.Fields("opinstr").Value %>

Recommended safety gear

<% // Display safety gear icons. if (rsEquip.Fields("sg_earmuff").Value) // ear muffs. Response.Write(''); if (rsEquip.Fields("sg_gloves").Value) // gloves. Response.Write(''); if (rsEquip.Fields("sg_goggles").Value) //goggles. Response.Write(''); if (rsEquip.Fields("sg_hat").Value) //hat. Response.Write(''); if (rsEquip.Fields("sg_mask").Value) //mask. Response.Write(''); %>

<%= rsEquip.Fields("sg_notes").Value %>