Derek Fisher's Portfolio

Dim srStr, fields, searchfield, searchfield2, dbc, rsFieldNames, rsData, header, s, sqlWhat, srFld, all, rtnCnt, sql, i, tableName, num, c
		Dim hlink, cCode, id, pref, pType, fldsCnt, loopct, idNum, flds, data, cName, num2, val, tab, table	
				
If Request.Form("entire")="" Then
		set dbc=Server.CreateObject("ADODB.Connection")
		dbc.Provider="Microsoft.Jet.OLEDB.4.0"
		dbc.Open = "EDO.mdb"
		
 	srStr = Request.Form("searchAll")
		sqlWhat = "'%"&srStr&"%'"
		rtnCnt = 0
				
'	Header for the results page
		Response.Write "<HTML><head>"
		Response.Write "<BODY onLoad='menuOnLoad()'>"
		Response.Write "<img src = 'assests\bg.jpg'> "
		Response.Write "<table bgcolor='#c0c0c0' width='100%'><tr>"
		Response.Write "<td width='20%' align ='center'><a href = 'index.asp'>Home</a></td>"
		Response.Write "<td width='20%' align ='center'><a href = 'mControl.html'>Mission Control</a></td>"
		Response.Write "<td width='20%' align ='center'><a href = 'library.html'>Library</a></td>"
		Response.Write "<td width='20%' align ='center'><a href = 'tools.html'>Tools</a></td>"
		Response.Write "<td width='20%' align ='center'><a href = 'contact.html'>Contact</a></td>"
		Response.Write "</tr></table> "
		
'	Create ADO schema 
		Set rsFieldNames = dbc.OpenSchema(adSchemaTables)
		rsFieldNames.Filter = "TABLE_TYPE='TABLE'"

num = 0		
		Do While Not rsFieldNames.EOF
			num = num + 1
			ReDim Preserve tblArry(num)
			tblArry(num) = rsFieldNames("TABLE_NAME")
			rsFieldNames.MoveNext
		Loop

For tab = 1 to num

table = tblArry(tab)
		If table <> "Parts" AND table <> "PartStatus" AND table <> "PartTypes" AND table <> "TMPPRTS" AND table <> "Generic" Then
			sql = "SELECT * FROM "&table&" WHERE Value LIKE "&sqlWhat&" OR Description LIKE "&sqlWhat&" OR Mfr LIKE "&sqlWhat&" OR PartNumber LIKE "&sqlWhat&";"
			Set rsData = dbc.Execute(sql)
		End If
	
		Set rsFieldNames = dbc.OpenSchema(adSchemaColumns)
		idNum = 0
		fldsCnt = rsData.Fields.Count
			
	num2 = 0
	For i = 1 to fldsCnt
		num2 = num2 + 1
		ReDim Preserve fldArry(num2)
		fldArry(num2) = rsFieldNames("column_name")
		rsFieldNames.MoveNext
	Next

fldsCnt = fldsCnt - 1
idNum = 0
Do While Not(rsData.EOF)
		Response.Write "<TABLE WIDTH=80% BORDER=1 Float=left>"
		Response.Write "<TR><TD width='15%'bgcolor=#00FF00><center>Field Name</TD>"
		Response.Write "<TD width='65%'bgcolor=#00FF00><center>Value</TD></TR>"
For i = 1 to fldsCnt
	flds = fldArry(i)

If flds = "Hyperlink" Then
						hlink = "<a href = 'http://"&rsData(fldArry(i))&"'>"
					ElseIf flds = "CageCode" Then
						cCode = rsData(flds)
 		 ElseIf flds = "Value" Then
 			Response.Write "<TR>"
						Response.Write "<TD width='15%' bgcolor=#C0C0C0>" & flds & " </TD>"
						Response.Write "<TD width='30%'>"&rsData(fldArry(i))&"</TD>"
 		 Response.Write "</TR>"
 		 ElseIf flds = "PartNumber" Then
 			Response.Write "<TR>"
						Response.Write "<TD width='15%' bgcolor=#C0C0C0>" & flds & " </TD>"
						Response.Write "<TD width='30%'>"&rsData(fldArry(i))&"</TD>"
 		 Response.Write "</TR>"
 		 ElseIf flds = "Description" Then
 			Response.Write "<TR>"
						Response.Write "<TD width='15%' bgcolor=#C0C0C0>" & flds & " </TD>"
						Response.Write "<TD width='30%'>"&rsData(fldArry(i))&"</TD>"
 		 Response.Write "</TR>"
 	 ElseIf flds = "Mfr" Then
 	 Response.Write "<TR>"
 	 	Response.Write "<TD width='15%' bgcolor=#C0C0C0>" & flds & " </TD>"
						Response.Write "<TD width='30%'>"&hlink&"("&rsData(fldArry(i))&", "&cCode&")</a></TD>"
 	 	Response.Write "</TR>"
 		ElseIf flds = "Datasheet" Then
 			Response.Write "<TR>"
						Response.Write "<TD width='15%' bgcolor=#C0C0C0>" & flds & " </TD>"
						Response.Write "<TD width='30%'><a href ='\Datasheets\"&rsData(flds)&".pdf' target ='_blank'>"&rsData(fldArry(i))&"</a> </TD>"
 		 Response.Write "</TR>"
			End If

Next
						Response.Write "<TR>"
						Response.Write "<TD width='15%' bgcolor=#C0C0C0>From Table: </TD>"
						Response.Write "<TD width='30%'>"&table&"</TD>"
 		 Response.Write "</TR>" 
						Response.Write "</TABLE>"
						Response.Write" "
						idNum = idNum + 1
						rtnCnt = rtnCnt + 1
						rsData.MoveNext
Loop

Next
	 Response.Write "Total number of parts returned: "&rtnCnt
 	Response.Write " <a href = 'index.asp'>Home</a>"			
'	Empty memory/Cleanup
		rsData.Close
		rsFieldNames.Close
		dbc.Close
		set dbc = Nothing

End If