Jump to content

  2. →
  3. →

Photo

Problemas Com Asp E Access

Started By Leo_30, 03/09/2004, 17:12

  • Faça o login para participar
18 replies to this topic

#1 Leo_30

Leo_30

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado
  • Localidade:Maceió

Posted 03/09/2004, 17:12

Antes de mais, kero dizer que sou novo em programação com ASP, sei apenas o q leio nos últimos dias as apostilas. Isso porque necessito de fazer alguns formulários para inserir dados e fazer alteração nos mesmos caso seja necessário. Já fiz a BD em Access e comecei a fazer alguma coisa em ASP, acho ue não é necessário dizer ue o resultado não foi o melhor. Mas ninguém nasce a saber tudo é por isso que resolvi escrever para encontrar uma alma caridosa que me ajude. Porque eu já estou a ficar com vontade de desistir.
Bem tenho uma página:

- alterar.asp:

<html>
<head>
<title>Acesse o seu curriculo</title>
</head>
<body>
<center><font face="Arial" size="4"><b>Formulário de Alteração</b></h2></center>

<%
If IsEmpty( Request.Form("submit") ) Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Constr = "DBQ=Z:\Inetpub\wwwroot\teste\Cadastro\cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Conexao.Open Constr
ComandoSQL = "SELECT * FROM tblpessoa"
Set bd = Server.CreateObject("ADODB.Recordset")
bd.CursorLocation = 2
bd.CursorType = 0
bd.LockType = 3
bd.Open ComandoSQL, conexao,,, &H0001

If Not bd.EOF Then
bd.Move Request.QueryString("n")
%>

<form method=post action="<%=Request.ServerVariables("script_name")%>">
<input type=hidden name="ComandoSQL" value="<%=ComandoSQL%>">
<input type=hidden name="Conexao" value="<%=Constr%>">
<table border=0 width="80%" align=center>
<tr>
<td align=right valign=top><font face="Arial" size="2">bairro:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="bairro" value="<%=bd("bairro")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">cpf:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="cpf" value="<%=bd("cpf")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">curriculo:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="curriculo" value="<%=bd("curriculo")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">estado:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="estado" value="<%=bd("estado")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">identidade:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="identidade" value="<%=bd("identidade")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">Logradouro:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="Logradouro" value="<%=bd("Logradouro")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">municipio:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="municipio" value="<%=bd("municipio")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">nome:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="nome" value="<%=bd("nome")%>" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">senha:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=password name="senha" value="<%=bd("senha")%>" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">telefone:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="telefone" value="<%=bd("telefone")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
</font>
</table>
<center><input type=submit name=submit value=Alterar style="{<font-family:Arial; font-size:12}"></center>
<input type="hidden" name="n" value="<%if Not IsEmpty(Request.QueryString("n"))then : Response.Write Request.QueryString("n") Else : Response.Write "0" : End If%>">
</form>
<center>
<%
If Request.QueryString("n") > 0 then
Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & ">&lt;&lt; Anterior</a>&nbsp;&nbsp;"
End If
bd.MoveNext
If Not bd.EOF then
Response.Write "&nbsp;&nbsp;<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo &gt;&gt;</a>"
End If
Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>
</center>

<%
End If
Else
If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("bairro")) <> "" AND Trim(Request.Form("cpf")) <> "" AND Trim(Request.Form("curriculo")) <> "" AND Trim(Request.Form("estado")) <> "" AND Trim(Request.Form("identidade")) <> "" AND Trim(Request.Form("Logradouro")) <> "" AND Trim(Request.Form("municipio")) <> "" AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("senha")) <> "" AND Trim(Request.Form("telefone")) <> "" Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Request.Form("Conexao")
ComandoSQL = Request.Form("ComandoSQL")
Set bd = Server.CreateObject("ADODB.Recordset")
bd.CursorLocation = 2
bd.CursorType = 0
bd.LockType = 3
bd.Open ComandoSQL, Conexao,,, &H0001
bd.Move Request.Form("n")
bd("bairro") = Server.HTMLEncode(Request.Form("bairro"))
bd("cpf") = Server.HTMLEncode(Request.Form("cpf"))
bd("curriculo") = Server.HTMLEncode(Request.Form("curriculo"))
bd("estado") = Server.HTMLEncode(Request.Form("estado"))
bd("identidade") = Server.HTMLEncode(Request.Form("identidade"))
bd("Logradouro") = Server.HTMLEncode(Request.Form("Logradouro"))
bd("municipio") = Server.HTMLEncode(Request.Form("municipio"))
bd("nome") = Server.HTMLEncode(Request.Form("nome"))
bd("senha") = Server.HTMLEncode(Request.Form("senha"))
bd("telefone") = Server.HTMLEncode(Request.Form("telefone"))
bd.UpdateBatch
bd.Requery
%>

