<% Response.Buffer=true %> <% dim submitted dim sql_query dim sql_report submitted = request.form("submitted") sql_query = request.form("sql_query") response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("Electric Putty CMS :: Site Explorer" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("
" & VbCrLf) if submitted = "true" then sql_report = "" sql_query = formatQuery(sql_query) if instr(sql_query,"^") then sql_query_array = split(sql_query,"^") if isArray(sql_query_array) then for q = 0 to ubound(sql_query_array) if len(sql_query_array(q)) > 0 then RunSQL sql_query_array(q) sql_report = sql_report & sql_query_array(q) & "
" end if next end if else RunSQL sql_query sql_report = sql_report & sql_query & "
" end if response.write("
" & VbCrLf) response.write("" & VbCrLf) response.write("

 

" & VbCrLf) response.write("
" & VbCrLf) response.write("

" & sql_query & "

" & VbCrLf) response.write("

" & sql_report & "

" & VbCrLf) response.write("
" & VbCrLf) response.write("" & VbCrLf) response.write("

 

" & VbCrLf) response.write("
" & VbCrLf) else response.write("
" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("

 

" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("

 

" & VbCrLf) response.write("
" & VbCrLf) end if response.write("
" & VbCrLf) %> <% response.write("" & VbCrLf) response.write("" & VbCrLf) %>