cyberalexxx

Comecei a uns 14 anos, quando ganhei um bolsa de estudos para programação em linguagem basic, tinha umas maquinas sem drive em que a gente grava os arquivos em uma fita K7, sabe aqueles gravadores toscos de antigamente?!?!? minha evolução: computadores cp400 e msx (linguagem basic) computadores cp500 e koringa (sistema cms - linguagem basic) pc xt (basic, wordstar, dbase e lotus 123 e DOS) pc at 286 (enfim um monitor ega de 256 cores, clipper) pc at 386 (DOS 6.22, windows 3.0, word, excel) depois disso a evolução acelerou d+ agora uso softwares pra tudo quanto é coisa. []'s

Isso chora, desabafa que é melhor (evita ulceras nervosas) Uma idéia: Tratar o nome dos arquivos, pois quando o FSO lista os arquivos de uma pasta ele lista em ordem alfabética, sendo assim c você tiver os nomes dos arquivos estruturados não sera necessário indexar o vetor. []'s

As paginas seguintes estão em branco, pois no inicio do seu script voce recupera os valores do formulário e gera a instrução sql que cria o recordset, sendo assim na segunda pagina os dados ficam em branco, pois não vai ter nada nos requests.

Renata!! Isso vai dar uma briga!!!! Vai ter que jogar os dados num vetor e ordenar-los!!! Complicado, mas não impossivel.. Realmente não é facil, olha aki um exemplo de indexação de um vetor. ''' Regular Array Sort Sub QuickSort(vec,loBound,hiBound,SortField,SortDir) '==--------------------------------------------------------== '== Sort a multi dimensional array on SortField == '== == '== This procedure is adapted from the algorithm given in: == '== ~ Data Abstractions & Structures using C++ by ~ == '== ~ Mark Headington and David Riley, pg. 586 ~ == '== Quicksort is the fastest array sorting routine for == '== unordered arrays. Its big O is n log n == '== == '== Parameters: == '== vec - array to be sorted == '== SortField - The field to sort on (1st dimension value) == '== loBound and hiBound are simply the upper and lower == '== bounds of the array's "row" dimension. It's probably == '== easiest to use the LBound and UBound functions to == '== set these. == '== SortDir - ASC, ascending; DESC, Descending == '==--------------------------------------------------------== if not (hiBound - loBound = 0) then Dim pivot(),loSwap,hiSwap,temp,counter Redim pivot (Ubound(vec,2)) SortDir = UCase(SortDir) '== Two items to sort if hiBound - loBound = 1 then if (SortDir = "ASC") then if FormatCompare(vec(loBound,SortField),vec(hiBound,SortField)) > FormatCompare(vec(hiBound,SortField),vec(loBound,SortField)) then Call SwapRows(vec,hiBound,loBound) else if FormatCompare(vec(loBound,SortField),vec(hiBound,SortField)) < FormatCompare(vec(hiBound,SortField),vec(loBound,SortField)) then Call SwapRows(vec,hiBound,loBound) end if End If '== Three or more items to sort For counter = 0 to Ubound(vec,2) pivot(counter) = vec(int((loBound + hiBound) / 2),counter) vec(int((loBound + hiBound) / 2),counter) = vec(loBound,counter) vec(loBound,counter) = pivot(counter) Next loSwap = loBound + 1 hiSwap = hiBound do '== Find the right loSwap if (SortDir = "ASC") then while loSwap < hiSwap and FormatCompare(vec(loSwap,SortField),pivot(SortField)) <= FormatCompare(pivot(SortField),vec(loSwap,SortField)) loSwap = loSwap + 1 wend else while loSwap < hiSwap and FormatCompare(vec(loSwap,SortField),pivot(SortField)) >= FormatCompare(pivot(SortField),vec(loSwap,SortField)) loSwap = loSwap + 1 wend end if '== Find the right hiSwap if (SortDir = "ASC") then while FormatCompare(vec(hiSwap,SortField),pivot(SortField)) > FormatCompare(pivot(SortField),vec(hiSwap,SortField)) hiSwap = hiSwap - 1 wend else while FormatCompare(vec(hiSwap,SortField),pivot(SortField)) < FormatCompare(pivot(SortField),vec(hiSwap,SortField)) hiSwap = hiSwap - 1 wend end if '== Swap values if loSwap is less then hiSwap if loSwap < hiSwap then Call SwapRows(vec,loSwap,hiSwap) loop while loSwap < hiSwap For counter = 0 to Ubound(vec,2) vec(loBound,counter) = vec(hiSwap,counter) vec(hiSwap,counter) = pivot(counter) Next '== Recursively call function .. the beauty of Quicksort '== 2 or more items in first section if loBound < (hiSwap - 1) then Call QuickSort(vec,loBound,hiSwap-1,SortField,SortDir) '== 2 or more items in second section if hiSwap + 1 < hibound then Call QuickSort(vec,hiSwap+1,hiBound,SortField,SortDir) end if End Sub 'QuickSort Sub SwapRows(ary,row1,row2) '==------------------------------------------== '== This proc swaps two rows of an array == '==------------------------------------------== Dim x,tempvar For x = 0 to Ubound(ary,2) tempvar = ary(row1,x) ary(row1,x) = ary(row2,x) ary(row2,x) = tempvar Next End Sub 'SwapRows function FormatCompare(sOne,sTwo) '==------------------------------------------== '== Checks sOne & sTwo, returns sOne as a == '== Numeric if both pass isNumeric, if not == '== returns sOne as a string. == '==------------------------------------------== if (isNumeric(Trim(sOne)) AND isNumeric(Trim(sTwo))) then FormatCompare = CDbl(Trim(sOne)) else FormatCompare = Trim(sOne) end if end function Sub PrintArray(vec,loRow,hiRow,markCol) '==------------------------------------------== '== Print out an array Highlight the column == '== whose number matches param markCol == '==------------------------------------------== Dim ColNmbr,RowNmbr Response.Write "<table border=""1"" cellspacing=""0"">" For RowNmbr = loRow to hiRow Response.Write "<tr>" For ColNmbr = 0 to (Ubound(vec,2) - 1) If ColNmbr = markCol then Response.Write "<td bgcolor=""FFFFCC"">" Else Response.Write "<td>" End If Response.Write vec(RowNmbr,ColNmbr) & "</td>" Next Response.Write "</tr>" Next Response.Write "</table>" End Sub 'PrintArray

good question!! nunca precisei fazer isso, mais agora me interessei, vou tentar alguma coisa aki. []'s

como eu já disse, são os parametros, agora para saber para que servem só vendo a função toda. []'s

voce pode usar server.mappath para pegar o endereço fisico do servidor, um exemplo: Response.write Server.Mappath("index.asp") esse código mostraria o endereço fisico do servidor, tipo e:\servidor\dominio\wwwroot\files\index.asp ai é so adaptar no código que eu passei.

esses são os parametros da função. um exemplo, uma função que mostre um determinado numero de caracter a partir da esquerda de uma palavra, ficaria assim: function esquerda(palavra, qtde) response.write left(palavra, qtde) end function para executar a função voce faria assim: esquerda("palavra qualquer", 3) []'s

já tentou assim: ="SELECT * FROM produtos WHERE nome NOT LIKE '[a,e,i,o,u]%'"

Para campos sim/não é assim: SELECT * FROM produtos WHERE promocao=true []'s

voce pode usar select top 9, para pegar as 9 noticias depois é so criar uma variavel auxiliar para exibir as mensagens na hora em q voce quizer, ou guardar tudo em um array e depois visualizar a seu modo.

Também não funcionou: http://www.cyberalex.retrieve.com.br/testes/client2.htm pelo jeito não é muito valido fazer isso, pois voce tem que torcer para o usuário ter o componente instalado, se tiver instalado como por exemplo no Windows XP pro ele tem que estar registrado (scrrun.dll) o navegador tem que q suportar o script, sem contar os sistemas de proteção que podem bloquear o script.

Voce ira precisar de um sistema de upload, veja com o seu servidor qual componente de upload ele suporta, para depois começar a desenvolver.

aki não deu certo não, deixei o script como voce postou, da uma olhada: http://www.cyberalex.retrieve.com.br/testes/client.htm

idade com campo numérico select * from TABELA where cidade='" & cidade & "' and idade=" & idade idade com campo alfanumérico select * from TABELA where cidade='" & cidade & "' and idade='" & idade & "'"

Uma maneira que eu acho mais facil de visualizar os erros quanto o insert tem muitos campos é fazer assim: sql = "INSERT INTO tabela (Id, Nome, Versao, Descricao, Windows, Autor, Data, Categoria, Destribuicao, Expirar, Downloads, Serv1, Serv2, Serv3, Serv4, Serv5, Extencao, Foto, Ampliada, Idioma, Votos, Positivos, Negativos, Enviador) VALUES(" sql = sql & "0," sql = sql & "'" & request.QueryString("nome") & "'," sql = sql & "'" & request.QueryString("versao") & "'," sql = sql & "'" & request.QueryString("descricao") & "'," sql = sql & "'" & request.QueryString("win") & "'," sql = sql & "'" & request.QueryString("autor") & "'," sql = sql & "'" & request.QueryString("data") & "'," sql = sql & "'" & request.QueryString("categoria") & "'," sql = sql & "'" & request.QueryString("destribuicao") & "'," sql = sql & "'" & request.QueryString("expira") & "'," sql = sql & "'" & request.QueryString("download") & "'," sql = sql & "'" & request.QueryString("s1") & "'," sql = sql & "'" & request.QueryString("s2") & "'," sql = sql & "'" & request.QueryString("s3") & "'," sql = sql & "'" & request.QueryString("s4") & "'," sql = sql & "'" & request.QueryString("s5") & "'," sql = sql & "'" & request.QueryString("extensao") & "'," sql = sql & "'" & request.QueryString("foto") & "'," sql = sql & "'" & request.QueryString("ampliada") & "'," sql = sql & "'" & request.QueryString("idioma") & "'," sql = sql & "'" & request.QueryString("votos") & "'," sql = sql & "'" & request.QueryString("negativos") & "'," sql = sql & "'" & request.QueryString("positivos") & "'," sql = sql & "'" & request.QueryString("enviador") & "')" rstExcel.Open sql, cnn, 3, 2 Agora é só dar uma olhada se os nomes dos campos estão corretos, se o tipo do campo é numérico ou caracter (aspas simples) e por ai vai.

tenta assim: select Nome from produto order by codProduto desc LIMIT 0, 1 []'S

Auditoria, Developer, é um papael muito importante nas empresas. O auditor é tipo "o olho do dono"... Levamos em consideração os objetivos principais da empresa e, principalmente, sua saúde financeira. A auditoria ocupaca um locar de STAF nas empresas, respondendo diretamente para a aulta diretoria quando não responde diretamente para os proprietários dela. Analisamos dados volumosos para encontrar "espes", tentativas de fraudes, fraudes e vícios (dos sistemas) que possam de alguma forma prejudicar a saúde financeria, a integridade da imagem da empresa ou o bom andamento do trabalho como um todo. Tem também a auditoria de sistemas, que visa preservar a segurança da informação (a informação é o bem mais valioso de uma empresa), desde a entrada dela na empresa, o processamento e as formas de saída dessa informação. E um trabalho investigativo e muito legal. Pra quem é da área de tecnologia, vai uma dica: bons auditores de sistema ganham bem no mercado. Em linhas gerais, é isso. Espero ter respondido sua pergunta. Bjocas... ;oÞ Mais uma da area de humanas se aventurando na informática. Eu sou economista e minha especialidade é controladoria e gestão financeira, programação virou Hobby []'s

Fiz meio na pressa da uma olhada se funciona. <%Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\pasta") Set arquivos = principal.Files For each arq in arquivos if left(arq.name,2) = "AE" then response.write "<a href='" & arq.name &"'> Ata Extraordinária de " & mid(arq.name,9,2) & "/" & mid(arq.name,7,2) & "/" & mid(arq.name,3,4)& "</a><br>" end if next%> []'s

formulario de contato usando CDONTS: <% sYouEmail="mail@seuemail.com.br" ' coloque aki o email q ira receber as mensagens EmailSubject="mensagem de usuario do SITE" FontColor="#3333FF" HeadColor="#ffc500" FormFontColor="#FFFFFF" FormBackColor="#3333FF" ErrorColor="red" Function ValidateField(sFieldvalue, sFieldtype) ValidField = true Select Case LCase(sFieldtype) Case "name" If Len(sFieldvalue) = 0 Then ValidField = False Case "email" If Len(sFieldvalue) < 5 Then ValidField = False Else If InStr(1, sFieldvalue, "@", 1) < 2 Then ValidField = False Else If InStr(1, sFieldvalue, ".", 1) < 4 Then ValidField = False End If End If End If Case "message" If Len(sFieldvalue) = 0 Then ValidField = False Case "else" ValidField = False End Select ValidateField = ValidField End Function Sub ShowForm %> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="634"> <tr> <td width="100%">&nbsp;<center><form action="<%= Request.ServerVariables("Script_Name") %>" method="post"> <p>&nbsp;</p> <table border="0" cellspacing="0" width="240" cellpadding=0><tr bgcolor="<%=HeadColor%>"> <td ALIGN="left"><font color="<%=FontColor%>" face="verdana,arial,helvetica" size="-1"><B> Seu Nome:</B></font>&nbsp;</td></tr> <tr><td><input name="name" type="text" value="<%= Request.Form("name") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td> </tr><tr><td><% If dictFields(LCase("name")) Then Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Voce precisa informar um nome</font>" Else Response.Write "&nbsp;" End If %> </td></tr> <tr bgcolor="<%=HeadColor%>"> <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>email:</B></font>&nbsp;</td></tr> <tr><td><input name="email" type="text" value="<%= Request.Form("email") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td> </tr><tr><td><% If dictFields(LCase("email")) Then Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>voce precisa informar um endereço de email valido</font>" Else Response.Write "&nbsp;" End If %> </td></tr> <tr bgcolor="<%=HeadColor%>"> <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B> Mensagem:</B></font>&nbsp;</td></tr> <tr><td><TEXTAREA NAME="message" WRAP=VIRTUAL COLS="45" ROWS=7 style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"><%= Request.Form("message") %></TEXTAREA></td> </tr><tr><td><% If dictFields(LCase("message")) Then Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2> Você precisa digitar uma mensagem</font>" Else Response.Write "&nbsp;" End If %> </td></tr> <tr><td colspan=2><font color="#000000" face="verdana,arial,helvetica" size="-1"><input type="checkbox" name="agree" value="true" <% if Len(Request.Form("agree")) > 0 then Response.Write "checked" End If %>> Clique aqui caso deseje fazer parte de nossa lista de contatos</td></tr> </table><p><input type="submit" value="Envia Mensagem"></input><br></form> <P> <% End Sub Sub Send sPunter = Request.Form("Name") sPunterEmail = Request.Form("Email") Message = Request.Form("message") If Request.Form("agree") = "true" then Mailout = "Ele deseja ser incluido em nossa lista de contatos" Else Mailout ="Ele NÃO deseja ser incluido em nossa lista de contatos" End If sMessage = "Essa é uma mensagem de " & sPunter & vbcrlf _ & vbcrlf _ & vbcrlf _ & Message & vbcrlf _ & vbcrlf _ & "Seu email é: " & sPunterEmail & vbcrlf _ & vbcrlf _ & Mailout & vbcrlf _ & vbcrlf Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.Send sPunterEmail, sYouEmail, EmailSubject, sMessage Set objNewMail = Nothing End Sub Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add LCase(Field), true End If Next If Request.Form.Count <> 0 And dictFields.Count = 0 Then %><P> &nbsp;<P> &nbsp;<b>Sua Mensagem foi enviada!<BR></b><P><b><i>Obrigado por entrar em contato.</i></b><BR> <% Call Send Else ShowForm End If %></td> </tr> </table>

geralmente as cameras que funcionam como fotografica e webcam na hora em q voce pluga o cabo USB aparece a opção na camera se ela dever ser usada como web cam ou como um Disco. Se não esta acontecendo nada, deve ser problema na USB mesmo.

Tive um problema uma vez convertendo um arquivo txt para BD, o navegador travou e depois que eu finalizei a tarefa começou a dar esse erro, ai eu reiniciei e zerou.

voce reiniciando a maquina e tentando abrir o script já da esse erro no primeiro acesso??

para fechar é assim, só substitua pelos nomes que você deu aos objetos. RecordSet.close set Recordset = nothing conexao.close set conexao = nothing

Resumo: O cara queria código pronto. foram indicadas fontes. Não serviram foram oferecidos serviços. Não foram aceitos e o tumulto começou Vou fechar o tópico pois isso não vai levar a lugar nenhum. []'s