<font face="Arial" size="2">
<center><br>Os dados foram enviados com sucesso!

<br><a href="index.asp"><b>Clique aqui</b></a> para continuar</font></center>

<%
Else
%>

<font face="Arial" size="2">
<center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente

<br><a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center>

<%
End If
End If
%>

</body>
</html>
- consulta.asp (Neste momento está assim, porue não sei fazer melhor mas o meu objetivo era fazer uma consulta por por nome. Isto é, que o utilizador ao clicar na letra A, aparecesse todos os nomes começados pela letra A e assim sucessivamente):

<html>
<head>
<title>Acesse o seu curriculo</title>
</head>
<body>
<center><font face="Arial" size="4"><b>Formulário de Consulta</b></h2></center>
<table border=0 width="80%" align=center>
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};"
ComandoSQL = "SELECT * FROM tblpessoa"
Set bd = Conexao.Execute(ComandoSQL)
If Not bd.EOF Then
bd.Move Request.QueryString("n")
%>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">bairro:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("bairro")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">cpf:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("cpf")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">curriculo:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("curriculo")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">estado:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("estado")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">identidade:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("identidade")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">Logradouro:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("Logradouro")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">municipio:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("municipio")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">nome:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("nome")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">senha:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("senha")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">telefone:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("telefone")%></b></font></td></tr>

</table><br><center>

<%
If Request.QueryString("n") > 0 then
Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & ">&lt;&lt; Anterior</a>&nbsp;&nbsp;"
End If

bd.MoveNext
If Not bd.EOF then
Response.Write "&nbsp;&nbsp;<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo &gt;&gt;</a>"
End If

Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>
</table>
</body>
</html>

- inserir.asp:

<html>
<head>
<title>Acesse o seu curriculo</title>
</head>
<body>
<center><font face="Arial" size="4"><b>Formulário de Inclusão</b></h2></center>
<%
If IsEmpty( Request.Form("submit") ) Then
%>
<form method=post action="<%=Request.ServerVariables("script_name")%>">
<table border=0 width="80%" align=center>
<tr>
<td align=right valign=top><font face="Arial" size="2">bairro:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="bairro" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">cpf:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="cpf" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">curriculo:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<textarea name="curriculo" rows=5 cols=20 style="{<font-family:Arial; font-size:12}"></textarea>
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">estado:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<select size="1" name="estado" style="{<font-family:Arial; font-size:12}">
<option value=""></option>
<option value="AL" selected>AL</option>
<option value="BA">BA</option>
<option value="CE">CE</option>
<option value="DF">DF</option>
<option value="ES">ES</option>
<option value="MG">MG</option>
<option value="PR">PR</option>
<option value="RJ">RJ</option>
<option value="RS">RS</option>
<option value="SC">SC</option>
<option value="SE">SE</option>
<option value="SP">SP</option>
</select>
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">identidade:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="identidade" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">Logradouro:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="Logradouro" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">municipio:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="municipio" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">nome:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="nome" value="" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">senha:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=password name="senha" value="" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
<tr>
<td align=right valign=top><font face="Arial" size="2">telefone:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<input type=text name="telefone" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
</td>
</tr>
</table>
<center><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}">
</center>
</form>
<%
Else
If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("bairro")) <> "" AND Trim(Request.Form("cpf")) <> "" AND Trim(Request.Form("curriculo")) <> "" AND Trim(Request.Form("estado")) <> "" AND Trim(Request.Form("identidade")) <> "" AND Trim(Request.Form("Logradouro")) <> "" AND Trim(Request.Form("municipio")) <> "" AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("senha")) <> "" AND Trim(Request.Form("telefone")) <> "" Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=Z:\Inetpub\wwwroot\teste\Cadastro\cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};"
ComandoSQL = "INSERT INTO tblpessoa (bairro, cpf, curriculo, estado, identidade, Logradouro, municipio, nome, senha, telefone)"
ComandoSQL = ComandoSQL & " VALUES ("
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("bairro")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cpf")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("curriculo")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("estado")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("identidade")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Logradouro")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("municipio")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("senha")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("telefone")) & "')"
Set bd = Conexao.Execute(ComandoSQL)
Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>
</body>
</html>

