Author's First Name:
|
<%if Your_UserName <> "" then %>
Advanced Search
<%else%>
Advanced Search
<%end if %>
Music Search
|
<%
Dim SqlJunk
dim conAdo
dim rsAdo
Set conAdo = CreateObject("ADODB.Connection")
set rsAdo = Createobject ("ADODB.Recordset")
conAdo.CursorLocation = 3
conAdo.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Port=3306; Option=0; Socket=;Stmt=; Database=goodminds;Uid=DBService; Pwd=DBService;"
rsAdo.CursorType = 3 'Set Dynamic Cursor (forward and backward movement.
rsAdo.CursorLocation = 3'
SqlJunk = "select * from subject order by subject"
'response.write sqljunk
'response.end
rsAdo.ActiveConnection = conAdo
rsAdo.Open SqlJunk,conAdo%>
<%If rsAdo.BOF and rsAdo.EOF Then%>
<%Else%>
<%If Not rsAdo.BOF Then%>
Select a Subject:
<%if Your_UserName <> "" then %>
Character Education
<%else%>
Character Education
<%end if %>
<%End If%>
<%End If%>
<%
rsAdo.Close
set rsAdo = nothing
conAdo.Close
set conAdo = nothing
%>
|
Author's Last Name:
|
Date Acquired Search:
<%if Your_UserName <> "" then %>
Date Acquired List
<%else%>
Date Acquired List
<%end if %>
|
<%
Dim SqlJunk2
dim conAdo2
dim rsAdo2
Set conAdo2 = CreateObject("ADODB.Connection")
set rsAdo2 = Createobject ("ADODB.Recordset")
conAdo2.CursorLocation = 3
conAdo2.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Port=3306; Option=0; Socket=;Stmt=; Database=goodminds;Uid=DBService; Pwd=DBService;"
rsAdo2.CursorType = 3 'Set Dynamic Cursor (forward and backward movement.
rsAdo2.CursorLocation = 3'
SqlJunk2 = "select Nation from Nations order by Nation"
'response.write sqljunk2
'response.end
rsAdo2.ActiveConnection = conAdo2
rsAdo2.Open SqlJunk2,conAdo2%>
<%If rsAdo2.BOF and rsAdo2.EOF Then%>
<%Else%>
<%If Not rsAdo2.BOF Then%>
Select a Nation:
<%End If%>
<%End If%>
<%
rsAdo2.Close
set rsAdo2 = nothing
conAdo2.Close
set conAdo2 = nothing
%>
|
