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