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

#16 Victor ASP

Victor ASP

    Turista

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

Posted 04/09/2004, 12:26

Não tem suporte ASP no servidor...

La mostra o codigo de fonte:

<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
%>
<center></center>

</body>
</html>

Se tivesse suporte ele não mostraria o codigo asp no codigo de fonte... ;)

Tente hospedar em algum que tenha suporte a ASP, ou faça em PHP ;)

[]'s
Victor

#17 Leo_30

Leo_30

    Novato no fórum

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

Posted 04/09/2004, 13:32

Se eu pouco ou nada sei de ASP de PHP não sei mesmo nada. PHP é mais fácil de aprender e fazer algo, como pretendo fazer? Tenho o 2000 instalado que software necessito para utilizar o PHP???? Acho q seria melhor continuar em ASP não????

#18 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, 14:07

Se você busca o aprendizado, aprenda primeiro a fazer funcionar seus scripts no servidor local.

Se você já é desenvolvedor, escolha pelo que mais você tem vivencia:
- ASP tem o codigo sumilar ao VB, também pode ser escrito em JScript (Java).
- PHP tem código similar ao C++.

Para usar PHP você pode usar o próprio IIS, ou o Apache, e instalar o módulo PHP, para isto é necessário fazer o download no site www.php.net, se sua decisão for esta, melhor seria consultar o forum sobre PHP.
------
Mero mortal!

#19 viniciusjau

viniciusjau

    Veterano

  • Usuários
  • 1492 posts
  • Sexo:Masculino
  • Localidade:Jaú
  • Interesses:Web Designer em Geral

Posted 13/09/2004, 13:33

cara, eu estou tendo os mesmo problemas, estou tentando criar um chat pro meu site, baixei alguns "prontos" no wmonline, mais nenhum funciona cara... vc manda pro servidor e ele abre o codigo fonte isso qd não aparece uma msg assim:
Method Not Allowed
The requested method POST is not allowed for the URL /areateste/chat.asp.
Apache/1.3.27 Server at www.meudominio.com.br Port 80

como eu faço pra mexer nesse tal de Apache ai ???
Minha empresa: http://www.prismabrasil.com
Meu Blog: http://www.morandosozinho.net
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