<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% option explicit response.Expires=0 %> <% dim objconn,objrs,strconn,strq set objconn = server.createobject("adoDB.connection") strconn="parelvissers;;;;" objconn.open strconn set objrs = server.createobject("adoDB.recordset") set objrs.activeconnection=objconn objrs.cursortype=adopendynamic objrs.locktype=adlockoptimistic objrs.cursorlocation=aduseclient if request.QueryString("class") <> "" then select case request.QueryString("class") case "a" strq="select * from CastAndCrew where class='Acteur' order by firstname" case "c" strq="select * from CastAndCrew where class='Crew' order by sortid" end select else strq="select * from CastAndCrew where class='Acteur' order by firstname" end if %>

Home De parelvissers Afleveringen Cast & Crew Downloads Muziek Forum
Cast Crew Met dank aan <% objrs.open strq while not objrs.eof %> <%response.Write(objrs("Firstname") & " " & objrs("Lastname"))%> <% if request.QueryString("class") = "a" or request.QueryString("class")= "" then if (objrs("PicturePathCharacter") <> "") then%> "> <% end if end if%> <%response.Write(objrs("text"))%> <% objrs.movenext wend objrs.close %>