DESENVOLVER ASP CLASSICO
Boa Noite Pessoal,
Como estou querendo aprender a Desenvolver em asp classico, gostaria de saber se existe um programa para desenvolver asp classico ???
Grato.
Como estou querendo aprender a Desenvolver em asp classico, gostaria de saber se existe um programa para desenvolver asp classico ???
Grato.
eu testei muitos, mutios editores , comecei no TEXTpad , ASPEdit , TXT , Etc ........mais parerei de procurar e mudar quando instalei o Dreamweaver 8
tem muito diferença talves pro Dreamweaver CS nunca fiz essa avalição , e o MX , tb tem umas coisa meio desreguladas, na questao de RecordSets, arrastar direto da tabela pra tela com o banco conectado no programa , nele da pra conectar direto no FTP e fazer atualizacoes direto no Site .
Curto demais ASP, adoro conversar de ASP , é lindo as respostas no navegador . caso quiser trocar umas ideias , no que eu puder ajudar , será muito bom atté
tem muito diferença talves pro Dreamweaver CS nunca fiz essa avalição , e o MX , tb tem umas coisa meio desreguladas, na questao de RecordSets, arrastar direto da tabela pra tela com o banco conectado no programa , nele da pra conectar direto no FTP e fazer atualizacoes direto no Site .
Curto demais ASP, adoro conversar de ASP , é lindo as respostas no navegador . caso quiser trocar umas ideias , no que eu puder ajudar , será muito bom atté
Muito obrigado pela ajuda, concerteza vou precisar de toda ajuda disponivel.
Preciso aprender asp classico para fazer projetos na Empresa onde trabalho.
Atualmente sei programar em VB.NET e ASP.NET, uso o Visual Studio 2010.
Preciso aprender asp classico para fazer projetos na Empresa onde trabalho.
Atualmente sei programar em VB.NET e ASP.NET, uso o Visual Studio 2010.
Boa noite Pessoal,
Estou aprendendo asp, estou com o um página abaixo o seguinte código:
<!--#Include File= [Ô]conexao.asp[Ô]-->
<html>
<head><title>Aprendo ASP</title>
<body>
<%
dim SQL
pnome = Request.form([Ô]pnome[Ô])
snome = Request.form([Ô]snome[Ô])
if Request.form <> [Ô][Ô] then
pnome = Request.form([Ô]pnome[Ô])
snome = Request.form([Ô]snome[Ô])
SQL = [Ô]INSERT INTO TB_USUARIO([Ô] & NOME & [Ô],[Ô] & SOBRENOME & [Ô]) Values ([Ô]& pnome & [Ô],[Ô]& snome & [Ô])[Ô]
end if
%>
<form method=[Ô]post[Ô] action=[Ô]defaul.asp[Ô]>
Primeiro Nome: <input type=[Ô]text[Ô] name=[Ô]pnome[Ô]>
<br>
Sobrenome: <input type=[Ô]text[Ô] name=[Ô]snome[Ô]>
<br>
<br>
<input type=[Ô]submit[Ô] value=[Ô]Enviar[Ô]>
</form>
</body>
</html>
Essa é a página de conexao que está no include.
<%
dim conexao
set conexao = Server.CreateObject([Ô]ADODB.Connection[Ô])
conexao.open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\jr este.mdb[Ô]
%>
Estou aprendendo asp, estou com o um página abaixo o seguinte código:
<!--#Include File= [Ô]conexao.asp[Ô]-->
<html>
<head><title>Aprendo ASP</title>
<body>
<%
dim SQL
pnome = Request.form([Ô]pnome[Ô])
snome = Request.form([Ô]snome[Ô])
if Request.form <> [Ô][Ô] then
pnome = Request.form([Ô]pnome[Ô])
snome = Request.form([Ô]snome[Ô])
SQL = [Ô]INSERT INTO TB_USUARIO([Ô] & NOME & [Ô],[Ô] & SOBRENOME & [Ô]) Values ([Ô]& pnome & [Ô],[Ô]& snome & [Ô])[Ô]
end if
%>
<form method=[Ô]post[Ô] action=[Ô]defaul.asp[Ô]>
Primeiro Nome: <input type=[Ô]text[Ô] name=[Ô]pnome[Ô]>
<br>
Sobrenome: <input type=[Ô]text[Ô] name=[Ô]snome[Ô]>
<br>
<br>
<input type=[Ô]submit[Ô] value=[Ô]Enviar[Ô]>
</form>
</body>
</html>
Essa é a página de conexao que está no include.
<%
dim conexao
set conexao = Server.CreateObject([Ô]ADODB.Connection[Ô])
conexao.open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\jr este.mdb[Ô]
%>
<form method=[Ô]post[Ô] action=[Ô]defaul.asp[Ô]> é default .....
para voce saber se ta conectado
coloca abaixo de open
response.write conexao.state
-1 ou 0 nao conectado
1 conectado
para voce saber se ta conectado
coloca abaixo de open
response.write conexao.state
-1 ou 0 nao conectado
1 conectado
Todo banco ACCESS no ASPCLASS precisa tratar o Usuario . UISR ... entao vc botao inverso no access , aba segurança , se nao tiver precisa habilitar no S.O. , ai ... clica em Avancados , Procurar . e seleciona ele , UISR algo como esse nome , ai voce atribui leitura gravacao . no arquivo . e salva , ai o access ira funcionar ...... é ncessario fazer esse procedimento toda vez q muda o access de pasta , ou descompacta de um RAR .... sempre conferir isso ... pra depois testar conexao
Ale,
Mandei o projeto de estudo no e-mail ( aledaoriginal@gmail.com ),
Por favor poderia verificar o que estou fazendo de errado.
Grato.
Mandei o projeto de estudo no e-mail ( aledaoriginal@gmail.com ),
Por favor poderia verificar o que estou fazendo de errado.
Grato.
Citação:<%
dim SQL
pnome = Request.form([Ô]pnome[Ô])
snome = Request.form([Ô]snome[Ô])
if Request.form <> [Ô][Ô] then
conexao.execute([Ô]INSERT INTO TB_USUARIO( NOME , SOBRENOME ) Values ([ô][Ô]& pnome & [Ô][ô],[ô][Ô] & snome & [Ô][ô])[Ô])
end if
%>
Para fazer insert , os nomes dos campos nao tem Aspas pois os campos são do DB , e as variaveis ...... poderiam ser ([ô][Ô]& request.form([Ô]pnome[Ô]) & [Ô][ô],[ô][Ô] & request.form([Ô]snome[Ô]) & [Ô][ô])[Ô]) tambem daria certo
no asp classico geralmente é
Abre Aspas simples Aspas Duplas & macro variavel & macro fecha aspas duplas fecha aspas simples .... esse é o formato .
alem de que voce poderia ter feito ADDNEW se tratando de ACCESS , todos comandos ADO pegam ,
CAso isso acima nao funcionar ...... veja sobre , desmarcar confiança de arquivo pasta confiavel , aparece a aba de segurança , adicionar procurar IUSR_SERVER e seleciona esse e atribui todos acesso a ele ..... isso nao vai ver em nenhuma apostila , e se nao fazer nao ira funcionar .
aqui funcionou somente arrumando a linha do insert e atribui acesso do iuser ao access ,
Consegui !!!!
Ficou assim o meu comando:
<%
set rs = Server.CreateObject([Ô]ADODB.RecordSet[Ô])
SQL = [Ô]INSERT INTO TB_USUARIO(NOME,SOBRENOME) Values ([ô][Ô] & Request.Form([Ô]pnome[Ô]) & [Ô][ô],[ô][Ô]& Request.Form([Ô]snome[Ô]) & [Ô][ô])[Ô]
set rs = conexao.execute(SQL)
%>
Muito obrigado Amigão!!!!!
Ficou assim o meu comando:
<%
set rs = Server.CreateObject([Ô]ADODB.RecordSet[Ô])
SQL = [Ô]INSERT INTO TB_USUARIO(NOME,SOBRENOME) Values ([ô][Ô] & Request.Form([Ô]pnome[Ô]) & [Ô][ô],[ô][Ô]& Request.Form([Ô]snome[Ô]) & [Ô][ô])[Ô]
set rs = conexao.execute(SQL)
%>
Muito obrigado Amigão!!!!!
Boa niote,
Estrou com o Codigo Asp abaixo, mas não consigo validar o campos na hora gravar.
<!--#include file = [Ô]conexao.asp[Ô]-->
<html>
<head><title>Aprendo ASP</title></head>
<body>
<%
PNOME = Request.Form([Ô]pnome[Ô])
SNOME = Request.Form([Ô]snome[Ô])
Public sub verifica()
if (PNOME <> [Ô][Ô] and SNOME <> [Ô][Ô]) then
SQL = [Ô]INSERT INTO TB_USUARIO(NOME,SOBRENOME)Values([ô][Ô]&PNOME&[Ô][ô],[ô][Ô]&SNOME&[Ô][ô])[Ô]
set rs = conexao.execute(SQL)
response.Write [Ô]<script>alert([ô]Cadastro efetuado com Sucesso![ô])</script>[Ô]
else
response.Write [Ô]<script>alert([ô]Favor informar os Dados![ô])</script>[Ô]
end if
End sub
%>
<form name=[Ô]Gravar[Ô] action=[Ô]Gravar[Ô] method=[Ô]post[Ô]>
Primeiro Nome: <input name=[Ô]pnome[Ô] type=[Ô]text[Ô]>
<br>
Sobrenome: <input name=[Ô]snome[Ô] type=[Ô]text[Ô]>
<br>
<br>
<input type=[Ô]submit[Ô] value=[Ô]Gravar[Ô]>
</form>
</body>
</html>
Estrou com o Codigo Asp abaixo, mas não consigo validar o campos na hora gravar.
<!--#include file = [Ô]conexao.asp[Ô]-->
<html>
<head><title>Aprendo ASP</title></head>
<body>
<%
PNOME = Request.Form([Ô]pnome[Ô])
SNOME = Request.Form([Ô]snome[Ô])
Public sub verifica()
if (PNOME <> [Ô][Ô] and SNOME <> [Ô][Ô]) then
SQL = [Ô]INSERT INTO TB_USUARIO(NOME,SOBRENOME)Values([ô][Ô]&PNOME&[Ô][ô],[ô][Ô]&SNOME&[Ô][ô])[Ô]
set rs = conexao.execute(SQL)
response.Write [Ô]<script>alert([ô]Cadastro efetuado com Sucesso![ô])</script>[Ô]
else
response.Write [Ô]<script>alert([ô]Favor informar os Dados![ô])</script>[Ô]
end if
End sub
%>
<form name=[Ô]Gravar[Ô] action=[Ô]Gravar[Ô] method=[Ô]post[Ô]>
Primeiro Nome: <input name=[Ô]pnome[Ô] type=[Ô]text[Ô]>
<br>
Sobrenome: <input name=[Ô]snome[Ô] type=[Ô]text[Ô]>
<br>
<br>
<input type=[Ô]submit[Ô] value=[Ô]Gravar[Ô]>
</form>
</body>
</html>
PSPAD e NOTEPAD++ todo santo dia 
Tópico encerrado , respostas não são mais permitidas