<% '============================================================== ' TableEditoR 0.81 Beta ' http://www.2enetworx.com/dev/projects/tableeditor.asp '-------------------------------------------------------------- ' File: te_searchtable.asp ' Description: Displays a search form for a given table ' Initiated By Kevin Yochum on Nov 07, 2000 '-------------------------------------------------------------- ' Copyright (c) 2002, 2eNetWorX/dev. ' ' TableEditoR is distributed with General Public License. ' Any derivatives of this software must remain OpenSource and ' must be distributed at no charge. ' (See license.txt for additional information) ' ' See Credits.txt for the list of contributors. ' ' Change Log: '-------------------------------------------------------------- '============================================================== %>

Home » Connections » "><%=arrDesc(request("cid"))%> » &tablename=<%=request("tablename")%>&ipage=<%=request("ipage")%>">Table [<%=request("tablename")%>] » Search Table

<% if bProtected then response.write session("teFullName") response.write " (logout)" end if %>

<% lConnID = request("cid") sTableName = request("tablename") sFieldName = request("fld") sFieldValue = request("val") lFieldType = CLng(request("fldtype")) iPage = request("ipage") sQuery = request("q") OpenRS arrConn(lConnID) sSQL = "SELECT * FROM [" & sTableName & "]" rs.Open sSQL, , , adCmdTable on error resume next for each fld in rs.fields response.write "" response.write "" select case fld.type case adLongVarWChar 'memo response.write "" case adLongVarBinary 'ole 'response.write "" response.write "" case adBoolean response.write "" '-[3]- Added by Daniele 'copy&Paste from showrecord.asp select case fld.type case adSmallInt, adInteger, adCurrency, adUnsignedTinyInt, adDate, adDBDate, adDBTime, adDBTimeStamp if arrType(lConnID) <> tedbDsn then '-[2]- Added by Danival flag = false set rs2 = conn.OpenSchema(adSchemaForeignKeys) do while not rs2.eof if rs2("FK_TABLE_NAME") = sTableName and rs2("FK_COLUMN_NAME") = fld.name and relation then Set Consulta = Server.CreateObject("ADODB.Command") Set Consulta.ActiveConnection = conn consulta.CommandText = "SELECT * FROM " & rs2("PK_TABLE_NAME") set RSConsulta = consulta.execute response.write "" flag = true end if rs2.movenext loop end if if flag = false then response.write "" end if '-[2]- End Addition case else response.write "" end select '-[3]- End Addition end select response.write "" next %>

" & fld.name & "				" case else 'response.write "		" Response.Write " " do while not RSConsulta.eof if len(svalue) > 0 and len (RsConsulta(0)) > 0 then if cint(sValue) = cint(RSConsulta(0)) then flagnbh = " selected" else flagnbh = "" end if end if Response.Write "" & RSConsulta(trim(rs2("PK_COLUMN_NAME"))) & " - " & RSConsulta(1) & "" RSConsulta.movenext loop set rsconsulta = nothing set consulta = nothing Response.Write "
	Substring Search (applies to non-numeric fields only)