Bertolani

E ai pessoal tudo bom? Trabalho atualmente com ASP e componentes em VB e gostaria de iniciar no .NET. vocês conhecem algum livro ou página na web com documentacao, apostilias enfim algum material bom para dar início no .NET... []´s Flavio Bertolani

Valeu cara, o que q tenho q fazer e um pouco diferente + já ajudou bastante. qualquer coisa eu escrevo novamente []´s Bertolani

Voce pode usar uma Session no momento em que o usuario se logar, e então dentro da "area restrita" você verifica se a session esta vazia: if sessio("Login") = "" Then response.redirect("login.asp") End if Entendeu? []´s Bertolani

Boa tarde galera, alguém sabe como eu faco paginação em ASP. Tenho q ter os botoes primeiro, anterior, proximo, ultimo e quando eu clico no proximo por exemplo, aparecem os proximos 20 registros. Desde já obrigado, Bertolani

Tente este codigo aqui: Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\inetpub\ftproot\inventory\" & NOME DO ARQ, ForReading) Do While f.AtEndOfStream <> True linha=f.readline Loop f.Close fso.deletefile("c:\inetpub\ftproot\inventory\" & InFile) Neste caso estou deletando o arquivo..... e o nome do arquivo na é representado por uma variavel.. qualquer coisa manda o codigo ae novamente. []´s Bertolani

E ai galera beleza?? Vou ter q criar um controle de usuario tipo quem ve o que, e para isso pensei em usar vairal session. O usuario ao ser cadastrado recebe permissao para ver uma regiao, um estado e assim por diante e na pagina para q eu possa filtrar uso essas permissoes atraves de um session. Ex Ficha de Territorio Select * from territorio where terr_id = '" & session(x) & "' foi isso q eu pensei... O problema e o seguinte a variavel de sessao fica presa na sessao e para limpar tenho q fechar todas as sessoes e abrir uma nova. Como faço para resolver isso, aquele comando <meta http-equiv="Pragram" content="no-cache"> não funcionou, e assim mesmo q eu uso ele?? Eu preciso usar o global.asa para lidar como isso?? Se alguém tiver algum tutorial sobre o assunto ficaria grato. Obrigado, Bertolani

você já imprimiu esse SQL e jogou no Access? Roda corretamente!? Os parametros estao corretos? []´s Bertolani

Pelo q eu entendi quando você carrega a pagina na primeira vez acontece o problema. quando você usa include funciona da mesma maneira como se você tivesse o script do include na pagina, então se o valor da senha estiver em braco vai dar pau. você esta entrando com senha nesta pagina?? []´s Bertolani

Cara veja se isso te ajuda!!! auxday = now() response.write(formatdatetime(auxday,4)) response.write("<br>") response.write(hour(auxday) & ":" & minute(auxday) & ":" & second(auxday)) []´s Bertolani

