<% SortOn = Request.QueryString("SortOn") SortType = Request.QueryString("SortType") %> Tsititanium, specialist in titanium using in house processing for all of your unique titanium needs.
crntinvy.gif
Click column headers to sort by column

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=TechSpec;UID=techspec1;PWD=G785tx;" SQLStatement = "SELECT * FROM Stock ORDER BY " If SortOn = "StockNum" Then SQLStatement = SQLStatement + "StockNum " ElseIf SortOn = "Size" Then SQLStatement = SQLStatement + "Size " ElseIf SortOn = "Weight" Then SQLStatement = SQLStatement + "Weight " Else SQLStatement = SQLStatement + "Grade " End If If SortType = "D" Then SQLStatement = SQLStatement + "DESC" End If Set oRs = Conn.Execute(SQLStatement) Do While Not oRs.EOF Response.Write "" + CHR(13) Response.Write "" & CHR(13) Response.Write "" & CHR(13) Response.Write "" & CHR(13) Response.Write "" & CHR(13) Response.Write "" & CHR(13) Response.Write "" + CHR(13) oRs.MoveNext Loop Conn.Close Set oRs = Nothing Set Conn = Nothing %>
">Stock No. ">Grade ">Size ">Weight Specifications
" Response.Write oRs.Fields("StockNum") & "" Response.Write oRs.Fields("Grade") & "" Response.Write oRs.Fields("Size") & "" Response.Write oRs.Fields("Weight") & " lbs." Response.Write oRs.Fields("Specifications") & "

cibttn.gif 

cibttn.gif 

cibttn.gif 
[Home] [Rolling & Forging] [Form] [Inventory]
smltilgo.gif

TECHSPEC INC.
P.O. Box 69, Y Street
Derry, PA 15627
Phone: 724/694-2716
Fax: 724/694-5305
E mail:
info@tsititanium.com
Picture