Neste momento é todo o código que tenho. Será ue alguém me consegue ajudar?
Fico a aguardar.
Obrigado

Estas páginas estão a ser colocadas em(talvez ajude):

- http://www.perfilcom...ro/inserir.asp;
- http://www.perfilcom...ro/alterar.asp;
http://www.perfilcom...ro/consulta.asp.

#2 Leo_30

Leo_30

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado
  • Localidade:Maceió

Posted 03/09/2004, 17:36

tentei fazer uma apostila que tem o seuinte código:
- cadastrar.asp:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<Table cellpading=0 cellspacing=0>
<tr>
<form method="POST" action="cod.asp">
<td>
Categoria :
</td>
<td>
<input name="nome" type="text" id="nome" size="20">
</p>
</td>
<tr>
<td>
<input type="submit" value="Cadastrar" name="cadastro"></p>
</td>
</tr>
</form>
</table>
</body>
</html>

- cod.asp:

<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("banco_de_dados.mdb")
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<%
categoria = Request.Form("nome")
%>
<%
If (nome = "") then
Response.write("Você deve digitar um nome para cadastrar")
Else
set rs = DB.execute("INSERT INTO tabela (nome) Values('"&nome&"')")
End if

%>

mas aparece sempre este erro:

Method Not Allowed
The requested method POST is not allowed for the URL /teste/cadastro/cod.asp.
--------------------------------------------------------------------------------
Apache/1.3.28 Server at ......


O que estou a fazer de errado?????????

#3 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 03/09/2004, 17:57

Qual a linha do erro?

#4 Leo_30

Leo_30

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado
  • Localidade:Maceió

Posted 04/09/2004, 09:27

Como assim linha do erro????? Nada funciona. Apenas e só isso.

#5 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 04/09/2004, 09:55

Hhuahuahuahuhuahuahuahua... nada funciona, então joga o PC fora!!!

Method Not Allowed
The requested method POST is not allowed for the URL /teste/cadastro/cod.asp.
--------------------------------------------------------------------------------
Apache/1.3.28 Server at ......

Espero que o módulo ASP do seu Apache esteja bem configurado. :)
------
Mero mortal!

#6 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 04/09/2004, 10:34

Usa no seu PC o method get, pois o post nos pcs não ta funfando não sei pc... Mas quando for na net se usa o post.

Vê se funfa se você usar o get

#7 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 04/09/2004, 10:40

Victor ASP...
se eu comentar que não vai funcionar, estarei sendo pessimista?

Pois... não vai funcionar!!!


Leo_30...
Só um conselho, é melhor instalar o IIS (para Win NT, 2k ou XP) ou o PWS (para win 9x ou Me) na sua máquina local e estudar o funcionamento dos seus script, da uma lida no FAQ de ASP.
------
Mero mortal!

#8 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 04/09/2004, 10:42

Victor ASP...
se eu comentar que não vai funcionar, estarei sendo pessimista?

Pois... não vai funcionar!!!


Leo_30...
Só um conselho, é melhor instalar o IIS ou o PWS na sua máquina local e estudar o funcionamento dos seus script, da uma lida no FAQ de ASP.

Funcionar vai funcionar sim, só basta ele fazer o codigo pegando da querustring que funciona sim, eu tentei aqui ;)

#9 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 04/09/2004, 10:44

Method Not Allowed
The requested method POST is not allowed for the URL /teste/cadastro/cod.asp.
--------------------------------------------------------------------------------
Apache/1.3.28 Server at ......


Victor ASP...
entendo que seu trabalho se tornaria mais produtivo se entendesse todos os post, e, principalmente, se fizer a leitura por completo.
------
Mero mortal!

#10 Leo_30

Leo_30

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado
  • Localidade:Maceió

Posted 04/09/2004, 11:05

Não estou a usar o meu PC mas sim um Servidor que tem vários sites, incluindo é claro o da minha empresa.
Podem verificar pelo seguinte endereço:

http://www.perfilcom...tro/alterar.asp
consulta.asp
inserir.asp

Estou no MSN: batista_nuno@hotmail.com

Estou a dar em DOIDO

==================================================

VITOR eu estou a colocar diretamente na NET!!!!!!!!!!!!! E a testar tb!!!!

