<%@ Language=VBScript %> <% dim rs dim strSQL dim objConn dim Fname dim Lname dim ArtTypes dim Bio set objConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString = "DSN=pca;uid=sa;pwd=;" objConn.Open strSQL = "SELECT FeaturedArtist.Fname, FeaturedArtist.Lname, FeaturedArtist.ArtTypes, FeaturedArtist.Bio FROM FeaturedArtist WHERE (((FeaturedArtist.CurrentlyFeatured)=1));" set rs = objconn.Execute(strSQL) if not rs.EOF then Fname=rs("Fname") Lname=rs("Lname") ArtTypes=rs("ArtTypes") Bio=rs("Bio") end if %>
<% rs.Close objConn.Close set rs = nothing set objConn = nothing %>