Fala galera! Só um pequeno cometário: Nossa, meu dia foi inteirinho falando de ASP e ASP.NET, talvez dia 7 e 8 de Outubro sejam os dias ACTIVE SERVER PAGES da minha vida, papai ASP me dará novos componentes!
Deixando brincadiras, alguém pode me indicar o erro do seguinte código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Expires = 0 %>
<%
'Conecta-se ao banco de dados
Dim objConn, objRS, strQN, strQS
Dim strConecta
Set objConn = Server.CreateObject("ADODB.Connection")
strConecta = "DSN=Acesso;Database=Acesso;UID=;PWD=;"
objConn.Open strConecta
'Cria Recordset
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
'Faz ligação com formulário
Dim varNome, varSenha, varTitulo, varTituloN
varNome = Trim(Request.Form("nome"))
varSenha = Trim(Request.Form("senha"))
varTitulo = Trim(Request.Form("titulo"))
varTituloN = Trim(Request.Form("noticia"))
'Validação
varNome = Replace(varNome, "<", "<")
varSenha = Replace(varSenha, "<", "<")
varTitulo = Replace(varTitulo, "<", "<")
'SQL
StrQN = "SELECT Nome FROM User WHERE Nome LIKE " & varNome & ";"
StrQS = "SELECT Senha FROM User WHERE Senha LIKE " & varSenha & ";"
a = objRS.Open(strQN) 'Linha 30
b = objRS.Open(strQS)
Quando testo a página da o seguinte erro:
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'Nome LIKE'.
/Site/verify_login.asp, line 30
No caso, usei as variáveis 'a' e 'b' para armazenar o resultado da consulta SQL.
------------------------------------------------------------------------------------------------------------------
Bom, tem outro abacaxi também: Estou tentando usar FSO (FileSystemObject) e acontece o seguinte erro:
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A0046)
Permissão negada
/ASP/open_txt.asp, line 20
Olhem o código fonte:
<% @LANGUAGE = VBSCRIPT %>
<% Response.Expires = 0 %>
<% Dim objTXT, strArquivo, strConteudo
strArquivo = Trim(Request.Form("arquivo"))
If strArquivo <> "" Then %>
<html>
<head>
<title>Arquivo aberto: <%= strArquivo %></title>
</head>
<body>
<form action="open_txt.asp" method="post" target="_self">
<b>Escolha um arquivo de texto para ser aberto:</b><br>
<input type="file" name="arquivo"> <input type="submit" value="Abrir">
</form>
<% Set objTXT = Server.CreateObject("Scripting.FileSystemObject")
strConteudo = objTXT.OpenTextFile(strArquivo)
Response.Write(strConteudo) %>
</body>
</html>
<% Else %>
<html>
<head>
<title>Abertura de texto</title>
</head>
<body>
<form action="open_txt.asp" method="post" target="_self">
<b>Escolha um arquivo de texto para ser aberto:</b><br>
<input type="file" name="arquivo"> <input type="submit" value="Abrir">
</form>
</body>
</html>
<% End If %>
Seria alguma configuração do IIS para resolver o probleminha FSO? Mas qual seria a configuração?
Bom falows! Espero que alguém resolva meus problemas ACTIVE SERVER PAGES
Pergunta
Denis Bittencourt Muniz
Fala galera! Só um pequeno cometário: Nossa, meu dia foi inteirinho falando de ASP e ASP.NET, talvez dia 7 e 8 de Outubro sejam os dias ACTIVE SERVER PAGES da minha vida, papai ASP me dará novos componentes!
Deixando brincadiras, alguém pode me indicar o erro do seguinte código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Expires = 0 %> <% 'Conecta-se ao banco de dados Dim objConn, objRS, strQN, strQS Dim strConecta Set objConn = Server.CreateObject("ADODB.Connection") strConecta = "DSN=Acesso;Database=Acesso;UID=;PWD=;" objConn.Open strConecta 'Cria Recordset Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = objConn 'Faz ligação com formulário Dim varNome, varSenha, varTitulo, varTituloN varNome = Trim(Request.Form("nome")) varSenha = Trim(Request.Form("senha")) varTitulo = Trim(Request.Form("titulo")) varTituloN = Trim(Request.Form("noticia")) 'Validação varNome = Replace(varNome, "<", "<") varSenha = Replace(varSenha, "<", "<") varTitulo = Replace(varTitulo, "<", "<") 'SQL StrQN = "SELECT Nome FROM User WHERE Nome LIKE " & varNome & ";" StrQS = "SELECT Senha FROM User WHERE Senha LIKE " & varSenha & ";" a = objRS.Open(strQN) 'Linha 30 b = objRS.Open(strQS)Quando testo a página da o seguinte erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'Nome LIKE'. /Site/verify_login.asp, line 30 No caso, usei as variáveis 'a' e 'b' para armazenar o resultado da consulta SQL. ------------------------------------------------------------------------------------------------------------------ Bom, tem outro abacaxi também: Estou tentando usar FSO (FileSystemObject) e acontece o seguinte erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0046) Permissão negada /ASP/open_txt.asp, line 20 Olhem o código fonte:<% @LANGUAGE = VBSCRIPT %> <% Response.Expires = 0 %> <% Dim objTXT, strArquivo, strConteudo strArquivo = Trim(Request.Form("arquivo")) If strArquivo <> "" Then %> <html> <head> <title>Arquivo aberto: <%= strArquivo %></title> </head> <body> <form action="open_txt.asp" method="post" target="_self"> <b>Escolha um arquivo de texto para ser aberto:</b><br> <input type="file" name="arquivo"> <input type="submit" value="Abrir"> </form> <% Set objTXT = Server.CreateObject("Scripting.FileSystemObject") strConteudo = objTXT.OpenTextFile(strArquivo) Response.Write(strConteudo) %> </body> </html> <% Else %> <html> <head> <title>Abertura de texto</title> </head> <body> <form action="open_txt.asp" method="post" target="_self"> <b>Escolha um arquivo de texto para ser aberto:</b><br> <input type="file" name="arquivo"> <input type="submit" value="Abrir"> </form> </body> </html> <% End If %>Seria alguma configuração do IIS para resolver o probleminha FSO? Mas qual seria a configuração?
Bom falows! Espero que alguém resolva meus problemas ACTIVE SERVER PAGES
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.