Edição feita por: LeoB, 04/09/2004, 11:31.

#11 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 04/09/2004, 11:07

Review... Stop... Play...

Leo_30...
Só um conselho, é melhor instalar o IIS (para Win NT, 2k ou XP) ou o PWS (para win 9x ou Me) na sua máquina local e estudar o funcionamento dos seus script, da uma lida no FAQ de ASP.


------
Mero mortal!

#12 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 04/09/2004, 11:13

Não estou a usar o meu PC mas sim um Servidor que tem vários sites, incluindo é claro o da minha empresa.
Podem verificar pelo seguinte endereço:

http://www.perfilcom...tro/alterar.asp
consulta.asp
inserir.asp

Estou no MSN: batista_nuno@hotmail.com

Estou a dar em DOIDO

Ta. Mas você tem certeza que a hospedagem tem suporte a ASP?

#13 Leo_30

Leo_30

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado
  • Localidade:Maceió

Posted 04/09/2004, 11:21

Penso que tem suporte a ASP, pelo menos é o que está contratado. Mas vou telefonar para lá. Além disso acho que existe algo errado porque tb qd tento criar uma página para enviar emails, colocado algures neste site, tentei e não recebi nada.
Envio foto para confirmarem que tenho o IIS instalado no meu PC.
Obrigado

Attached Files

  • Attached File  IIS.jpg   58.59KB   0 downloads

#14 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 04/09/2004, 11:26

No seu host local seus scripts não funcionam???

As tentativas no host da sua empresa serão frustradas, uma vez que o servidor é Apache, por padrão, não da suporte a ASP e, aparentemente, nenhum módulo ASP foi instalado neste servidor.
------
Mero mortal!

#15 Leo_30

Leo_30

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado
  • Localidade:Maceió

Posted 04/09/2004, 12:18

Se é assim, como consigo visualizar as páginas em ASP, ou seja, se eu digitar http://www.perfilcom...tro/alterar.asp a página abre, vejo como se fosse uma página HTML normal. Mas os scripts em ASP, não funcionam. No meu PC acontece o mesmo. ACHO QUE SOU EU E NÃO OS PC'S. tentei fazer um tutorial que vi na Internet (http://www.aspbrasil...odConteudo=1174) e não funciona tb.
Aqui vai o código, que eu coloquei:

- viewtable.html:
<html>
<head>
<title>Viewtable</title>
</head>
<body>
<!-- Cria o formulario -->
<form method="post" target="tela" action="viewtable_action.asp">
<p>Tabela:
<input type="text" name="tabela">
</p>
<p>
<input type="submit" value="Visualizar">
</p>
</form>
<!-- No frame abaixo vai acontecer a ACÃO do programa (ACTION) -->
<center>
<iframe name="tela" width="95%" height="80%" src="about:blank"></iframe>
</center>
</body>
</html>
- viewtable_action.asp:
<%@ language="vbscript" %>
<!--#Include file="adovbs.inc"-->
<%
'Abre a conexão com o banco de dados
db = Server.MapPath("bancodedados.mdb")
connstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connstring

'Primeiro vemos se foi digitado algo no campo "TABELA"
tabela = Request.Form("tabela")
'Se não estiver vazio roda o script
if NOT tabela = "" then
'Imprime o nome da tabela %>
<h2>Nome da tabela: <%= tabela %> </h2>
<table border="1" width="100%">
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
rs.open tabela, Conn, adOpenForwardOnly, adLockOptimistic, adCmdTable
%>
<tr>
<% 'Conta os numero de colunas na tabela
numeroDeColunas = RS.fields.Count
'Cria o LOOP
for x = 0 to (numeroDeColunas - 1) %>
<TH><%= RS.Fields(x).Name 'Imprime os nomes da coluna %></TH>
<% next %>
</tr>
<% 'Cria o LOOP para os dados de cada linha
While NOT RS.EOF %>
<TR>
<% for each col in RS.Fields %>
<TD><%= col.Value %></TD>
<% next %>
</TR>
<% RS.MoveNext
Wend

'Destroi o RecordSet
RS.Close
Set RS = Nothing

else
Response.Write "Não foi digitado nada no campo tabela"
end if

'Destrói os objetos
Conn.Close
Set Conn = Nothing
%>

http://www.perfilcom.../viewtable.html

TAMBÉM NÃO FUNCIONA............ OU SOU EU OU É O PC
Voltar para ASP


0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq