vivigrieco

hummmmmmmm você tá com seu ICQ aberto??? me autoriza aih... tipo assim, sou meio "novata" em ASP, deu um erro, q pode ser besteira: Microsoft VBScript runtime error '800a01a8' Object required: '' /trocamoviment/consult.asp, line 52 essa linha é a q você me deu: Set RsAgencias = Conn.Execute(sql1) se você tiver com o icq aberto, me autoriza? alem dessa , tenho mais uma duvidazinha... :]

é, tipo assim.. na verdade cada consulta dakela vai me retornar apenas um resultado, o resultado que realmente me interessa é o da 2ª consulta, que eu quero colocar no textfield, só que eu não posso fazer a 2ª consulta se eu não tiver o resultado da 1ª, q vai como "parametro" na 2 consulta..

bom... outro probleminha "básico"... eu preciso fazer duas consultas no SQL e pegar o resultado da 2ª consulta e jogar num textfield. Mais ou menos assim: set RSAgencias = Server.CreateObject("ADODB.Recordset") RSAgencias.Activeconnection = MM_Movimentacao_STRING SQL3 = "select cuorgaousu from cu_cadastro_usuarios where cumatusu='"&UsLogin&"'" aí eu preciso do resultado dessa consulta acima pra fazer essa: SQl4 = "select agdescricao from ag_agencias where agcodigo='"&SQL3&"'" e depois preciso do resultado dessa 2ª consulta pra colocar no textfield: <input name="agencia" type="text" id="agencia2" value="<%=SQL%>" size="40"> só que ambas as consultas utilizam a mesma conexao.. e não sei como fazer pra pegar apenas o resultado da consulta... alguém pode me ajudar???

valeu !

<% MM_Seguranca_STRING = "provider=sqloledb;user id=castanho;password=;initial catalog=bp_seguranca;data source=producao_06" %> naquela 1ª página que eu mostrei, eu uso as duas consultas, tanto a MM_Segutanca_STring quando a MM_Movimentacao_STRING e não dá erro.. por isso estranhei...

alguém pode me dar uma luz???? em uma página, eu tenho o seguinte código: <% set RSUsuarios = Server.CreateObject("ADODB.Recordset") RSUsuarios.ActiveConnection = MM_Seguranca_STRING RSUsuarios.Source = "SELECT UsLogin,UsNome,Usmatr FROM Us_Usuarios order by UsNome" RSUsuarios.CursorType = 3 RSUsuarios.CursorLocation = 2 RSUsuarios.LockType = 3 RSUsuarios.Open() RSUsuarios_numRows = 0 set RSAgencias = Server.CreateObject("ADODB.Recordset") RSAgencias.ActiveConnection = MM_Movimentacao_STRING RSAgencias.Source = "select agCodigo, AgDescricao from ag_agencias order by agCodigo" RSAgencias.CursorType = 0 RSAgencias.CursorLocation = 2 RSAgencias.LockType = 3 RSAgencias.Open() RSAgencias_numRows = 0 %> essa página, depois de clicar em botão, chama uma outra que tem o seguinte código: <% Botao = Trim(Request.Form("Botao")) UsLogin = Trim(Request.Form("UsLogin")) set RSAgencias = Server.CreateObject("ADODB.Recordset") RSAgencias.Activeconnection = MM_Movimentacao_STRING Sql = "select * from cu_cadastro_usuarios where cuMatUsu ='"& UsLogin &"'" RSAgencias.Open(Sql) %> até aí td bem... o problema ocorre quando eu coloco essa consulta: set RSUsuarios = Server.CreateObject("ADODB.Recordset") RSUsuarios.ActiveConnection = MM_Seguranca_STRING SQL2= "select USnome from us_usuarios where usmatr='"&UsLogin&"'" RSUsuarios.open(SQL2) quando eu coloco este código acima, dá o seguinte erro: ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /trocamoviment/consult.asp, line 32 essa "linha 32" é a linha do "ActiveConnection" desta consulta que está dando o erro. Alguém sabe o porque e como resolver????????

tipo assim... eu quero fazer esses ifs, mas não se o cara estiver logado, e sim se ele existir ou não na tabela do banco de dados... tentei fazer assim: set RSAgencias = Server.CreateObject("ADODB.Recordset") RSAgencias.Activeconnection = MM_Movimentacao_STRING SQL2 = "select * from cu_cadastro_usuarios where cuMatUsu ='"& UsLogin &"'" RSAgencias.Open(SQL2) if RSAgencias.RecordCount then SQL = "insert into cu_cadastro_usuarios (cuMatUsu, cuUniUsu, cuOrgaoUsu) values ('"&UsLogin&"','41501202','"& AgDescricao &"')" RSAgencias.Open(SQL) else SQL = "UPDATE cu_cadastro_usuarios Set cuOrgaoUsu ='" & AgDescricao & "'" SQL = SQL & " WHERE CuMatUsu ='" & UsLogin &"'" End if On Error Resume next RSAgencias.Open(SQL) só que ele sempre acusa que não conseguiu gravar o registro, tanto se eu for fazer um update como um insert, apesar de os campos da consulta sql estarem certos...

é o seguinte.. através da minha aplicação, eu faço um update em uma tabela SQL, passnado um "login" e uma "agencia", porém eu preciso saber, antes de fazer esse update, se o campo "Login" que eu passei já existe no banco, caso não exista, quero fazer um insert ao invés de um update. Alguém sabe como eu faço isso?

olá a todos, é o seguinte, eu salvei um arquivo do excel como HTML, e eu preciso proteger esse arquivo para que outras pessoas não possam modificá-lo, tipo, abrindo em um editor e mudando os seus valores. alguém sabe como fazer isso???? Viviane Grieco

<% Dim ObjFso, ObjArq, vik Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") vik = "fundo.css" Set ObjArq = ObjFso.GetFile(Server.MapPath("/arquivos/" & vik & "")) Response.Write "Nome do arquivo: " & ObjArq.Name & "" vika = request.QueryString("vika")%> <input name="vika" type="hidden" id="vika" value="<%=ObjArq.name%>"> <%'"vika" estah retornando vazio if IsEmpty(vika) then response.Write("isto é um teste") else response.Write(ObjArq.name) %>