<% sub renderHtml(content) dim html html = "" html = html & "" html = html & "" 'html = html & "" html = html & content html = html & "" html = html & "" Response.Write html end sub function main() Dim con Dim recordset Dim connectionString dim typenr typenr = Request.Querystring("typenr") typenr = Server.URLEncode(typenr) if typenr <> "" then Set recordset = Server.CreateObject("ADODB.Recordset") Set con = Server.CreateObject("ADODB.Connection") connectionString = "DRIVER={MySQL};SERVER=localhost;DATABASE=philipsradios_n;UID=philipsradios_n;PWD=natascha81;" recordset.open "select * from servicedocs where type like '%" & typenr & "%' order by type",connectionString ,3,3 dim table table = "" if recordset.recordcount > 0 then do while not recordset.eof table = table & "" recordset.movenext loop else table = "Er zijn geen resultaten gevonden." end if table = table & "
"& recordset("type") &".pdf
" call renderHtml(table) recordset.close else 'Bij het eerste keer laden van het scherm call renderHtml("") end if end function call main() %>