<%@Language=VBScript%> <%Response.Buffer=True%> <% dim SQL2, RS, rc 'SQL2 = "SELECT tbl_names.name, tbl_names.desc1, tbl_names.desc2, tbl_names.gender FROM tbl_names WHERE (((tbl_names.desc1) Like ""%indian%"")) Order By tbl_names.name;" SQL2 = "SELECT tbl_names.name, tbl_names.desc1, tbl_names.desc2, tbl_names.gender FROM tbl_names WHERE (((tbl_names.desc1) Like ""%indian%"")) OR (((tbl_names.desc1) Like ""%native%"")) ORDER BY tbl_names.name;" Set RS = MyConn.Execute(SQL2) %>

Native American Indian Baby Names

<% Response.write "" Response.write "" Response.write "" Response.write "" Response.write "

Girls Names Only

Boy Names Only

Show All Names

" Response.write "
" %> <% '------------- Response.Write " " & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf 'Response.Write "" & vbcrlf Response.Write " " & vbcrlf While Not RS.EOF If rc="" Or rc="#FFFFFF" Then rc="#E8E7DD" Else rc="#FFFFFF" Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf 'Response.Write " " & vbcrlf Response.Write " " & vbcrlf '

Name	Meaning	Origin	Gender
" & RS("name") & "	" & RS("desc2") & "	" & RS("desc1") & "	" & RS("gender") & "	addto favorite

'Response.Write "
" & vbcrlf RS.MoveNext WEND RS.Close Set rs = Nothing %>