<% @Language=VBScript%> <% 'dEC VAR PARA IDENTIFICAR BD dim DB_PROVIDER 'OBTENÇÃO DO CAMINHO call myDSN(DB_PROVIDER) 'EFECTUAR CONEXÃO set objConn = abre_conexao(DB_PROVIDER) strSQL= "INSERT INTO questionario (ouvir_falar,conhece,motivo,conhecimento,opniao,observacoes) VALUES (" strSQL = strSQL & "'" &Request.Form("ouviu_falar")& "'" &"," strSQL = strSQL & "'" &Request.Form("conhece")& "'" &"," strSQL = strSQL & "'" &Request.Form("motivo")& "'" &"," strSQL = strSQL & "'" &Request.Form("conhecimento")& "'" &"," strSQL = strSQL & "'" &Request.Form("opniao")& "'" &"," strSQL = strSQL & "'" &Request.Form("observacoes")& "'" &")" 'response.write "

" & strSQL & "

" call executa_sql(objConn, strSQL) if(err<>0) then 'redireccionar para erro set objConn=nothing Response.Redirect ("erro.html") else set objConn=nothing Response.Redirect ("sucesso.asp") end if %>