Galera segue parte do codigo que estou usando para "tentar" fazer a soma de datas no fim de semana. Como é uma área de teste, tem varios comentarios e algumas tentativas comentadas........ Obirgado pela força galera!! []´s Bertolani Session.LcId = 1046 vControle_NUM = Request.QueryString("Cont") vTicket_NUM=Request.QueryString("Num") vASSUNTO = trim(request.form("txtAssunto")) vPRIORIDADE = trim(Request.Form("txtPrioridade")) vEQUIPAMENTO = trim(Request.Form("txtEquipamento")) 'Abre conexao com os bancos %> <!--#include file="includes/conn.inc"--> <% strSQL = "SELECT * FROM TK_TICKET WHERE TK_CONTROLE_NUM='" & vControle_NUM & "' and TK_TICKET_NUM=" & vTicket_NUM & " AND TK_STATUS <>'2-Fechado' AND TK_STATUS <>'4-Cancelado'" Set rs_tk=TKconn.execute(strSQL) vABERTURA = rs_tk("TK_ABERTURA_DT") If rs_tk.eof then 'Se o Ticket já tiver sido fechado, uma mensagem de erro é exibida. Response.redirect("mensagem.asp?Msg=TICKET+NÃO+ENCONTRADO+OU+JÁ+ESTÁ+CANCELADO+OU+FECHADO&Target=T&Documento=lista.asp?ORD=TK_TICKET_NUM") end if 'faço o update do ticket 'verifica se o assunto selecionado é o mesmo do ticket CHK_ASSUNTO = rs_tk("TK_ASSUNTO") CHK_PRIORIDADE = rs_tk("TK_PRIORIDADE") CHK_EQUIPAMENTO = rs_tk("TK_DESK_LAP") If len(vASSUNTO) > 0 Then If CHK_ASSUNTO <> vASSUNTO Then strSQL = "Select * from TK_ASSUNTO WHERE TK_ASSUNTO_NM= '" & vASSUNTO & "'" Set rs_tk = TKconn.execute(strSQL) vTARGET = rs_tk("TK_TARGET_NUM") vSLA = rs_tk("TK_SLA_NUM") If vTARGET <> "" And vSLA <> "" Then 'Calcula a data do target e do sla vTARGET_DT = DateAdd("d", vTARGET, vABERTURA) vTARGET_DT = CDate(vTARGET_DT) vSLA_DT = DateAdd("d", vSLA, vABERTURA) vSLA_DT = CDate(vSLA_DT) response.write(day(vTARGET_DT)) 'verifica se e fim de semana if weekday(vTARGET_DT) = 7 then 'Sábado 'Aqui você deve tratar os dias do mês day(vTARGET_DT) = day(vTARGET_DT) + 2 elseif weekday(vTARGET_DT) = 1 then 'Domingo 'Aqui você deve tratar os dias do mês day(vTARGET_DT) = day(vTARGET_DT) + 1 end if 'If WeekDay(vTARGET_DIA = 7) Then 'Sabado 'vTARGET_DIA = DatePart(w, CDatevTARGET_DT) 'If vTARGET_DIA = 7 Then 'vTARGET_DT = DateAdd("d", 2, vTARGET_DT) 'End If 'If DatePart(w, vTARGET_DT = 7) Then response.write("sabado target") response.end ' vTARGET_DT = DateAdd("d", 2, vTARGET_DT) ' vTARGET_DT = CDate(vTARGET_DT) ' End If 'If WeekDay(vTARGET_DT = 1) Then 'Domingo If DatePart(w, vTARGET_DT = 1) Then response.write("<br>domingo target") ' 'vTARGET_DT = vTARGET_DT + 1 ' Tambem funciona ' vTARGET_DT = DateAdd("d", 1, vTARGET_DT) ' vTARGET_DT = CDate(vTARGET_DT) End If response.end If WeekDay(vSLA_DT = 7) Then 'Sabado response.write("<br>sabado sla") ' vSLA_DT = DateAdd("d", 2, vSLA_DT)' + 2)vSLA_DT + 2 ' ' vSLA_DT = CDate(vSLA_DT) End If If WeekDay(vSLA_DT = 1) Then 'Domingo response.write("<br>domingo sla") ' vSLA_DT = DateAdd("d", 1, vSLA_DT) 'vSLA_DT = vSLA_DT + 1 ' ' vSLA_DT = CDate(vSLA_DT) End If response.end response.write("<br>dia target " & formatdatetime(vTARGET_DT, 1)) response.write("<br>dia sla " & formatdatetime(vSLA_DT, 1)& "<br>") strSQL="UPDATE TK_TICKET SET TK_ASSUNTO='" & vAssunto & "', TK_TARGET_DT = cdate(#" & month(vTARGET_DT) & "/" & day(vTARGET_DT) & "/" & year(vTARGET_DT) & " " & FORMATDATETIME(vTARGET_DT,3) &"#), TK_SLA_DT = cdate(#" & month(vSLA_DT) & "/" & day(vSLA_DT) & "/" & year(vSLA_DT) & " " & FORMATDATETIME(vSLA_DT,3) & " #) WHERE TK_STATUS<>'2-Fechado' AND TK_STATUS<>'3-Fechado' AND TK_STATUS<>'4-Cancelado' AND TK_TICKET_NUM=" & vTicket_NUM & " AND TK_CONTROLE_NUM='" & vControle_NUM & "'" Else vTARGET_DT = " null " vSLA_DT = " null " strSQL="UPDATE TK_TICKET SET TK_ASSUNTO='" & vAssunto & "', TK_TARGET_DT = " & vTARGET_DT & ", TK_SLA_DT = " & vSLA_DT & " WHERE TK_STATUS<>'2-Fechado' AND TK_STATUS<>'3-Fechado' AND TK_STATUS<>'4-Cancelado' AND TK_TICKET_NUM=" & vTicket_NUM & " AND TK_CONTROLE_NUM='" & vControle_NUM & "'" End If response.end 'verifica se e fim de semana If WeekDay(vTARGET_DT = 7) Then 'Sabado response.write("sabado target") vTARGET_DT = DateAdd("d", 2, vTARGET_DT) vTARGET_DT = CDate(vTARGET_DT) End If If WeekDay(vTARGET_DT = 1) Then 'Domingo response.write("domingo target") 'vTARGET_DT = vTARGET_DT + 1 ' Tambem funciona vTARGET_DT = DateAdd("d", 1, vTARGET_DT) 'vTARGET_DT = CDate(vTARGET_DT) End If If WeekDay(vSLA_DT = 7) Then 'Sabado response.write("sabado sla") vSLA_DT = DateAdd("d", 2, vSLA_DT)' + 2)vSLA_DT + 2 'vSLA_DT = CDate(vSLA_DT) End If If WeekDay(vSLA_DT = 1) Then 'Domingo response.write("domingo sla") vSLA_DT = DateAdd("d", 1, vSLA_DT) 'vSLA_DT = vSLA_DT + 1 'vSLA_DT = CDate(vSLA_DT) End If 'response.write("<br>") 'response.write(strSQL) response.end Set rs_tk=TKconn.execute(strSQL) 'crio um registro no historico Historico vTicket_NUM,vControle_NUM, Session("LoginHd"), " ASSUNTO ALTERADO PARA " & vAssunto & "","EDITA" Else response.redirect ("mensagem.asp?msg=+O+assunto+já+é+assunto+atual+do+chamado&Target=T&documento=javascript:history.go(-1);") End If End if

Valeu cara obrigado mesmo......aqui o pessoal esta sempre diposto a ajudar!!!!!!!muito legal isso. Forte Abraço Flavio Bertolani

Amigo, já trabalhei numa empresa que fabricava tinta e te digo q o processo não e tão simples assim!!!!! na epoca eu atualizava a pagina de Internet dos caras porque esse sistema era feito fora com uma consultoria. você tem q conectar com a balaca q pode ser uni ou bidirecional, tem uns detalhes meio chatos ai no processo... Tente entrar em contato com alguma consultoria que faz isso....acho q foi uma consultoria chamada acabit um negocio assim....tente entrar em contato com eles []´s Bertolani

Cara não sei o que esta acontecendo + ta dando certo... vou tentar novamente e qualquer coisa eu volto a escrever... []´s Bertolani

Velhinho, continua com o mesmo erro na linha do if.... acho q tem q ter uma funcao pra isso...eu vejo isso e se eu descobrir o erro envio pro grupo. []´s Bertolani

Perguntei isso porque deu erro: Microsoft VBScript runtime (0x800A0005) Invalid procedure call or argument: 'DatePart' meu if esta assim: If DatePart(w, vTARGET_DT = 7) Then vTARGET_DT = DateAdd("d", 2, vTARGET_DT) End If o que há de errado neste codigo??? Valeu galera.. []´s Bertolani

Cara pra mim usar isso tenho q fazer uma funcao ou somente no if ele certo?? []´s Bertolani

