- Fórum WMO
- → UweedI's Content
UweedI's Content
There have been 17 items by UweedI (Search limited from 21/04/2023)
#457383 Pausar Uma Movie
Posted by UweedI on 06/10/2004, 10:55 in Adobe Flash e ActionScript
[]'s
#457349 Pausar Uma Movie
Posted by UweedI on 06/10/2004, 10:16 in Adobe Flash e ActionScript
gostaria de saber como fazer para pausar um movie e retornar depois de um determinado tempo..... tipo como sleep(30) que pausaria o programa por 30 segundos
Obrigado desde de já
[]'s
#261454 Parar Apenas Uma Camada
Posted by UweedI on 22/12/2003, 11:27 in Adobe Flash e ActionScript
tem como ??
[ ]'s
#220085 Ajuda
Posted by UweedI on 31/10/2003, 09:55 in ASP
primeiro vc da um response.write pra ve se o nome do usuario esta vindo mesmo
<%
usuario=request.querystring("usuario")
response.write "Usuario "&usuario
response.end
%>
se estiver ok retire os response.write e troca o seu selct por esse:
sql = "select pm,pb,tp,tc,si,te,media,faltas from "&usuario&"order by Código"
#219737 Erro Na Paginação
Posted by UweedI on 30/10/2003, 17:01 in ASP
<%
Dim login
login = request.form("login") 'recuperando o valor para login numerico
if login="" then
login= request.querystring("login")
end if
n_page=request("n_page")
If n_page="" Then n_page = 1
set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * FROM monitorias WHERE re= "& login & "", db, 3,3
IF RecSet.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página
contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
contador=contador+1
response.write "<font face=verdana size=2><b>"
response.write RecSet("nome")&"</b><BR>"
RecSet.MoveNext
loop
response.write "<br>"
For navega= 1 to RecSet.PageCount
If navega = Cint(n_page) Then
response.write "<font face=verdana size=2><b>"
response.write navega
Else
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste4.asp?login=" & login & "&n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next
response.write "<br><br>"
anterior = n_page - 1
proxima = n_page + 1
If anterior > 0 Then
response.write "<a href=paginacaoteste4.asp?n_page="&anterior&"&login =" & login & ">Anterior</a>"
End If
If proxima < navega Then
response.write space(1) & "<a href=paginacaoteste4.asp?n_page="&proxima&"&login =" & login & ">Próxima</a>"
End If
End If
%>
#219114 Erro Na Paginação
Posted by UweedI on 29/10/2003, 18:29 in ASP
é o seguinte: quando vc faz uma busca utilizando like ele devolve todos os resultados que tenham na string o valor do like
exemplo:
banco= login1
digito =1
no resultado vai aparecer o login1 tbm, pois nele vc tem a string 1 tbm
acredito que deve estar retornando mais de um resultado por causa disso
para testar se é isso mesmo troque
RecSet.Open "SELECT * FROM monitorias WHERE re LIKE '%" & login & "%'", db, 3,3
por
RecSet.Open "SELECT * FROM monitorias WHERE re = '%" & login & "%'", db, 3,3
[ ]"s
#216956 Gb
Posted by UweedI on 26/10/2003, 00:53 in ASP
Acredito que não aconteceu nada pq vc passou o numero como numero mesmo
passe este valor como uma string pois so assim vai funcionar, e se so para corrigir o ultimo post se vc reparar vai ver que seu não dei left(var,3), e sim primeiro eu conto quantas casas tem ate o ponto ou virgula, somo dois e depois dou o left com esse valor
coloca assim que vai funcionar
num=18.2333 'aqui vc vai entrar com qualquer numero
num=cstr(num)
num=replace(num,".",",")
numero=split(num,",")
total=len(numero(0))
total=total+2
numero=left(vari,total)
numero=replace(numero,",",".")
response.write "o numero agora é: "&numero
#216160 Gb
Posted by UweedI on 25/10/2003, 01:37 in ASP
tipo eu não sei se tem alguma função que faz isso direto
sei que assim vai dar o resultado que vc quer
num="19,7654321" 'aqui entra o numero que vc quer
numero=split(num,",") 'aqui ele vai pegar apenas os caracteres antes da virgula
total=len(numero(0)) 'neste ponto ele conta qunatos caracteres tem
total=total+2 'soma mais dois pra ficar 1 depois da virgula
numero=left(vari,total) 'pega todos os caracteres mais 1 depois da virgula
response.write "o numero agora é: "&numero
#213286 Formulário
Posted by UweedI on 21/10/2003, 01:40 in ASP
vc cria uma nova pagina ASP que recebe todos os campos do formulario e anexa ao corpo do email e depois envia este para o seu email.
#212312 Insert: Erro De Sintaxe
Posted by UweedI on 19/10/2003, 15:15 in ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<% 'insere usuario
Dim conexao, rs, sql, usuario, matricula, dsn, rs2, sql2, id_dep, rsVerifica, hora_completa, hora, minuto, data_completa, dia, mes,
ano, solicitacao, descricao
usuario= TRIM(request.form("usuario"))
matricula= TRIM(request.form("matricula"))
solicitacao= TRIM(request.form("solicitacao"))
id_dep= TRIM(request.Form("departamento"))
descricao= TRIM(request.Form("descricao"))
hora=Hour(now)
minuto=Minute(now)
dia=Day(date)
mes=Month(now)
ano=Year(now)
hora_completa=hora & ":" & minuto
data_completa=dia & "/" & mes & "/" & ano
sql="insert into solicitacao(num_sol,hr_1,dt_1,desc) values('"&solicitacao&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
sql2="insert into solicitacao_usuario(num_sol,matricula,nm_func,id_dep,hr_1,dt_1,desc) values('"&solicitacao&"','"&matricula&"','"&usuario&"','"&id_dep&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
response.write "sql="& sql&"<br>"
response.write "sql2="& sql2&"<br>"
response.end
Set conexao= server.CreateObject("ADODB.Connection")
dsn = "d:\web\insite3d\dados\sigesa.mdb"
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dsn& ";"
Set rsVerifica = conexao.Execute("Select matricula from lotacao Where matricula= "+matricula+" AND nm_func='"+usuario+"' AND id_dep='"+id_dep+"' ")
If rsVerifica.EOF <> True Then
set rs=conexao.execute(sql)
set rs=Nothing
set rs2=conexao.execute(sql2)
set rs2=Nothing
response.Redirect("confirmacao_solicitacao.htm")
Else
Response.write "<p> </p>"
response.write "<p><center><img src='http://www.aspecto.net/sigesa/imagens/logopeq.gif'></center>"
response.write "<br>"
Response.Write "<center><strong><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Dados incorretos!</font></strong></center><p><center><img src='http://www.aspecto.net/sigesa/imagens/gif/fechar.gif'</img></center>"
Response.End
End If
%>
depois disso pegue o resultado obtido no browser e tente executar diretamente no banco, se der certo o erro deve estar na sua conexão ou algo assim, caso de erro dai deve ser incompatibilidade de dados ou sei la, mas fazendo isso no minimo vc vai ter como saber se os dados estão entrando corretamente, acredito que com isso vc consiga resolver seu problema.
[]'s
Uweedy
- Fórum WMO
- → UweedI's Content
- Privacy Policy
- Regras ·