[Resolvido] Problema com Select Case...

Olá pessoal, todos bem?

Estou tendo uma dificuldade em INSERIR mais um campo CASE, sempre me da erro, não sei mais... Preciso de uma colaboração de vcs.. Obrigado.

São três Formas de escolha PAC, Sedex a Cobrar, ou Retirar no Local.

No entanto, não estou conseguindo inserir a terceira opção. Segue o code.

<%
Response.End
Else

Dim chk_nomeCompleto
pgmt_cfg = pgmt_tipos("cfg")

 Select Case pgmt_cfg
 Case "PAC"
 set chk_nomeCompleto = dadosDB.Execute("SELECT nomeCompleto FROM clientes WHERE id = " & ped_user_id)
 If IsNull(chk_nomeCompleto("nomeCompleto")) OR chk_nomeCompleto("nomeCompleto") = "" OR chk_nomeCompleto("nomeCompleto") = " " Then

%>

	<tr>
	<td>Para pagar através do <%=pgmt_tipos("dados")%>,
	<br>
	     você precisa atualizar o número do seu CPF/CGC nas informações do cadastro.<br> Clique <a class="linkVermelho" href="./cadastro.asp?acao=editar&pagina=fecharpedido.asp">aqui</a> atualizar o seu cadastro.
 </td>
 </tr>
 </table>

<table width="820" align="center" cellpadding="0" cellspacing="0">

<%
Response.End
Else

 dadosDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_valor,prod_quant,pgmt_id) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & ped_prod_valor & "," & ped_prod_quant & "," & Request.QueryString("pgmt_id") & ")")
 End If

 Case "Sedex"
 dadosDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_valor,prod_quant,pgmt_id) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & ped_prod_valor & "," & ped_prod_quant & "," & Request.QueryString("pgmt_id") & ")")

 End Select
 End If
	Next
	Session("car_prod_id") = ""

%>

<tr>
<td>
<h3 align="center">Pedido Cadastrado com Sucesso</h3>
</td>
</tr>

	<tr>
	<td>
 <div align="center"><img src="imagem/seta_direita.gif" width="15" height="15" /> O número do seu pedido é <span class="asterisco"><%=ped_id%></span>
 </div></td>
	</tr>

<%
pgmt_tipos.MoveFirst

	Select Case pgmt_cfg
 Case "PAC"

%>

<tr>
<td><!--#include file="pac.asp"--></td>
</tr>

<%
Case "Sedex"
%>

<tr>
<td><!--#include file="sedex.asp"--></td>
</tr>

<%

Case "Local"
%>

<tr>
<td><!--#include file="local.asp"--></td>
</tr>

<%
End Select
End If
End If
%>

O que preciso é inserir mais esse CASE: O CASE "Local"

Case "Local"
dadosDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_valor,prod_quant,pgmt_id) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & ped_prod_valor & "," & ped_prod_quant & "," & Request.QueryString("pgmt_id") & ")")

Obrigado a todos desde já.

Atenciosamente,

William