Untitled Document

<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bdados/muscular.mdb") & ";" %>

Atletas da Capa

Dicas

Ensaios

Edições Anteriores

Tudo Sobre

Assine a Revista

Bolsa de Negócios

Opinião

Sugestões

LEVE ESSAS DUAS FORÇAS
PARA SUA CASA!!!

REVISTA
MUSCLE
IN FORM
6 edições *
assinatura
individual
R$ 35,00

REVISTA
MOVIMENTO
MUSCULAR
6 edições *
assinatura
individual
R$ 29,00

por apenas R$ 54,00**
Assine a revista Muscle in Form e a revista Movimento Muscular.
Além de você ganhar um desconto de R$ 10,00, você ainda leva para casa
o que há de mais atual em matéria de qualidade de vida e culto ao corpo.

Preencha todos os campos do formulário abaixo:

<% Dim nome, endereco, numero, bairro, cidade, cep, estado, ddd, fone, e-mail, TIPO Nome = request.form("nome") Endereco = request.form("endereco") numero = request.form("numero") bairro = request.form("bairro") cidade = request.form("cidade") cep = request.form("cep") estado = request.form("estado") ddd = request.form("ddd") fone = request.form("fone") e-mail = request.form("e-mail") TIPO = request.form("TIPO") Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\inetpub\wwwroot\bdados\muscular.mdb;Driver={Microsoft Access Driver (*.mdb)};" ComandoSQL = "INSERT INTO ASSINATURAS (nome, endereco, numero, bairro, cidade, cep, estado, ddd, fone, e-mail, TIPO)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("endereco")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("numero")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("bairro")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cidade")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cep")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("estado")) & "'," ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("ddd")) & "," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("fone")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("e-mail")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("TIPO")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing %>
Os dados foram enviados com sucesso!
Clique aqui para continuar <% Else %>
Atenção: Alguns dados necessário não foram preenchidos corretamente
Clique aqui para voltar <% objConn.Close Set objConn = Nothing %>

* A Movimento Muscular e a Muscle in Form são uma publicação bimestral da American Fitness Editora Ltda.
** Promoção por tempo limitado

Este site é melhor visualizado em
800 X 600