Formulário Em Asp

-#Alea#- · Abril 30, 2004

Algém pode me dizer onde está o erro? primeira vez que monto um formulário em asp.

<%

dim servico

dim cotacao

if request.form("opt-importacao")= 1 then

servico = importacao

else if request.form("opt-exportacao")=1 then

servico = exportação

else if request.form("opt-interno")=1 then

servico = interno

end if

if request.form("box-1")=1 then

cotacao= "Desembaraço aduaneiro," & " "

end if

if request.form("box-2")=1 then

cotacao= cotacao & "Frete internacional, " & " "

end if

if request.form "box-3")=1 then

cotacao = cotacao & "Frete interno Door to Door (coleta origem/entrega destino), "&" "

end if

if request.form("box-4")=1 then

cotacao=cotacao & "Door to Port (coleta origem/embarque destino)," & " "

end if

if request.form("box-5")=1 then

cotacao = cotacao & "Port to Door (frete/desemb./entrega destino)."

end if

Dim wemail

Dim HTML

Set wemail = CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"

HTML = HTML & "<html>"

HTML = HTML & "<head>"

HTML = HTML & "<title>Cotação online ITN Cargo</title>"

HTML = HTML & "</head>"

HTML = HTML & "<body bgcolor=""FFFFFF"">"

HTML = HTML & ""

HTML = HTML & "Empresa:" & request.form("txt-empresa") & " "

HTML = HTML & "Telefone:" & request.form("txt-telefone") & " "

HTML = HTML & "Cidade:" & request.form("txt-cidade") & " "

HTML = HTML & "Estado:"& request.form("txt-estado") &" "

HTML = HTML & "E-mail:"& request.form("txt-email") &" "

HTML = HTML & "Serviço:"& servico & " "

HTML = HTML & "Cotação:"& cotacao & " "

HTML = HTML & "Coleta:"& request.form("txt-coleta") &" "

HTML = HTML & "Embarque:"& request.form("txt-embarque") &" "

HTML = HTML & "Destino:"& request.form("txt-destino") &" "

HTML = HTML & "Entrega:"& request.form("txt-entrega") &" "

HTML = HTML & "Mercadoria:"& request.form("txt-mercadoria") &" "

HTML = HTML & "Obs:"& request.form("txt-obs") &" "

HTML = HTML & "</body>"

HTML = HTML & "</html>"

wemail.From= "alex_cauduro@yahoo.com.br"

wemail.To = request.form("txt-email")

wemail.Subject="Pedido de cotação online"

wemail.BodyFormat=0

wemail.MailFormat=0

wemail.Body=HTML

'wemail.attachFile "Caminho do Arquivo","Nome do Arquivo"

wemail.Send

set wemail=nothing

%>

Victor · Abril 30, 2004

if request.form("opt-importacao")= 1 then
servico = importacao
else if request.form("opt-exportacao")=1 then
servico = exportação
else if request.form("opt-interno")=1 then
servico = interno
end if

O elseif não é separado, porque else e caso contrario, e você quer colocar outra condição então você coloca assim:

if request.form("opt-importacao")= 1 then
servico = importacao
elseif request.form("opt-exportacao")=1 then
servico = exportação
elseif request.form("opt-interno")=1 then
servico = interno
end if

Espero ter ajudado... Caso tenha mais alguma dúvida ae, é só postar que nós iremos te ajudar!!!Fui

[]'s

Victor

Entrar

Formulário Em Asp

Pergunta

-#Alea#-

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Victor

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades