cyberalexxx

dicas para ler um arquivo txt: http://scriptbrasil.com.br/forum/index.php...ndpost&p=282793 quando ao ";" é só dar um split na linha quebrando por ponto e virgula

Para incluir datas voce usa o insert colocando o novo valor entre ' ou # quanto a consulta aki tem um exemplo: http://scriptbrasil.com.br/forum/index.php...ndpost&p=281205

um exemplo testa ai: set conexao=server.createobject("adodb.connection") caminho="DBQ=" & server.mappath("banco.mdb") conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & caminho sql = "Select top 1 * from tabela order by data desc" set rs=conexao.execute(sql) datainicial = Cdate(rs("data")) + 1 datafinal = Cdate("31/12/2005") 'aki voce define até onde quer ir Do while datainicial <= datafinal sql = "Insert into tabela data values('" & datainicial & "')" conexao.execute(sql) datainicial = datainicial + 1 loop Testa ai Ah!! se registre no forum!!

de um response.redirect para a pagina de action: response.redirect ("main.asp?data="&Date())

O que eu sei é que para qualquer componente de email o q você precisa é de um servidor SMTP instalado e isso já vem com o IIS

em VB eu uso a propriedade state, deve funcionar também no ASP pois é uma propriedade do Objeto ADO If conexao.state = 1 then response.write "Conexão estabelecida" else response.write "Conexão Não Estabelecida" end if

Movendo para .NET

já tentou configurar o evento click do datagrid para abrir o link com base no valor da linha clicada no datagrid??? quer que eu mova seu tópico para a área de .NET ???

tutorial encotrado no sempre util macoratti.net: http://www.macoratti.net/filesyst.htm

Voce pode usar FSO!! Voce esta sempre la no ASP, você já manipulou arquivos texto com FSO é a mesma coisa.

uma lógica: * abra o sistem.ini para leitura * leia a linha e guarde seu valor em um vetor * faça uma comparação se a linha é a linha que inicia o bloco boot. * caso tenha encontrado o bloco boot adicione ao vetor a linha q você quer incluir * depois que tiver percorrido todo o arquivo linha a linha voce terá um vetor com todo o conteudo do system.ini * feche o arquivo que estava em modo de leitura * abra o arquivo sistem.ini no modo de sobrepor e grave todo ele novamente com base no vetor.

'recupera dados do form nome = Request("nome") sobrenome = request("sobrenome") idade = request("idade") 'concatenando valores valorparainserir = nome & " " & sobrenome & ", " & idade & " anos" 'criando instruçõ SQL sql = "Insert into tabela(usuario) values('" & valorparainserir & "')" 'inserindo o valor no BD conexao.execute (sql)

da!! é so concatenar os valores na hora de dar o insert!!

tenta isso: rsconta.Open "SELECT count(Festas.*) as totaldefotos FROM Imagens RIGHT JOIN Festas ON Imagens.Codigo = Festas.Imagem01 WHERE Festas.Tipo = 2 ORDER BY Festas.Data DESC", conn response.write "Total de fotos na galeria: " & rsconta("totaldefotos")

sql = "Select count(campo) as totaldefotos from tabela where galeria=1" set rs = conexao.execute(sql) response.write "Total de Fotos na galeria: " & rs("totaldefotos") neste exemplo aparecera o total de fotos da galeria 1

Olha aki um tópico só sobre esse erro: http://scriptbrasil.com.br/forum/index.php?showtopic=28873

pra que esse ; no final??

Outra coisa! acho que nem precisava toda essa tradução e sim dizer que é um script que valida um usuário e senha e recupera informações do usuário, ai é só fazer isso em PHP que é mole.

'recupera valores dos formularios para variaveis: email_fla = Request("email_input") senha_fla = Request("senha_input") 'define uma instrução SQL de consulta strSQL = "SELECT * FROM usuarios WHERE email LIKE '" & email_fla & "'" 'cria um recordset com os dados da consulta oRS.Open strSQL, oConn, 2, 3 If oRS.EOF Then ' caso não encontre dados Response.Write "success=False&" 'variavel sucess é falsa Else 'caso contrario Response.Write "success=True&" 'variavel success é verdadeira Do While Not oRS.EOF 'laço exucutado até o ultimo registro do recordset senha_db = oRS("senha") ' define um variavel com o valor do campo senha If senha_db = senha_fla then 'compara se o valor do banco com o valor do form Response.Write "resultado=True&nome_db=" Else Response.Write "resultado=False&nome_db=" End If nome_db = oRS("nome") 'define a variavel nome_db com o valor do campo nome do BD oRS.MoveNext 'move o cursor para o proximo registro Loop 'loop é loop mesmo ou seja volta a iniciar o laço End If 'fechando e destruindo objetos oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing

crie um tabela itensdopedito onde voce coloca todos os produtos comprados bem como codigo do produto, quantidade, preço, ai voce coloca também o numero do pedido e o codigo do cliente, quando for exibir o pedido é só dar um select filtrando a query pelo codigo do pedido.

para data é so testar o campo usando Isdate para quando o campo perder o foco

rode esse script no servidor para ver se o componente esta instalado: <% @ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(12) Dim theComponentName(12) ' componentes theComponent(0) = "ADODB.Connection" theComponent(1) = "SoftArtisans.FileUp" theComponent(2) = "AspHTTP.Conn" theComponent(3) = "AspImage.Image" theComponent(4) = "LastMod.FileObj" theComponent(5) = "Scripting.FileSystemObject" theComponent(6) = "SMTPsvg.Mailer" theComponent(7) = "CDONTS.NewMail" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" theComponent(10) = "Persits.Upload.1" theComponent(11) = "UnitedBinary.AutoImageSize" theComponent(12) = "Dundas.Upload.2" ' apelido do componente! theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" theComponentName(5) = "FileSystemObject" theComponentName(6) = "ASPMail" theComponentName(7) = "CDONTS" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" theComponentName(10) = "Persits Upload" theComponentName(11) = "AutoImageSize" theComponentName(12) = "Dundas Upload" Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <html> <head> <title>O q tem aqui?</title> </head> <body> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes instalados:</b></font></td> </tr> <tr> <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <% Dim i For i=0 to UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write "<tr>" & vbCrLf Response.Write "<td width=""100%"">" & vbCrLf Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf End If Next %> </table> </font> </td> </tr> </table> </body> </html> esse foi o primeiro script que eu achei aki na minha maquina. mais já testa o CDONTS, se voce der uma procurada no forum vai encontrar mais scripts que verificam quais componentes estão instalados, se não me engano peguei um aki uma vez que testa mais de 50 componentes, sõ não lembro onde salvei o infeliz

Ué!!! Não consigou abrir com um editor de texto??

Se estiver usando RND de uma olhada se voce esta colocou um Randomize antes

mais um exemplo (totalmente aleatório): <% randomize caracteres="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z" matriz=split(caracteres,",") for x = 1 to 6 valor = matriz(Ubound(matriz) * rnd) senha = senha & valor next response.write senha %>