Postagens
Não informado
Posted by email para o email que marco no script asp.
É um HTML que chama o script. Abaixo, seguem os dois, em sequência.
Alguém pode me ajudar? Como faço para que ele funcione direito?
Código HTML:
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>Auto Escola Quatro- Barras</title>
</head>
<body topmargin="1" leftmargin="1">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="1006" height="503" id="AutoNumber1">
<tr>
<td width="136" height="503" rowspan="5"
bgcolor="#FF9900"> </td>
<td width="763" height="117" bgcolor="#BED114"
background="028.png"> <p>
<br>
<br>
<br>
</p>
<p><br>
<br>
</td>
<td width="100" height="503" rowspan="5"
bgcolor="#FF9900"> </td>
</tr>
<tr>
<td width="763" height="77"
bgcolor="#BED114"> &
nbsp;
<applet code="fphover.class" codebase="./" width="101"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="color" value="#FFFFBB">
<param name="hovercolor" value="#FF9900">
<param name="text" value="Serviços">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="url" valuetype="ref" value="abilt.html">
</applet>
<applet code="fphover.class" codebase="./" width="93"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="color" value="#FFFFBB">
<param name="hovercolor" value="#FF9900">
<param name="text" value="Simulado">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="url" valuetype="ref" value="simulado.html">
</applet>
<applet code="fphover.class" codebase="./" width="100"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="color" value="#FFFFBB">
<param name="hovercolor" value="#FF9900">
<param name="text" value="Frota">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="url" valuetype="ref" value="simula23.html">
</applet>
<applet code="fphover.class" codebase="./" width="100"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="color" value="#FFFFBB">
<param name="hovercolor" value="#FF9900">
<param name="text" value="Jogos">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="url" valuetype="ref" value="jogo.html">
</applet>
<applet code="fphover.class" codebase="./" width="98"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="color" value="#FFFFBB">
<param name="hovercolor" value="#FF9900">
<param name="text" value="Apostilas">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
</applet>
<applet code="fphover.class" codebase="./" width="106"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="color" value="#FFFFBB">
<param name="hovercolor" value="#FF9900">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="text" value="Legislação">
<param name="url" valuetype="ref" value="legis.html">
</applet><br>
&
nbsp; &n
bsp;
<applet code="fphover.class" codebase="./" width="95"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="hovercolor" value="#FF0000">
<param name="color" value="#FFFFBB">
<param name="text" value="Horário">
<param name="url" valuetype="ref" value="horario.html">
</applet>
<applet code="fphover.class" codebase="./" width="102"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="hovercolor" value="#FF0000">
<param name="color" value="#FFFFBB">
<param name="text" value="Sinalização">
<param name="url" valuetype="ref" value="sina.html">
</applet>
<applet code="fphover.class" codebase="./" width="103"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="hovercolor" value="#FF0000">
<param name="color" value="#FFFFBB">
<param name="text" value="Forum">
<param name="url" valuetype="ref"
value="http://autoescolaquatrobarras.com.br/Forum/default.asp">
</applet>
<applet code="fphover.class" codebase="./" width="105"
height="37">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="hovercolor" value="#FF0000">
<param name="color" value="#FFFFBB">
<param name="text" value="Detran">
<param name="url" valuetype="ref" value="detran.html">
</applet>
<applet code="fphover.class" codebase="./" width="100"
height="37">
<param name="text" value="Principal">
<param name="textcolor" value="#FF0000">
<param name="bgcolor" value="#00FF00">
<param name="font" value="Dialog">
<param name="fontstyle" value="bold">
<param name="fontsize" value="14">
<param name="effect" value="reverseGlow">
<param name="hovercolor" value="#FF0000">
<param name="color" value="#FFFFBB">
<param name="url" valuetype="ref" value="index.html">
</applet>
<p> &nbs
p;  
;
&
nbsp; &n
bsp; &nb
sp; <b><font size="5">
Simulado</font></b></p>
</td>
</tr>
<tr>
<td width="763" height="269" bgcolor="#BED114">
<font
size="4"> &nbs
p;  
;
</font><font size="4" face="Arial,Helvetica">Assunto
escolhido: Meio Ambiente e
Cidadania</font><font face="Arial,Helvetica"><font size="4"><br>
</font><form action="/aspmailer.asp" method="POST">
<!--fields used to direct asp script actions-->
<!--TGrequire: fields that must have input [OPTIONAL]-->
<input type="hidden" name="TGrequire" value="color,mammal,reptile">
<!--TGorder: order in which inputs should appear in email
[OPTIONAL]-->
<input type="hidden" name="TGorder"
value="email,color,mammal,reptile">
<!--TGsubject: Subject line of email [OPTIONAL]-->
<input type="hidden" name="TGsubject" value="Test Form has been
submitted">
<!--TGredirect: URL browser can be redirected to on successful
submission [OPTIONAL]-->
<input type="hidden" name="TGredirect" value="">
<p>
<b>01)Nas grandes cidades,as principais fontes de
poluição são:</b><p>
<b>a): </b>
<input type="radio" value="V" name="R1" tabindex="5" checked
style="font-weight: 700"><b><font size="2">as
queimadas.<br>
</font>b): </b><font size="2">
<input type="radio" name="R1" value="V1"
style="font-weight: 700"><b>a queima do carvão.<br>
</b>
</font><b>c): </b><font size="2">
<input type="radio" name="R1" value="V2"
style="font-weight: 700"><b>os automóveis e as indústrias.<br>
</b>
</font><b>d): </b><font size="2">
<input type="radio" name="R1" value="V3"
style="font-weight: 700"><b>os fogões a gás.</b></font><p>
<b>02)O órgão responsável pela regulamentação dos
padrões de qualidade do ar é:</b><p>
<b><font size="2"><input type="radio" name="R2" value="V" checked>o
conselho Nacional de
Meio Ambiente -Conama.<br>
<input type="radio" name="R2" value="V1">o Programa de Controle da
Poluição do ar por veículos automotores -Proconve.<br>
<input type="radio" name="R2" value="V2">o departamento de
trânsito-
Detran.</font><br>
<font size="2"><input type="radio" name="R2" value="V3">a
Secretaria de Estado do Meio
Ambiente.<br>
<input type="radio" name="R2" value="V4">o Ministério da
Saúde.</font></b><p>
<b><font size="2">03)A má conservação e a regulagem inadequada dos
veículos:<br>
<br>
<input type="radio" name="R3" value="V11"
checked>contribuem para a
poluição da água, apenas.<br>
<input type="radio" name="R3" value="V12">contribuem
para a poluição do
solo, apenas.<br>
<input type="radio" name="R3" value="V13">não agride
o meio ambiente.<br>
<input type="radio" name="R3"
value="V14">acarretam,unicamente e
exclusivamente, o desgaste do veiculo.<br>
<input type="radio" name="R3" value="V15">contribuem
para a poluição do
ar e a poluição sonora.</font></b><h1>
<font size="2"><b>04)O dispositivo de controle de emissão
de
gases(catalisador)no escapamento tem com
objetivo:</b></font></h1>
<p><font size="2"><b> <input type="radio" name="R4"
value="V11" checked>diminuir
o ruído do motor.<br>
<input type="radio" name="R3" value="V61">economizar
combustível.<br>
<input type="radio" name="R3" value="V62">aumentar a
potência do motor.<br>
<input type="radio" name="R3" value="V63">diminuir a
emissão de gases.<br>
<input type="radio" name="R3" value="V64">controlar a
saída de ar
quente.</b></font></p>
<p><font size="2"><b>05)Veículos que têm maior potencial de
poluição do
ar. <br>
<br>
<input type="radio" name="R5" value="V16"
checked>utilizam como
combustível a gasolina ou o diesel<br>
<input type="radio" name="R3" value="V65">utilizam o
sistema elétrico.<br>
<input type="radio" name="R3" value="V66">são movidos
a propulsão
humana.<br>
<input type="radio" name="R3" value="V67">são movidos
a tração animal.<br>
<input type="radio" name="R3" value="V68">utilizam
como combustível o
gás natural.<br>
<br>
<br>
06)Os problemas de saúde causados pela poluição de ar
são:<br>
<br>
<input type="radio" name="R6" value="V21"
checked>doenças do aparelho
digestivo.<br>
<input type="radio" name="R3" value="V69">doenças
respiratórias.<br>
<input type="radio" name="R3" value="V70">doenças
visuais.<br>
<input type="radio" name="R3" value="V71">dores de
cabeça.<br>
<input type="radio" name="R3" value="V72">doenças do
aparelho
locomotor.<br>
<br>
<br>
07)As inspeções periódicas de emissão de gases podem
melhorar a condição
de vida nos centros urbanos:<br>
<br>
<input type="radio" name="R7" value="V26"
checked>contribuindo para a
segurança dos veículos. <br>
<input type="radio" name="R3" value="V73">diminuindo o
desgastes dos
veículos.<br>
<input type="radio" name="R3" value="V74">reduzindo a
emissão dos
poluentes urbanos.<br>
<input type="radio" name="R3" value="V75">diminuindo a
emissão do ozônio.<br>
<input type="radio" name="R3" value="V76">diminuindo o custo
de
manutenção dos veículos.<br>
<br>
<br>
08)As concentrações de poluentes do ar nas cidades são
maiores são
maiores nos meses frios.Este fato ocorre:<br>
<br>
<input type="radio" name="R8" value="V31" checked>devido ao
excesso de
veículos em circulação.<br>
<input type="radio" name="R3" value="V77">devido a maior
dificuldade de
dispersão dos poluentes.<br>
<input type="radio" name="R3" value="V78">devido a maior
emissão de
poluentes. <br>
<input type="radio" name="R3" value="V79">devido a
desregulagem dos
motores causada pelo frio.<br>
<input type="radio" name="R3" value="V80">devido a maior
atividade
industrial.</b></font></p>
<p>
<b><font size="2">09</font>)<font size="2">È um direito de
todo cidadão:</font><br>
<br>
<input type="radio" name="R9" value="V36"
checked><font size="2">exercer
a fiscalização de transito na rua em que mora.<br>
</font><input type="radio" name="R3" value="V81"><font
size="2">colocar
placas de sinalização na rua em que mora.<br>
</font><input type="radio" name="R3" value="V82"><font
size="2">implantar
lombadas na rua em que mora.<br>
</font><input type="radio" name="R3" value="V83"><font
size="2">solicitar
aos órgãos e entidade do Sistema Nacional de Transito
sinalização,fiscalização e implantação de equipamentos <br>
de segurança.<br>
</font><input type="radio" name="R3" value="V84"><font
size="2">bloquear
a rua em que mora para atividade lazer.</font></b></p>
<p><br>
<b><font size="2">10)A poluição do ar aumento muito nas
grandes cidades
devida ao grande numero de veículos.Uma ação que contribuiu
para
combatê-la é:<br>
<br>
<input type="radio" name="R10" value="V41" checked>equipar
veículos com
catalisadores eficientes,segundo as especificações dos
fabricantes.<br>
<input type="radio" name="R3" value="V85">equipar os
veículos com
silenciadores eficientes.<br>
<input type="radio" name="R3" value="V86">abastecer os
veículos com
combustível aditivado.<br>
<input type="radio" name="R3" value="V87">equipar os
veículos com
baterias seladas.<br>
<input type="radio" name="R3" value="V88">manter os veículos
limpos e com
a pintura conservada.<br>
<br>
11)Os poluentes do ar especificados pelo código de Trânsito
Brasileiro
são:<br>
<br>
<input type="radio" name="R11" value="V46"
checked>poeira.<br>
<input type="radio" name="R3" value="V89">vapores.<br>
<input type="radio" name="R3" value="V90">gases e
fumaça.<br>
<input type="radio" name="R3" value="V91">gases e
poeira.<br>
<input type="radio" name="R3" value="V92">aerossóis.<br>
<br>
<br>
12)Como o código de Trânsito Brasileiro pretende evitar os
danos à saúde
causados pela poluição dos veiculos?<br>
<br>
<input type="radio" name="R12" value="V51"
checked>controlando a emissão
de ruído,apenas.<br>
<input type="radio" name="R3" value="V93">determinando o uso
de mascaras.<br>
<input type="radio" name="R3" value="V94">estabelecendo
cotas de consumo
de combustível.<br>
<input type="radio" name="R3" value="V95">incentivando o uso
de
combustível a diesel.<br>
<input type="radio" name="R3" value="V96">controlando a
emissão de gases
e ruídos.<br>
<br>
13)No interior de túneis longos , é aconselhável instalar
exaustores,porque nesse ambiente acumulam-se.<br>
<br>
<input type="radio" name="R13" value="V56"
checked>partículas de fumaça ,
somente.<br>
<input type="radio" name="R3" value="V97">gases de vapor
d"água.<br>
<input type="radio" name="R3" value="V98">gases tóxicos,
somente.<br>
<input type="radio" name="R3" value="V99">gases e partículas
de fumaça.<br>
<input type="radio" name="R3" value="V100">partículas de
vapor d"água,
somente.<br>
<br>
14)Os gases emitidos pelos veículos são perigosos para a
saúde do homem
porque podem:<br>
<br>
<input type="radio" name="R14" value="V146" checked>provocar
a corrosão das córneas dos olhos.<br>
<input type="radio" name="R14" value="V147">agravar doenças
respiratórias
como asma e bronquite.<br>
<input type="radio" name="R14" value="V148">causar
distúrbios
gastrointestinais graves.<br>
<input type="radio" name="R14" value="V149">provocar aumento
de
temperatura do corpo.<br>
<input type="radio" name="R14" value="V150">agravar doenças
de pele,por
conterem substancias corrosivas. <br>
<br>
15)O controle de emissão de gases e de ruídos ,previsto no
código de
Trânsito Brasileiro,é:<br>
<br>
<input type="radio" name="R15" value="V66" checked>uma
medida opcional.<br>
<input type="radio" name="R14" value="V151">obrigatório a
todo veiculo
automotor.<br>
<input type="radio" name="R14" value="V152">uma medida não
necessária.<br>
<input type="radio" name="R14" value="V153">necessário para
veículos de
fabricação nacional,apenas.<br>
<input type="radio" name="R14" value="V154">necessário para
caminhões e
ônibus apenas.<br>
<br>
16)O que faz de nos, individuas, seres únicos num mundo co
tantas
pessoas?<br>
<br>
<input type="radio" name="R16" value="V71" checked>o
conhecimento que
temos e a maneira como utilizamos.<br>
<input type="radio" name="R14" value="V155">as
características herdadas e
as adquiridas do meio.<br>
<input type="radio" name="R14" value="V156">o nível cultural
e econômico.<br>
<input type="radio" name="R14" value="V157">a educação dada
em casa e na
escola.<br>
<input type="radio" name="R14" value="V158">A região onde
moramos e a
profissão que escolhemos.<br>
<br>
17)Como pode ser definido um grupo social?<br>
<br>
<input type="radio" name="R17" value="V76" checked>grupo de
pessoas do
mesmo sexo.<br>
<input type="radio" name="R14" value="V159">grupo de pessoas
da mesma
faixa etária<br>
<input type="radio" name="R14" value="V160">grupo de pessoas
com afinidade
comum.<br>
<input type="radio" name="R14" value="V161">grupo de pessoas
com
interesses contraditórios.<br>
<input type="radio" name="R14" value="V162">nenhuma das
alternativas.<br>
<br>
18)Qual alternativa é exemplo de um grupo social.<br>
<br>
<input type="radio" name="R18" value="V81"
checked>família.<br>
<input type="radio" name="R14" value="V163">amigos.<br>
<input type="radio" name="R14" value="V164">religião .<br>
<input type="radio" name="R14" value="V165">trabalho.<br>
<input type="radio" name="R14" value="V166">todas as
alternativas.<br>
<br>
19)Qual fator primordial que levou o homem viver em
grupo?<br>
<br>
<input type="radio" name="R19" value="V86"
checked>sobrevivência.<br>
<input type="radio" name="R14" value="V167">carência.<br>
<input type="radio" name="R14" value="V168">solidão .<br>
<input type="radio" name="R14" value="V169">instinto.<br>
<input type="radio" name="R14" value="V170">as alternativas
</font>b<font size="2">
e </font><font size="4">c </font><font size="2">estão
corretas.<br>
<br>
<br>
20)Qual comportamento caracteriza um individua bem
integrado ao grupo
que pertence?<br>
<br>
<input type="radio" name="R20" value="V91" checked>defender
seus próprios
direitos.<br>
<input type="radio" name="R14" value="V171">traçar metas de
vida a longo e
médio prazo.<br>
<input type="radio" name="R14" value="V172">adotar como seus
os objetivos
coletivos.<br>
<input type="radio" name="R14" value="V173">impor suas
idéias ao grupo.<br>
<input type="radio" name="R14" value="V174">administrar o
grupo,distribuindo tarefas a todos os integrantes.<br>
<br>
<br>
21)O relacionamento indireto e impessoal entre as pessoas é
característica de qual espaço?<br>
<br>
<input type="radio" name="R21" value="V96"
checked>Sociedade.<br>
<input type="radio" name="R14" value="V175">Grupos
sociais.<br>
<input type="radio" name="R14" value="V176">Espaços
sociais.<br>
<input type="radio" name="R14" value="V177">Esferas
sociais.<br>
<input type="radio" name="R14" value="V178">Núcleos
sociais.<br>
</font></b></p>
<p><font size="2"><b>22)Para diminuir a emissão de
poluentes dos
veículos movidos a gasolina ou diesel, deve-se:<br>
<br>
<input type="radio" name="R22" value="V101" checked>retirar
o
catalisador.<br>
<input type="radio" name="R14" value="V179">retirar o
silenciador.<br>
<input type="radio" name="R14" value="V180">usar gasolina
comum.<br>
<input type="radio" name="R14" value="V181">manter o
radiador limpo.<br>
<input type="radio" name="R14" value="V182">manter o motor
regulado.<br>
<br>
<br>
23)Quais dos fatores abaixo são considerados decisivos para
que tenhamos
um transito mais seguro?<br>
<br>
<input type="radio" name="R23" value="V106"
checked>conscientização de
todos os envolvidos no trânsito .<br>
<input type="radio" name="R14" value="V183">profissionalismo
e
responsabilidade dos agentes de formação de condutores.<br>
<input type="radio" name="R14" value="V184">Educação de
transito nas
escolas.<br>
<input type="radio" name="R14" value="V185">punição exemplar
das pessoas
que insistem em infringir as leis de trânsito.<br>
<input type="radio" name="R14" value="V186">Todas as
alternativas.<br>
</b></font></p>
<p><font size="2"><b>24)Em que se fundamenta o
relacionamento em uma
sociedade?<br>
<br>
<input type="radio" name="R24" value="V111" checked>mesma
nação.<br>
<input type="radio" name="R14" value="V187">identidade
cultural.<br>
<input type="radio" name="R14" value="V188">valores
comuns.<br>
<input type="radio" name="R14" value="V189">princípios
comuns.<br>
<input type="radio" name="R14" value="V190">todas as
alternativas.<br>
<br>
<br>
25)Qual das alternativas abaixo Não correspondem a um
direito do homem
na sociedade moderna?<br>
<br>
<input type="radio" name="R25" value="V146" checked>direito
a proteção.<br>
<input type="radio" name="R14" value="V191">direito a ser
tratado com
dignidade.<br>
<input type="radio" name="R14" value="V192">direito a ter
privilégios
entre os demais.<br>
<input type="radio" name="R14" value="V193"> direito de ser
reconhecido
como cidadão.<br>
<input type="radio" name="R14" value="V194">direito de viver
com justiça.<br>
<br>
<br>
26)Como podemos definir a palavra Cidadão?<br>
<br>
<input type="radio" name="R26" value="V121"
checked>individuo que convive
em grupo.<br>
<input type="radio" name="R14" value="V195">individuo
consciente
dos seus papeis na sociedade.<br>
<input type="radio" name="R14" value="V196">individuo com
tarefa definida
dentro do grupo social a que pertence.<br>
<input type="radio" name="R14" value="V197">individuo com
conduta correta
perante a lei.<br>
<input type="radio" name="R14" value="V198">individuo
passivo, que não
apresenta problemas à sociedade.<br>
<br>
27)É considerado o maior espaço social existente ,pois
propicia a junção
entre os diversos grupos,segmentos e indivíduos de uma
sociedade.<br>
<br>
<input type="radio" name="R27" value="V126" checked>o
clube.<br>
<input type="radio" name="R14" value="V199">o parque
público.<br>
<input type="radio" name="R14" value="V200">o bairro.<br>
<input type="radio" name="R14" value="V201">o trânsito.<br>
<input type="radio" name="R14" value="V202">nenhuma das
alternativas.<br>
<br>
28)Na sociedade o transito contribui diariamente para:<br>
<br>
<input type="radio" name="R28" value="V131"
checked>deslocarmo-nos de um
local para outro,como motorista.<br>
<input type="radio" name="R14" value="V203">deslocarmo-nos
de um ponto a
outro,como passageiros ou pedestres.<br>
<input type="radio" name="R14" value="V204">enviamos as
mercadorias que
produzimos.<br>
<input type="radio" name="R14" value="V205">recebemos os
produtos que
consumimos.<br>
<input type="radio" name="R14" value="V206">todas as
alternativas.<br>
<br>
<br>
29)Estão contidas nos decretos, resoluções e código de
Transito
Brasileiro:<br>
<br>
<input type="radio" name="R29" value="V136" checked>normas
comportamentais para todos os envolvidos no transito.<br>
<input type="radio" name="R14" value="V207">infrações.<br>
<input type="radio" name="R14" value="V208">responsabilidade
civil e
criminal do cidadão.<br>
<input type="radio" name="R14" value="V209">penalidades.<br>
<input type="radio" name="R14" value="V210">todas as
alternativas.<br>
<br>
30)Qual das alternativas abaixo não pode ser
considerada:<br>
<br>
<input type="radio" name="R30" value="V141"
checked>respeitar as normas
de transito.<br>
<input type="radio" name="R14" value="V211">respeitar o
direito das
outras pessoas.<br>
<input type="radio" name="R14" value="V212">agir
impulsivamente.<br>
<input type="radio" name="R14" value="V213">evitar
comportamentos
agressivo.<br>
<input type="radio" name="R14" value="V214">compreender as
limitações
alheias.</b></font></p>
<p>
<b><font size="2"><br>
</font></b><p>
<input type="submit" value="Enviar" style="font-weight: bold">
<input type="reset" value="Limpar" name="B2"></form>
<!--begin cgiware link-->
<p align=center>
<font face="Arial,Helvetica" size=1>
</font>
</p>
</font>
<h1>
<font size="2"><br>
<br>
<br>
<br>
<br>
</font><b><font size="2"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</font></b><font size="2"><b><br>
<br>
</b></font>
<b><font size="2"> <br>
</font></b> &n
bsp; &nb
sp; &nbs
p;  
;
&
nbsp; </h1>
</form>
<p><b> <a href="frota.html">voltar ao
topo</a></b></td>
</tr>
<tr>
<td width="763" height="18" bgcolor="#FFFFBB">
<img border="0" src="faixa102.png" width="769"
height="64"></td>
</tr>
<tr>
<td width="763" height="12" bgcolor="#BED114"> <font
color="#1C0B5C">© 2009
- Auto Escola Quatro-Barras - Todos os Direitos
Reservados</font></td>
</tr>
</table>
</div>
<p> </p>
</body>
</html>[/color]
[b]Código ASP: [/b]
[color=#A0522D]<%@language = "VBscript"%>
<%
'Tom Germain's Standard Cgiware Global Variables and set-up
'DO NOT REMOVE THIS SECTION OR NOTHING WILL WORK
Dim strError
Response.Buffer = True
If ScriptEngineMajorVersion < 2 Then
ReportError "Host system needs scripting engine upgrade to use this
script"
End If
Set objFM = CreateObject("Scripting.Dictionary")
If IsObject(objFM) = False Then
ReportError "Host system lacks component(s) required by this
script"
End If
Set objMailx = CreateObject("CDONTS.Newmail")
If IsObject(objMailx) = False Then
ReportError "Host system lacks component(s) required by this
script"
End If
Set objMailx = Nothing
%>
<%
'aspmailer.asp by Tom Germain, Copyright 1998-1999
'Version 1.0
'tg@cgiware.com
'Visit [url=http://www.cgiware.com]http://www.cgiware.com[/url] for latest version, documentation,
and other resources
'This is freeware - Use at your own risk. No warranties provided.
'Redistribution of this program, in whole or in part, is strictly
'prohibited without the expressed written consent of the author.
'Custom programming available on hourly fee basis.
%>
<%'variables you can set start here%>
<%
strRcpt = "marcushaendell2@gmail.com" 'Put the address you want the
form sent to here
strFromVar = "" 'If you want a reply-to email address to be taken
from the form
' put the name of the input item here.
strDefFrom = "www.autoescolaquatrobarras.com.br" 'Put a default,
even fake, From address here
strDefSubject = "Formulário enviado" 'Put the subject of the letter
here. If an input item called
'subject exists in the form, its value will be used instead.
strRedirect = "" 'Url to redirect to after a successful form
submission. If an input item called
'redirect exists in the form, its value will be used instead.
%>
<%'variables you can set end here%>
<%
ParseForm
CheckForm
If Len(strError) > 0 Then
ReportError strError
End If
strOutX = SeqForm
If Len(strOutX) < 1 Then
strOutX = FormToString
End If
If Len(strOutX) < 1 Then
ReportError "Submitted form is empty"
End If
strSubject = strDefSubject
If objFM.Exists("TGsubject") Then
strSubject = objFM.Item("TGsubject")
End If
strFrom = strDefFrom
If Len(strFromVar) > 0 Then
If objFM.Exists(strFromVar) Then strFrom = objFM.Item(strFromVar)
End If
End If
SendMail strFrom,strRcpt,strSubject,strOutX
If Len(strRedirect) > 0 Then
Response.redirect(strRedirect)
Response.End
End If
If objFM.Exists("TGredirect") = True Then
If Len(objFM.Item("TGredirect")) > 0 Then
Response.redirect(objFM.Item("TGredirect"))
Response.End
End If
End If
%>
<!--*******SUCCESSFUL SUBMISSION RESPONSE - START*******-->
<!--ADD YOUR OWN HTML TOP SECTION STARTING HERE-->
<h1>Enviado com sucesso!</h1>
<!--ADD YOUR OWN HTML TOP SECTION UP TO
HERE--><!--*******SUCCESSFUL SUBMISSION RESPONSE - END********--><%
Credit
Response.End
%>
<%
Function IsValidEmail(Email)
Dim Temp,Temp2
strNotValid = "<br>Email address not valid"
strTooLong = "<br>Email address too long"
If Len(Email) > 100 Then
ReportError strTooLong
End If
Email = LCase(Email)
Temp = Split(Email,"@",2,1)
If UBound(Temp) < 1 Then
ReportError strNotValid
End If
Temp2 = Split(Temp(1),".",-1,1)
If UBound(Temp2) < 1 Then
ReportError strNotValid
End If
End Function
%>
<%
Function SendMail(From,Rcpt,Subject,Body)
Trim(From)
Trim(Rcpt)
If Len(From) < 1 Then
ReportError strError & "<br>No Reply-to address (From) for this
letter"
End If
If Len(Rcpt) < 1 Then
ReportError strError & "<br>No recipient for this letter"
End If
IsValidEmail Rcpt
IsValidEmail From
Set objMailer = CreateObject("CDONTS.Newmail")
objMailer.From = From
objMailer.To = Rcpt
objMailer.Subject = Subject
objMailer.Body = Body
objMailer.Send
Set objMailer = Nothing
End Function
%>
<%
Function CheckForm()
Dim Temp,strTmp,strForce
strInputReq = "<br>Input required for "
If objFM.Exists("TGrequire") = False Then
Exit Function
ElseIf isEmpty(objFM.Item("TGrequire")) Then
Exit Function
End If
strForce = objFM.Item("TGrequire")
Temp = Split(strForce,",",-1,1)
For Each strTmp in Temp
If objFM.Exists(strTmp) = False Then
strError = strError & strInputReq & strTmp
ElseIf Len(objFM.Item(strTmp)) < 1 Then
strError = strError & strInputReq & strTmp
End If
Next
End Function
%>
<%
Function ParseForm()
For Each Item in Request.Form
If objFM.Exists(Item) Then
objFM.Item(Item) = objFM.Item(Item) & "," &
Request.QueryString(Item)
Else
objFM.Add Item,Request.Form(Item)
End If
Next
For Each Item in Request.QueryString
If objFM.Exists(Item) Then
objFM.Item(Item) = objFM.Item(Item) & "," &
Request.QueryString(Item)
Else
objFM.Add Item,Request.QueryString(Item)
End If
Next
End Function
%>
<%
Function SeqForm()
Dim Temp,strTmp,strOrder,strOut
If objFM.Exists("TGorder") = False Then
Exit Function
ElseIf isEmpty(objFM.Item("TGorder")) Then
Exit Function
End If
strOrder = objFM.Item("TGorder")
Temp = Split(strOrder,",",-1,1)
For Each strTmp in Temp
If objFM.Exists(strTmp) Then
strOut = strOut & strTmp & "=" & objFM.Item(strTmp) & Chr(10)
End If
Next
SeqForm = strOut
End Function
%>
<%
Function FormToString()
Dim strOut
strKeys = objFM.Keys
strValues = objFM.Items
For intCnt = 0 To objFM.Count -1
strOut = strOut & strKeys(intCnt) & "=" & strValues(intCnt) &
Chr(10)
Next
FormToString = strOut
End Function
%>
<%
Function ReportError(strMess)
If Len(strMess) < 1 Then
strMess = strError
End If
strErr = "The following error(s) happened: <br>" & strMess
Response.Clear
%>
<!--*******ERRONEOUS SUBMISSION RESPONSE - START*******-->
<!--ADD YOUR OWN HTML TOP SECTION STARTING HERE-->
<h1>Erro!</h1>
<!--ADD YOUR OWN HTML TOP SECTION UP TO HERE-->
<%'Error messages will be output here, between your html%>
<%
Response.Write(strErr)
%>
<!--ADD YOUR OWN HTML BOTTOM SECTION STARTING HERE-->
<p>
<b>Clique no botão voltar do seu navegador para corrigir</b>
</p>
<!--ADD YOUR OWN HTML BOTTOM SECTION UP TO HERE-->
<!--******ERRONEOUS SUBMISSION RESPONSE - END*******-->
<%
Credit
Response.End
End Function
%>
<%Function Credit%>
<!--START OF CREDIT - DO NOT CHANGE OR REMOVE ANYTHING BELOW THIS
LINE-->
<p align=center>
<font face="Arial,Helvetica" size=1>
</font>
</p>
<!--END OF CREDIT-->
<%End Function%>Desde já muito obrigado!
- Gheroabs likes this
