Search pacifictabla.com

   

               

Student Bios

These are short bios of students of Vishal Nagar

<% Dim strConnect, objRS, strSQL, strName, memofield Set strConnect = Server.CreateObject("ADODB.Connection") strConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\\brink-premfs1\sites\Premium4\urbanmojo\database\TablaSiteDatabase.mdb;" & _ "Persist Security Info=False" strSQL = "Select * FROM Performers WHERE strName ='Jason Fellin' " &_ "OR strName = 'Blair Miller' ORDER BY strName DESC" Set objRS = strConnect.Execute(strSQL) While Not objRS.EOF If objRS.Fields("boolBioExists") <> FALSE then strName=objRS.Fields("strName") memofield = objRS.Fields("memBioText") Response.Write "" If objRS.Fields("boolPhotoExists") = TRUE then Response.Write "" End If objRS.MoveNext Response.Write "" Wend strSQL = "Select * FROM Performers WHERE strName <> 'Jason Fellin' AND " &_ "strName <> 'Blair Miller' AND boolBioExists= TRUE ORDER BY strName ASC" Set objRS = strConnect.Execute(strSQL) While Not objRS.EOF strName=objRS.Fields("strName") memofield = objRS.Fields("memBioText") Response.Write "" If objRS.Fields("boolPhotoExists") = TRUE then Response.Write "" objRS.MoveNext Response.Write "" Wend objRS.Close strConnect.Close Set objRS = Nothing Set strConnect = Nothing %>

" &_ strName & "

" & strName & "" &_ "" Else Response.Write "
" End If Response.Write "

" & memofield & "


" &_ strName & "

" & strName & "" &_ "" Else Response.Write "
" End If Response.Write "

" & memofield & "






Home   About This Site   About Tabla   About Vishal   Student Bios   Performances
Contact Us   Student Extranet   Links   Get Involved