![](https://forum.scriptbrasil.com.br/uploads/set_resources_1/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Posts postados por cyberalexxx
-
-
isso já foi discutido antes e não foi possivel fazer.
-
-
tenta assim:
<% Dim SqlInsere Dim RsIns nome = TRIM ( Request.Form( "nome" ) ) senha = TRIM ( Request.Form( "senha" ) ) Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb") Set RsIns = Server.CreateObject("ADODB.RecordSet") Set RsCons = Server.CreateObject("ADODB.RecordSet") Sqlconsulta = "Select count(nome) as total from Teste Where nome='" & nome & "'" set RsCons = Conn.execute(Sqlconsulta) if RsCons("total") > 0 then SqlInsere = "Insert Into Teste(nome, senha)Values('" & nome & "','" & senha & "') " set RsIns = Conn.execute(SqlInsere) else Response.write "Nome de usuário já existe" end if %>
-
-
sem reload na pagina tem q ser com Javascript!!
-
o Chr(32) é o código do espaço em branco na tabela ASCII
e quanto a passar o parametro via querystring vai passar só o primeiro nome.
-
criando funções com o meu método e com o método do Decio:
1 - Cyberalexxx
function nome(valor) nome = left(valor,(Instr(valor,chr(32))-1)) end function
2 - Deciofunction nome(valor) temp = Split(valor,chr(32)) nome = temp(0) end function
para usar a função:response.write nome(rs("Operadora"))
-
já tentou mudar o tempo do Session.Timeout ???
-
-
-
Bom trabalho com Vb e meus relatórios são feitos em ASP... Queria saber se é possível eu elaborar relátórios dinâmicos em ASP?
Att,
CKorneLL.
De mais detalhes do q você quer
-
Eu já achei... e já instalei... e já consegui fazer rodar asp...
valeu pessoal
só não entendo porque tem q colocar na barra de endereco 127.0.0.1 ?
Voce esta especificando o endereço local através deste IP: 127.0.0.1
Voce pode usar assim também: http://localhost/site.asp
-
-
da pra fazer assim:
-
-
no my sql da pra fazer assim, não sei se em access tem jeito:
Select * from tabela order by rand() asc limit 0,5 union Select * from tabela order by rand() desc limit 0,9
-
beleza!!!
qualquer coisa posta ai!!
Mais trabalhar de quinta a domingo, para com isso!!! Só ligo a maquina para jogar NFS Undergroung
[]'s
-
Esta dando erro de permissao.
Permissão negada
E provavel que seja permissao no servidor ou os arquivos estão somente para leitura.
o arquivo não esta aberto???
antes do delete feche o arquivo
set arquivo = nothing
-
deletando arquivo:
FSO.Deletefile (arq)
-
Voce quer um formulário de contato (envio de email) ???
se for olha aki um:
<% sYouEmail="sueemail@seudominio.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>
voce tem que ter o compomente cdonts instalado para funcionar
-
esses arquivos chegam através de upload??
Da pra renomear no ato do upload.
-
acho q o ideal seria voce pesquisar um pouco sobre cookies pois é facil de aprender, porque a maioria dos usuários não tem IP fixo.
-
Voce poderia criar um tipo de nomenclatura de arquivo que o identificasse por data ai voce faria comparações para poder exibir apenas arquivos de uma data especifica.
-
order by asc - ou desc
bem como foi falado..
Ele não esta usando banco de dados!!!
Ele esta buscando arquivos em um diretório usando FSO e listando os mesmos.
Cadastrado
em ASP
Postado
Para retirar possiveis espaços em branco.
Para mais duvidas sobre funções vbscript de uma olhada em:
http://msdn.microsoft.com/library/default....riFunctions.asp
[]'s