%@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
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. |
|
|
<%
rsGetBoltID.Close()
Set rsGetBoltID = Nothing
%>
<% If Request("BoltID") <> "" Then %>
<%
rsGetShank.Close()
Set rsGetShank = Nothing
%>
<% End If %>