Imports System
Imports System.Data
Imports System.Data.OleDb

Partial Class dkinventory
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        If Request.QueryString("catid") & "" = "" Then
            getCats()
        Else
            getProds()
        End If

    End Sub
    Private Sub getProds()
        Dim oleConn As New OleDb.OleDbConnection
        Dim objComm As OleDbCommand
        Dim SQLString As String
        Dim err As Integer = 0
        Dim tempSet As DataSet = New DataSet
        Dim objrow As DataRow
        Dim htmlString As String = "<table border=""0"" cellpadding=""3"" width=""700"" cellspacing=""1"" bgcolor=""#727075""><tr><td><font color=""#ffffff""><strong>Model</strong></font></td>" _
        & "<td><font color=""#ffffff""><strong>Description</strong></font></td><td><font color=""#ffffff""><strong>Digi-Key Inventory</strong></font></td><td><font color=""#ffffff""><strong>PDF</strong></font></td>" _
        & "<td><font color=""#ffffff""><strong>RoHS</strong></font></td><td align=""center""><font color=""#ffffff""><strong>RFQ</strong></font></td>" _
        & "<td align=""center""><font color=""#ffffff""><strong>Connector Mate</strong></font></td></tr>"

        SQLString = "select * from Products where cat_id = " & Request.QueryString("catid") & " order by model"

        oleConn.ConnectionString = Application("DSN")
        oleConn.Open()
        objComm = New OleDbCommand(SQLString, oleConn)
        objComm.CommandTimeout = 30

        Dim objDA As OleDbDataAdapter = New OleDbDataAdapter
        objDA.SelectCommand = objComm
        Dim objDS As DataSet = New DataSet
        Try
            objDA.Fill(objDS, 0)
            oleConn.Close()
        Catch ex As Exception
            Response.Write(ex.ToString())
        End Try
        Dim cInc As Integer = 0
        Dim altColor As String
        Dim digikeylink As String = ""
        dkContent.InnerHtml = getContent()

        For Each objrow In objDS.Tables(0).Rows
            If cInc = 0 Then
                cInc = 1
                altColor = "#fafafa"
            Else
                cInc = 0
                altColor = "#ffffff"
            End If

            If objrow("isdk") = 1 Then
                digikeylink = "http://search.digikey.com/scripts/DkSearch/dksus.dll?lang=en&site=us&keywords=" & objrow("dkmodel")

            End If

            htmlString += "<tr bgcolor=" & Chr(34) & altColor & Chr(34) & "><td nowrap>" & objrow("model") & "</td>" _
                & "<td nowrap>" & objrow("listdesc") & "</td>" _
                & "<td align=""center"">"
            If objrow("isdk") = 1 Then
                htmlString += "<a href=""" & digikeylink & """ target=""_new""><img src=""images/dklogo.jpg"" border=""0""></a>"
            End If

            htmlString += "</td><td align=""center""><a href=""http://www.tensility.com/pdffiles/" & objrow("specpath") & Chr(34) & " target=""_new""><img src=""images/PDFsmall.gif"" border=""0""></a></td>" _
            & "<td>"
            If objrow("rohspath") & "" <> "" Then
                htmlString += objrow("rohspath")
            End If
            htmlString += "</td>" _
            & "<td nowrap><a href=""http://www.tensility.com/rfq.aspx?pid=" & objrow("prod_id") & Chr(34) & ">request quote</a></td>"

            If objrow("connmate") & "" <> "" Then
                htmlString += "<td align=""center"">" & objrow("connmate") & "</td>"
            Else
                htmlString += "<td align=""center"">N/A</td>"
            End If
            htmlString += "</tr>"
        Next
        htmlString += "</table>"
        dkInv.InnerHtml = htmlString
    End Sub
    Private Function getContent() As String
        Dim sqlstring As String = "select content from categories where cat_id = " & Request.QueryString("catid")
        Dim oleConn As New OleDb.OleDbConnection
        Dim objComm As OleDbCommand
        Dim err As Integer = 0
        Dim tempSet As DataSet = New DataSet
        Dim objrow As DataRow

        oleConn.ConnectionString = Application("DSN")
        oleConn.Open()
        objComm = New OleDbCommand(sqlstring, oleConn)
        objComm.CommandTimeout = 30

        Dim objDA As OleDbDataAdapter = New OleDbDataAdapter
        objDA.SelectCommand = objComm
        Dim objDS As DataSet = New DataSet
        Try
            objDA.Fill(objDS, 0)
            oleConn.Close()
            Return objDS.Tables(0).Rows(0).Item(0).ToString()
        Catch ex As Exception
            Response.Write(ex.ToString())
        End Try


    End Function
    Private Sub getCats()
        Dim oleConn As New OleDb.OleDbConnection
        Dim objComm As OleDbCommand
        Dim SQLString As String
        Dim err As Integer = 0
        Dim tempSet As DataSet = New DataSet
        Dim objrow As DataRow
        Dim htmlString As String = "<table border=""0"" cellpadding=""3"" cellspacing=""1""><tr><td>Click a category below to begin...<ul>"

        SQLString = "select * from categories order by cat_name"

        oleConn.ConnectionString = Application("DSN")
        oleConn.Open()
        objComm = New OleDbCommand(SQLString, oleConn)
        objComm.CommandTimeout = 30

        Dim objDA As OleDbDataAdapter = New OleDbDataAdapter
        objDA.SelectCommand = objComm
        Dim objDS As DataSet = New DataSet
        Try
            objDA.Fill(objDS, 0)
            oleConn.Close()    
        Catch ex As Exception
            Response.Write(ex.ToString())
        End Try

        For Each objrow In objDS.Tables(0).Rows
            htmlString += "<li><a href=""http://www.tensility.com/dkinventory.aspx?catid=" & objrow("cat_id") & "&catname=" & Replace(objrow("cat_name"), " ", "%20") & Chr(34) & ">" & objrow("cat_name") & "</a></li>"
        Next

        htmlString += "</ul></td></tr></table>"
        dkInv.InnerHtml = htmlString
    End Sub
End Class