<%@ Language=VBScript %> <% Option Explicit Response.Write("Test 1: Prepend pattern
") Dim testVal, result ' Test prepend pattern with numbers testVal = 272 result = CLng("0" & testVal) Response.Write("CLng(""0"" & 272) = " & result & " (should be 272)
") ' Test prepend pattern with null testVal = Null result = CLng("0" & testVal) Response.Write("CLng(""0"" & Null) = " & result & " (should be 0)
") ' Test append pattern (the bug) testVal = 272 result = CLng(testVal & "0") Response.Write("CLng(272 & ""0"") = " & result & " (bug: gives 2720)
") Response.Write("
Test 2: Database query
") Dim objConn %> <% Dim rs, strSQL strSQL = "SELECT COUNT(*) as totalparts, " & _ "SUM(CASE WHEN ootcount > 0 THEN 1 ELSE 0 END) as partswithoot " & _ "FROM udcparts p " & _ "JOIN udcsessions s ON p.sessionid = s.sessionid " & _ "WHERE p.programstart >= '2025-11-12' AND p.programstart <= '2025-12-12 23:59:59'" Set rs = objConn.Execute(strSQL) If Not rs.EOF Then Dim totalParts, partsWithOOT, ootRate If IsNull(rs("totalparts")) Then totalParts = 0 Else totalParts = CLng(rs("totalparts")) If IsNull(rs("partswithoot")) Then partsWithOOT = 0 Else partsWithOOT = CLng(rs("partswithoot")) If totalParts > 0 Then ootRate = FormatNumber(CDbl(partsWithOOT) / CDbl(totalParts) * 100, 2) Else ootRate = "0" End If Response.Write("Total Parts: " & totalParts & "
") Response.Write("Parts with OOT: " & partsWithOOT & "
") Response.Write("OOT Rate: " & ootRate & "%
") End If rs.Close Set rs = Nothing objConn.Close Response.Write("
Test Complete") %>