![](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
-
-
-
Recomendo o SoundForge da Sony ainda mais quando for gravar de vinil pois ele tem boas ferramentas para dar uma limpada no som, além de dar suporte a plugins VST.
Só uma observação "vitrola" (espero que voce não esteja se referindo a um SL1200 MKII como vitrola) não tem pré-amplificação portanto não da pra ligar direto no PC exceto em alguns toca-discos profissionais mais novos como os da Numark.
-
é so vincular o asp com html:
<%
set conn = server.createobject("adodb.connection") '- abre a conexão com a DLL de acesso aos dados
conn.open "conexao"
set rsquery = conn.execute("select * from cadastro")
while not rsquery.eof
response.write rsquery("nome") & "<BR>"
response.Write rsquery("email") & "<BR><BR>"
rsquery.movenext
wend
%>
-
da uma olhada se funciona assim:
<% while not rsCad.eof %>dano=year(rsCad("datta"))
dmes=month(rsCad("datta"))
ddia=day(rsCad("datta"))
dataformatada = ddia & "/" & dmes & "/" & dano
Data: <% =dataformatada%>
-
voce já perguntou isso em outro tópico!!
http://scriptbrasil.com.br/forum/index.php?showtopic=69459
voce viu as sugestões??
Por favor não crie 2 tópicos com o mesmo assunto.
-
pelo menos quando se usa o componente CDONTS os emails tendem a ir para a caixa de lixo eletronico, mais isso só acontece quando é informado apenas o email na propriedade do remetente, para solucionar é necessário colocar além do email o nome do remetente tipo: cyber@cyber.com.br <Cyberalexxx> ou Cyberalexxx <cyber@cyber.com.br> agora não me lembro qual a sintaxe correta.
-
No banco de dados esta gravando corretamente???
-
-
-
tenta isso e depois me descreva o erro:
<% Dim sqlCons, varDta, rsCons, rsHoje Dim sqlIns, rsIns, varHrs Dim ano, mes, dia Dim rsCad, sqlCad varDta = request.form("campo") varHrs = request.form("horario") ano=year(varDta) mes=month(varDta) dia=day(varDta) sqlIns = " INSERT INTO dates (datta, hora) " sqlIns = sqlIns & " VALUES ('" & vardta & "', '"& varHrs &"') " Session.LCID=1033 sqlCons = " SELECT * FROM dates WHERE datta = #"& dateserial(ano,mes,dia) &"# AND hora = '"& varHrs &"'" sqlCad = " SELECT * FROM dates ORDER BY datta " call abre_conexao set rsHoje = Conexao.execute(sqlCons) Session.LCID=1046 %> <% if not rsHoje.eof then %> Esta data e horário já estão reservados.<br> Tente uma data ou horário diferente. <% else set rsIns = Conexao.execute(sqlIns) set rsCad = Conexao.execute(sqlCad) response.Write("Seu horário está marcado.") %> Datas no banco:<br> <table width="50%" border="0" cellspacing="0" cellpadding="0"> <tr> <% while not rsCad.eof %> <td>Data <%= rsCad("id")%></td> <td><%= rsCad("datta")%></td> <td align="right"><%= rsCad("hora")%>:00</td> </tr> <% rsCad.MoveNext %> <% Wend end if Set rsIns = Nothing Set rsHoje = Nothing Set rsCad = Nothing %>
-
poste o código todo pra genter ver!!
-
<% @ LANGUAGE="VBSCRIPT" %>
<%
id_categoria = request.querystring("id_categoria")
Set strCon = Server.CreateObject("ADODB.Connection")
strcon.open "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay"
strcon.open
sqlstmt = "delete * from categoria where id_categoria="& id_categoria
strCon.execute(sqlstmt)
response.redirect "consulta_categoria2.asp"
%>
-
se é que eu entendi isso é javascript:
fiz um exemplo rapidinho ve c é isto e da uma testada:
<script language="Javascript"> function mudalink() { link.href = "pagina.asp?select=" + form1.select1.value } </script> <form name="form1"> <select name="select1" Onchange="mudalink()"> <option value="opcao1">opcao1</option> <option value="opcao2">opcao2</option> </select> </form> <a id="link" href="pagina.asp?select=opcao">link</a>
-
tenta assim:
<%Dim sqlCons, varDta, rsCons, rsHoje
Dim sqlIns, rsIns
Dim ano, mes, dia
Dim dano, dmes, ddia
varDta = request.form("campo")
ano=year(varDta)
mes=month(varDta)
dia=day(varDta)
Session.LCID=1033
sqlIns = " INSERT INTO dates (datta) "
sqlIns = sqlIns & " VALUES (#" & DateSerial(ano,mes,dia) & "#) "
sqlCons = " SELECT * FROM dates ORDER BY id "
call abre_conexao
set rsIns = Conexao.execute(sqlIns)
set rsHoje = Conexao.execute(sqlCons)
Session.LCID=1046
%>
Datas no banco:<br>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<% while not rsHoje.eof
%>
<tr>
<td>Data <%= rsHoje("id")%></td>
<td><%=rsHoje("datta")%></td>
</tr>
-
o.O
como assim objeto ado
Isso é um objeto ADO: Set Conexao = Server.CreateObject("ADODB.Connection")
qual o nome da conexão no seu script?? não encontrei!!
-
cade o objeto ADO???
-
abre a conexão antes:
<% @ LANGUAGE="VBSCRIPT" %> <% id_categoria = request.querystring("id_categoria") strCon = "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay" sqlstmt = "delete * from categoria where id_categoria="& id_categoria StrCon.Open StrCon.execute(sqlstmt) response.redirect "consulta_categoria2.asp" %>
-
Olha o Flood!!!
Calma que a galera quando puder ajuda.
tenta isso:
<% @ LANGUAGE="VBSCRIPT" %>
<!--#include file="conexao.asp"-->
<%Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
id_categoria = request.querystring("id_categoria")
sqlstmt = "delete * from categoria where id_categoria="& id_categoria
strcon.execute(sqlstmt)
response.redirect "consulta_categoria2.asp"
else
response.redirect "login.asp"
end if%>
-
coloque o Session.LCID=1046 depois de criar os recordsets.
-
if isnumeric(variavel) = true then response.write "Numero" else response.write "Não é numerico" end if
-
Cara, quando vocês corrigem o código, vocês testam ele ou fazem de cabeça ???
Funcionou, obrigado por tudo
Tem que testar de cabeça, ou senão o pessoal que frequenta foruns não iria fazer outra coisa, he he!!
Que bom que funfou!!
-
<%
Dim sqlCons, varDta, rsCons
varDta = request.form("acha")
ano=year(vardta)
mes=month(vardta)
dia=day(vardta)
Session.LCID=1033
sqlCons = " SELECT * FROM dates WHERE datta = #" & DateSerial(ano,mes,dia) & "# ORDER BY id "
call abre_conexao
set rsCons = Conexao.execute(sqlCons)
Session.LCID=1046
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body link="#0033FF" vlink="#990000" alink="#00CCFF" class="gg" topmargin="30">
<div align="center">Funfou ???</div>
<br><br>
<br>
<br>
Datas no banco:<br>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<% if rsCons.eof then %>
<tr>
<td>Data <%= varDta%> não encontrada.</td>
<td>Tente pesquisar por uma data diferente.
<br><br><a href="javascript:history.go(-1)">Voltar</a></td>
</tr>
<% else %>
<tr>
<td>Data <%= varDta%> encontrada.</td>
<td>Obrigado por pesquisar.</td>
</tr>
</table>
</body>
</html>
<%
end if
Set rsCons = Nothing
%>
-
lógica:
dar um split no valo que vem do form quebrando por "+"
montar dinamicamente a consulta sql com os valor do array criado pelo split.
ex:
If Instr(request("busca"),"+") > 0 then palavras = split(request("busca"),"+") sql = "Select * from tabela where " x = 0 for each palavra in palavras if x > 0 then sql = sql & " and " end if sql = sql & " campo like '%" & palavra & "%' " x = x + 1 end if next end if
-
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Server.Mappath("numeros.txt")
Set TXT = FSO.OpenTextFile(caminho)
'cria o objeto,e busca pelo TXT indicado pela variável caminho como acima
Do while txt.Atendofstream = false
linha = txt.readline
colunas = split(linha,";")
for each coluna in colunas
response.write coluna
next
loop
txt.close
%>
Manipulando Datas Asp
em ASP
Postado
tenta assim: