<% set myconn = server.createobject("ADODB.Connection") myconn.open sitedataconnection set result = server.createobject("ADODB.Recordset") sql = "SELECT pagetitle, pagecontent FROM " & tablesitename & "_pages WHERE pagetype = 'kindergarten_roundup'" result.open sql,myconn if not result.eof and not result.bof then pagetitle = result("pagetitle") pagecontent = result("pagecontent") else response.write "Sorry, you have made an invalid selection.

" end if result.close set result = nothing myconn.close set myconn = nothing url = "http://americanmontessori.net/kindergarten_roundup_form.asp" set xmlhttp = createobject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", url, false xmlhttp.send "" theform = xmlhttp.responsetext set xmlhttp = nothing pagecontent = replace(pagecontent, "[kindergarten_roundup_form]", theform) %>



<%= pagecontent %>