%@Language=VBScript%> <%Option Explicit Response.Buffer=true%> <% Dim conn, rs, query Dim vestibular, sVestibular Const tituloTabela = "config" Call Conectar() query = "Select vestibular From config " rs.Open query, conn If Not rs.EOF Then vestibular = rs("vestibular") Else vestibular = "" rs.Close %>