Galera outra duvida q surgiu agora.... Function retorna valor e Sub rotina não ne!!!?? o que e um metodo e uma propriedade? Se alguém souber de um site que tenha estes topicos, pode manda q eu do uma lida...estou totalmente enferrujado em VB.. Mais 1 vez obrigado, Bertolani

Valeu cara.....+ depois de "fuçar" um pouco acabei lembrando..... Agora me surgiu outra duvida? Qual e a diferenca entre Adodc1.RecordSet.AddNew e .Update???? Quando eu for inserir um novo registro no banco, um botao inserir, devo usar qual destes comandos. Obrigado pela ajuda []´s Bertolani

E ai galera bl? Fiz um programinha para acessar um bd access e verificar se duas datas vao cair no sabado ou no domingo e para isso uso a funcao WeekDay(dia = 7 Then)... Na hora não tive tempo de testar + agora percebi que ta com pau, tenho 4 if um para o sabado e outro para o domingo para ambas as datas, + ele ta entrando nos quatro if mesmo se o dia não for no fim de semana ex: If WeekDay(dia1 = 7) Then Dia = DateAdd("d", 2, dt_abertura) 'somo dois usando a data de abertura como parametro End If If WeekDay(dia2 = 1)Then Dia = DateAdd("d", 1, dt_abertura) End If ................. já tentei usar FormatDateTime(dia, 1...) dentro do if + não deu certo alguém sabe me dizer o que tem de errado com este codigo Obrigado []´s Bertolani

E ae pessoal beleza? Trabalho com ASP na empresa e fui escolhido para desenvolver um sistema em VB. Eu vi VB apenas na Facul e já esqeci de alguns detalhes. Minha duvida inicial e a seguinte: tenho um form onde contem um campo texto e um botao Inlcuir. Faco minha conexao com banco usando ADO (incluo apenas o componente ADO) entro nas propriedades dele, seleciono Jet como tipo de conexao, depois na guia RecordSource escolho a opcao 2 q esta relacionada com tabela (se eu estiver erado por favor me corrijam), ate ai eu lembro. + quando eu entro no botao incluir e digito o seguinte comando: Adodc1.RecordSet.AddNew da pau, diz q a variavel não esta setada alguém sabe me dizer o que estou fazendo de errado? Obrigado []´s Bertolani

Galera consegui resolver, usei o cdate dentro do sql e um abraço. Valeu pela forca galera. []´s Bertolani

Existem duas maneiras a primeira e fazer uma conexao nativa e a outra e atraves de uma fonte de dados ODBC. O primeiro ex. faz uma conexao sem DSN e o segundo com. Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB\Agenda.mdb") Conn.Open strConnection Set TKconn = Server.CreateObject("ADODB.Connection") TKconn.open "Ticket","","" Set rs_tk = Server.CreateObject("ADODB.Recordset") Espero ter respondido o que você queria. []´s Bertolani

você pode criar variaveis de sessao quando o usuario logar. Verifique todas as "permissoes do cliente" e grava em uma ou varias variaveis de sessao. Depende da qte de opcoes q o usuario tera. Para fazer isso você precisa gerar um SQL dinamico, pois você tem q receber um parametro e jogar na instrucao para saber o que o cara vai ver ex: strSQL = "SELECT a,b,c FROM PROCESSOS WHERE USUARIO = session" Ou ainda você pode ter alguns CASES na tela onde você concatena o where Case "processo a" where a = a Case "processo b" where b = b ................ Pode ser q exista uma maneira mais facil do q essa + e assim q eu faço. Espero ter ajudado. []´s Bertolani

Cara nada feito... continua gravando na ordem contraria... Valeu! []´s Bertolani

O problema e o seguinte não estou usando o now, a data que tenho já esta cadastrada no bd, pego a data e em cima dela q tenho q fazer essa "brincadeira". Em outra pagina eu faco isso vData = " now+ " dias_a_mais, mas não consigo fazer isso dar certo quando pego a data do banco.