<%@ Language=VBScript %>

# Switch Query Test

<% On Error Resume Next Dim switchid, rs, switchname, modelid, serialnumber, ipaddress, description, maptop, mapleft, isactive, vendorname, modelnumber switchid = 5411 Dim strSQL strSQL = "SELECT mac.machineid, mac.alias AS switchname, mac.modelnumberid AS modelid, " & _ "mac.serialnumber, mac.machinenotes AS description, mac.maptop, mac.mapleft, mac.isactive, " & _ "m.modelnumber, v.vendor, c.address AS ipaddress " & _ "FROM machines mac " & _ "LEFT JOIN models m ON mac.modelnumberid = m.modelnumberid " & _ "LEFT JOIN vendors v ON m.vendorid = v.vendorid " & _ "LEFT JOIN communications c ON mac.machineid = c.machineid AND c.isprimary = 1 AND c.comstypeid = 1 " & _ "WHERE mac.machineid = " & switchid & " AND mac.machinetypeid = 31" Set rs = objConn.Execute(strSQL) If Err.Number <> 0 Then Response.Write("

Query ERROR: " & Server.HTMLEncode(Err.Description) & "

") ElseIf rs.EOF Then Response.Write("

Switch not found

") Else ' Apply NULL handling If Not IsNull(rs("switchname")) Then switchname = rs("switchname") Else switchname = "" If Not IsNull(rs("modelid")) Then modelid = rs("modelid") Else modelid = "" If Not IsNull(rs("serialnumber")) Then serialnumber = rs("serialnumber") Else serialnumber = "" If Not IsNull(rs("ipaddress")) Then ipaddress = rs("ipaddress") Else ipaddress = "" If Not IsNull(rs("description")) Then description = rs("description") Else description = "" If Not IsNull(rs("maptop")) Then maptop = rs("maptop") Else maptop = "" If Not IsNull(rs("mapleft")) Then mapleft = rs("mapleft") Else mapleft = "" If Not IsNull(rs("isactive")) Then isactive = rs("isactive") Else isactive = 1 If Not IsNull(rs("vendor")) Then vendorname = rs("vendor") Else vendorname = "" If Not IsNull(rs("modelnumber")) Then modelnumber = rs("modelnumber") Else modelnumber = "" Response.Write("

SUCCESS! Data loaded:

") Response.Write("

") Response.Write("
- Name: " & Server.HTMLEncode(switchname) & "
") Response.Write("
- Model ID: " & Server.HTMLEncode(modelid) & "
") Response.Write("
- Serial: " & Server.HTMLEncode(serialnumber) & "
") Response.Write("
- IP: " & Server.HTMLEncode(ipaddress) & "
") Response.Write("
- Description: " & Server.HTMLEncode(description) & "
") Response.Write("
- Map Top: " & Server.HTMLEncode(maptop) & "
") Response.Write("
- Map Left: " & Server.HTMLEncode(mapleft) & "
") Response.Write("
- Active: " & Server.HTMLEncode(isactive) & "
") Response.Write("
- Vendor: " & Server.HTMLEncode(vendorname) & "
") Response.Write("
- Model: " & Server.HTMLEncode(modelnumber) & "
") Response.Write("

") End If rs.Close Set rs = Nothing objConn.Close %>