cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Tudo que cyberalexxx postou
-
tenta isso <% if WeekDay(Data_final)=1 then response.write "Data cai no Domingo" Data_final = Data_final + 1 end if %>
-
1º passo - ver qual componente para envio de email seu servidor disponibiliza, esse script abaixo faz isso: <% @ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(11) Dim theComponentName(11) ' 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" ' 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" 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> 2 - O ideal é ter uma pagina de administração para cadastrar as novas noticias e disparar automaticamente as mensagen para os usuarios. Mais comece definindo o componente que você ira trabalhar e depois volte ai
-
Da uma olhada neste artigo que ensina como fazer: http://www.htmlstaff.org/asp/asp169.php
-
Acho que voce não pode usar o Fix pois existem letras no arquivo ai ele não consegue converter
-
Tente mudar para a linha 5 para: contador = txt.Readline
-
qual é a linha 5?? você já deu um response.write na variavel contador??? não existem espaços em branco a direira do texto??? se tiver use um trim na variavel contador.
-
só para testar informe um e-mail valido para teste e tente enviar de novo: substitua o: para = request.form("E-mail de recebimento:") para: para = "email@servidor.com.br" só pra tirar uma duvida
-
alguém conhece ou sabe se existe algum componente que gere um DataGrid em ASP permitindo inclusão e alteração de dados????
-
É meu caro, ta na hora de trocar de servidor!!!
-
O nome do campo do formulario é esse mesmo "E-mail de recebimento:" ???
-
executa esse script aqui no servidor para ver os componentes instalados: <% @ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(11) Dim theComponentName(11) ' 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" ' 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" 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>
-
Olha um erro na linha 21: objEmail.AddRecipient para O correto não seria objEmail.AddRecipient = para T+
-
Este codigo é uma pagina de contatos que o usario do site preenche e um email é enviado pra voce. Voce só precisa alterar a segunda linha do script informando o email que ira receber as mensagens contato.asp <% sYouEmail="seuemail@servidor.com.br" 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%"> <center><form action="<%= Request.ServerVariables("Script_Name") %>" method="post"> <p> </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> </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 " " End If %> </td></tr> <tr bgcolor="<%=HeadColor%>"> <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>email:</B></font> </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 " " End If %> </td></tr> <tr bgcolor="<%=HeadColor%>"> <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B> Mensagem:</B></font> </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 " " 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> <P> <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>
-
O seu select já esta fazendo isso que você quer por isso eu digo que deve haver algum corpo estranho do seu codigo. Para testar que seu select esta certo crie um novo arquivo com esse codigo <% Set DB = Server.CreateObject("ADODB.Connection") DB.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dados\produtos.mdb")) executar="select * from produtos where ref='m35'" set recset = DB.execute(executar) Do while not recset.eof response.write(recset.fields("ref")) recset.MoveNext loop %> Testa ai e me fala!!
-
A conexão tambem esta correta!!! Para mais detalher só com o codigo todo!!!
-
posta o codigo inteiro, pois a sintaxe da instrução SQL (select) esta correta. O erro deve estar na maneira que você esta executando essa instrução
-
O mais facil é via FSO Set FSO = Server.Createobject("Scripting.FilesystemObject") nome = FSO.GetFileName "d:\casa\arquivos\arquivo1.txt" Neste caso o valor atribuido a variavel nome é: arquivo1.txt
-
já resolvi!!! era erro de falta de atenção (sintaxe) estava colocando assim: FSO.CopyFile (arquivo), "c:\intranet\uploads" Quando o correto é: FSO.CopyFile (arquivo), "c:\intranet\uploads\" Valeu T+
-
Estou tentando copiar arquivos utilizando FSO, mais esta dando a mensagem de permissão negada. alguém sabe o que pode ser???
-
Caso seu servidor não disponibilize algum componente, faça uma busca no forum (acho que no tutoriais ou será funções, bom da uma olhada) tem um código de upload sem componentes
-
coloca o seu codigo completo aqui pra gente ver, pois o objeto necessário deve ser o recordset pois é o unico objeto existente nesse codigo.
-
Da uma olhada se ficou mais claro: <table cellspacing="5"> <tr> <% n = 1 'n = variável usada pra controlar o nº de regs. p/ linha l = 5 ' l = nº de registros por linha Do while not RecSet.Eof %> <td width="100" width="100" height="100" border="1"> <% ' mostre aqui os dados do registro response.write "mostrando o registro" response.write "<br>" & "mostrando o registro" %> </td> <% n = n + 1 ' Aumenta 1 nº na variável "n" RecSet.Movenext If n > l then Response.Write "</tr><tr>" n = 1 'Se a variável "n" for igual à "l", ele cria uma nova linha e volta "n" pra 1 End If Loop %> </table>
-
O que codigo que você postou parece estar correto, o q esta acontecendo de errado???
-
http://www.editpad.com.br
-
beleza!! acontece!!