Erro

Galera, tento executar a pagina e dá erro interno de servidor, o que tem de errado no codigo abaixo?

ASP

[*]

[*]Select Case action

[*] Case Request.Form("valida")

[*] Dim erro, nome, email, grupo, status_2

[*]

[*] 'Conexão com a base

[*] set conn = server.createobject("ADODB.CONNECTION")

[] strDB = "DBQ=" & Server.MapPath("neo/db/emails.mdb") & ";Driver={Microsoft Access Driver (.mdb)};"

[*] set sql = server.createobject("ADODB.Recordset")

[*] conn.open strDB

[*]

[*] 'Atribuindo valores do POST para as variaveis

[*] nome = Request.Form("nome")

[*] email = Request.Form("email")

[*] grupo = Request.Form("grupo")

[*] status_2 = Request.Form("status")

[*]

[*]

[*] sql = "INSERT INTO emails(nome,emails,grupo,status)VALUES("

[*] sql = sql & "'"& nome &"',"

[*] sql = sql & "'" & email & "',"

[*] sql = sql & "'" & grupo & "',"

[*] sql = sql & "'" & status_2 & "')"

[*]

[*]

[*] conn.execute(sql)

[*] 'erro = "Inserção efetuada com sucesso!"

[*] End Select

Valeu :D