<%@Language=VBScript%>
<%Response.Buffer=True%>
Celtic Girl Baby Names
<%
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 ""%celtic%"") AND ((tbl_names.gender)=""girl"" Or (tbl_names.gender)=""both"")) Order By tbl_names.name;"
Set RS = MyConn.Execute(SQL2)
'Response.write "" & RS("catname") & "
"
%>
| Celtic Girl Baby Names |
 |
<%
Response.write ""
Response.write "
"
%>
<%
'-------------
'Response.write "Category: " & RS("catname") & "
" & vbcrlf
Response.Write " " & vbcrlf
Response.Write "" & vbcrlf
Response.Write "| Name | " & vbcrlf
Response.Write "Meaning | " & vbcrlf
Response.Write "Origin | " & vbcrlf
Response.Write "Gender | " & 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 " | " & RS("name") & " | " & vbcrlf
Response.Write " " & RS("desc2") & " | " & vbcrlf
Response.Write " " & RS("desc1") & " | " & vbcrlf
Response.Write " " & RS("gender") & " | " & vbcrlf
'Response.Write " addto favorite | " & vbcrlf
Response.Write "
" & vbcrlf
'
'Response.Write "ID : " & RS("babyID") & "
"
'Response.Write "name : " & RS("name") & "
"
'Response.Write "example : " & RS("example") & "
"
'Response.Write "
" & vbcrlf
RS.MoveNext
WEND
RS.Close
Set rs = Nothing %>