<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsGetBoltID Dim rsGetBoltID_numRows Set rsGetBoltID = Server.CreateObject("ADODB.Recordset") rsGetBoltID.ActiveConnection = MM_rsGetTorque_STRING rsGetBoltID.Source = "SELECT * FROM ShankArea ORDER BY ID ASC" rsGetBoltID.CursorType = 0 rsGetBoltID.CursorLocation = 2 rsGetBoltID.LockType = 1 rsGetBoltID.Open() rsGetBoltID_numRows = 0 %> <% Dim rsGetShank__MMColParam rsGetShank__MMColParam = "1" If (Request("BoltID") <> "") Then rsGetShank__MMColParam = Request("BoltID") End If %> <% If Request("BoltID") <> "" Then %> <% Dim rsGetShank Dim rsGetShank_numRows Set rsGetShank = Server.CreateObject("ADODB.Recordset") rsGetShank.ActiveConnection = MM_rsGetTorque_STRING rsGetShank.Source = "SELECT * FROM ShankArea WHERE ID = " + Replace(rsGetShank__MMColParam, "'", "''") + "" rsGetShank.CursorType = 0 rsGetShank.CursorLocation = 2 rsGetShank.LockType = 1 rsGetShank.Open() rsGetShank_numRows = 0 %> <% Dim varGrade varGrade = 0 %> <% 'Set Grade Value for Grade 8 If Request("Grade") = 8 Then %> <%varGrade = 130000 %> <% End If %> <% 'Set Grade Value for Grade 5 If Request("Grade") = 5 Then %> <%varGrade = 92000 %> <% End If %> <% Dim varTLubed, varTUnlubed, varK, varD, varP, varLubed, varUnlubed varTLubed = 0 varTUnLubed = 0 varK = 1.33 varD = rsGetShank.Fields.Item("Decimal").Value varP = 0 varLubed = .09 varUnlubed = .20 varTLubed = Int((varK * varLubed * varD * (varGrade * rsGetShank.Fields.Item("Shank").Value) * .67)/12) varTUnLubed = Int((varK * varUnLubed * varD * (varGrade * rsGetShank.Fields.Item("Shank").Value) * .67)/12) %> <% End If %> ROCKCRAWLER.com - Fastener Tech - Calculating Torque Specs
ROCKCRAWLER.com
Fastener
Tech Torque Spec Calculator
By David Potter

 

<% If Request("BoltID") <> "" Then %> <% End If %>
Torque Spec Calculator
To use the Torque Spec Calculator, simply choose your bolt size and Grade 8 or Grade 5. Then hit the Submit Button.
Select Bolt Size (inch)
Select Bolt Grade Grade 8    Grade 5
TORQUE SPECS

Bolt Size = <%=(rsGetShank.Fields.Item("Size").Value)%> inch
Bolt Grade = <%=Request("Grade")%>
Unlubed = <%=varTUnLubed%>  ft-lb
Lubed = <%=varTLubed%> ft-lb



Notes:
Unlubed Coefficient of Friction = .20
Lubed Coefficient of Friction = .09

Disclaimer: Though we have taken steps to ensure accuracy of this calculator, please always check with the appropriate manufacturer(s) before choosing the torque level for your project. Rockcrawler.com will not be held responsible for errors. This calculator is for informational use only.

Help spread the ROCKCRAWLER world!           Share on Facebook



©1997-2015 ROCKCRAWLER 4x4 and Off-Road Magazine. All Rights Reserved.

RockCrawler.com   -   IH8MUD.com



<% rsGetBoltID.Close() Set rsGetBoltID = Nothing %> <% If Request("BoltID") <> "" Then %> <% rsGetShank.Close() Set rsGetShank = Nothing %> <% End If %>