Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sandro Araujo

conexao com MSDE

Por , em ASP Clássico

Recommended Posts

Sandro Araujo    0

Sandro Araujo
Postado

Boa Tarde

 

Estou com um problema para conectar a minha base msde no Terra, já peguei o script de conexão alterei e ainda não funciona, se houver alguem que possa dar uma olhada e ver se é problema do código ou do Terra me dê uma luz, pq na minha máquina local esta funcionado perfeitamente e no Terra não funciona e dá o erro :

 

HTTP 500 - erro interno do servidor

Internet Explorer .

Segue o código :

http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

valeu

 

<html>

<head>

<title>Ativo Fixo - Alteração</title>

</head>

<body>

<center><font face="Arial" size="5"><b>Formulário de Alteração</b></h2></center>

 

<%

If IsEmpty( Request.Form("submit") ) Then

Set oConn = Server.CreateObject("ADODB.Connection")

'Criando o objeto de conexão

oConn.Open "DSN=pape; UID=pape; PWD=pateta;"

'Abrindo conexão com o banco de dados

 

ComandoSQL = "SELECT * FROM Bem"

 

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="3">Tipo:</font></td>

<td align=left valign=top>

<font face="Arial" size="3">

<input type=text name="Tipo" value="<%=bd("Tipo")%>" size=15 maxlength=50

 

style="{<font-family:Arial; font-size:13}">

</td>

</tr>

<tr>

<td align=right valign=top><font face="Arial" size="3">Loja:</font></td>

<td align=left valign=top>

<font face="Arial" size="3">

<input type=text name="Loja" value="<%=bd("Loja")%>" size=15 maxlength=50

 

style="{<font-family:Arial; font-size:13}">

</td>

</tr>

<tr>

<td align=right valign=top><font face="Arial" size="3">Condicao:</font></td>

<td align=left valign=top>

<font face="Arial" size="3">

<input type=text name="Condicao" value="<%=bd("Condicao")%>" size=15 maxlength=50

 

style="{<font-family:Arial; font-size:13}">

</td>

</tr>

<tr>

<td align=right valign=top><font face="Arial" size="3">Data Compra:</font></td>

<td align=left valign=top>

<font face="Arial" size="3">

<input type=text name="DtCompra" value="<%=bd("DtCompra")%>" size=15 maxlength=50

 

style="{<font-family:Arial; font-size:13}">

</td>

</tr>

<tr>

<td align=right valign=top><font face="Arial" size="3">Fornecedor:</font></td>

<td align=left valign=top>

<font face="Arial" size="3">

<input type=text name="Fornecedor" value="<%=bd("Fornecedor")%>" size=15 maxlength=50

 

style="{<font-family:Arial; font-size:13}">

</td>

</tr>

<tr>

<td align=right valign=top><font face="Arial" size="3">Nota Fiscal Compra:</font></td>

<td align=left valign=top>

<font face="Arial" size="3">

<input type=text name="NFiscalCompra" value="<%=bd("NFiscalCompra")%>" size=15 maxlength=50

 

style="{<font-family:Arial; font-size:13}">

</td>

</tr>

<tr>

<td align=right valign=top><font face="Arial" size="3">Valor Compra:</font></td>

<td align=left valign=top>

<font face="Arial" size="3">

<input type=text name="VlrCompra" value="<%=bd("VlrCompra")%>" size=15 maxlength=50

 

style="{<font-family:Arial; font-size:13}">

</td>

</tr>

<tr>

<td align=right valign=top><font face="Arial" size="3">Depreciação:</font></td>

<td align=left valign=top>

<font face="Arial" size="3">

<input type=text name="Depreciacao" value="<%=bd("Depreciacao")%>" size=15 maxlength=50

 

style="{<font-family:Arial; font-size:13}">

</td>

</tr>

</font>

</table>

<center><input type=submit name=submit value=Alterar style="{<font-family:Arial;

 

font-size:13}"></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 & "><< Anterior</a>  "

End If

bd.MoveNext

If Not bd.EOF then

Response.Write "  <a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" &

 

Request.QueryString("n") + 1 & ">Próximo >></a>"

End If

 

 

oConn.Close

Set oConn = Nothing

%>

</center>

 

<%

End If

Else

If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("Tipo")) <> "" AND

 

Trim(Request.Form("Loja")) <> "" AND Trim(Request.Form("Condicao")) <> "" AND

 

Trim(Request.Form("DtCompra")) <> "" AND Trim(Request.Form("Fornecedor")) <> "" AND

 

Trim(Request.Form("NFiscalCompra")) <> "" AND Trim(Request.Form("VlrCompra")) <> "" AND

 

Trim(Request.Form("Depreciacao")) <> "" 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("Tipo") = Server.HTMLEncode(Request.Form("Tipo"))

bd("Loja") = Server.HTMLEncode(Request.Form("Loja"))

bd("Condicao") = Server.HTMLEncode(Request.Form("Condicao"))

bd("DtCompra") = Server.HTMLEncode(Request.Form("DtCompra"))

bd("Fornecedor") = Server.HTMLEncode(Request.Form("Fornecedor"))

bd("NFiscalCompra") = Server.HTMLEncode(Request.Form("NFiscalCompra"))

bd("VlrCompra") = Server.HTMLEncode(Request.Form("VlrCompra"))

bd("Depreciacao") = Server.HTMLEncode(Request.Form("Depreciacao"))

bd.UpdateBatch

bd.Requery

%>

 

<font face="Arial" size="3">

<center><br>Os dados foram enviados com sucesso!

 

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

 

<%

Else

%>

 

<font face="Arial" size="3">

<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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Pachevisk    3

Pachevisk
Postado

Desabilita mensagens de erro HTTP amigáveis no Internet Explorer e posta o erro do teu pequeno codigo ai... 1. No menu Ferramentas do Internet Explorer, clique em Opções da Internet. 2. Clique na guia Avançadas. 3. Na lista de opções em Navegação, desmarque a caixa de seleção Mostrar mensagens de erro HTTP amigáveis. 4. Clique em Aplicar e em OK.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito