Exibe tempo estante:

VarTempoLimite = 30
VarMinutoAtual = Minute(Now())
VarTempoTotal = VarMinutoAtual + VarTempoLimite

If  ( VarTempoTotal <>  VarMinutoAtual ) Then

response.write VarTempoTotal - Minute(Now())

end if

Acho q ficaria assim

NÃO TESTADO!!

define o tempo limite com uma session:

var mm = <%=Session("tempo_limite")%>;

conforme o tempo for passando você vai alterando o valor da seção p/ diminuir o tempo, sendo assim se o cara atualizar a página, o tempo não vai ser reiniciado...

Qualquer coisa posta ae:)

Abraços

Mais ou menos assim:

VarTempoLimite = 30
VarMinutoAtual = Minute(Now())
VarTempoTotal = VarMinutoAtual + VarTempoLimite

If (VarTempoTotal = VarMinutoAtual) Then

response.write "Tempo esgotado"

else

response.write "Inda tem tempo"

End If

OBS.: Não testei esse código acima...

Qualquer coisa posta ae
Abraços

você tem duas opções:

XMLHTTP ou iframe...

Utilizando iframe é dar um parent.location pro frame com a url e o tempo definido pelo java script:

ex:

atualiza_session.asp?Tempo=29

ná página atualiza_session.asp você define novamente o tempo limite, dai automáticamente a página principal reconhece o valor...

---


No caso do xmlhttp a logica é a mesma...

Qualquer coisa posta ae

Abraços

Substitui ae:

sql = "select * from Tabela where ID='"& Request.QueryString("ID") &"'"

T+

Link está off arruma ai por favor !

Também não consegui entrar...

Abraços

Ou assim:

minhadata = Nothing

t+

gera algum erro??

mesmo assim, tenta fazer como no código abaixo...

'Conecta com o banco SQL
Dim cn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
'Abre o Banco
cn.Open()
'Edita Administrador
Dim MySQL As String = "UPDATE Administrador SET NomeCompleto = @NomeCompleto, Cpf = @Cpf, TelResidencial = @TelResidencial, TelComercial = @TelComercial, Celular = @Celular, Email = @Email, Senha = @Senha WHERE id = @id"
Dim Cmd = New SqlCommand(MySQL, cn)
Cmd.Parameters.Add(New SqlParameter("@NomeCompleto", txtNome.Text))
Cmd.Parameters.Add(New SqlParameter("@Cpf", txtCpf.Text))
Cmd.Parameters.Add(New SqlParameter("@TelResidencial", txtResidencial.Text))
Cmd.Parameters.Add(New SqlParameter("@TelComercial", txtComercial.Text))
Cmd.Parameters.Add(New SqlParameter("@Celular", txtCelular.Text))
Cmd.Parameters.Add(New SqlParameter("@Email", txtEmail.Text))
Cmd.Parameters.Add(New SqlParameter("@Senha", txtSenha.Text))
Cmd.Parameters.Add(New SqlParameter("@id", Request.QueryString("id")))
Cmd.ExecuteNonQuery()
cn.Close()

Quialquer coisa posta ae

Abraços

modifica para:

<customErrors mode="Off" />

Só p/ exibir o erro extamente...

Abraços

Conforme dito em outro tópico, cujo trata-se do mesmo assunto:

<%

Dim strURL 
strURL = Request.ServerVariables("PATH_INFO")

Response.write Replace(Mid(strURL,2,Len(strURL)-14),"/","")

%>

o código acima captura o nome da pasta desejada:

www.meudominio.com/wmonline

no caso o destaque acima ^.

depois você pode apenas realizar uma consulta com o dado capturado.

da uma olhada nesse exemplo:

http://www.zoadoresdorio.com.br/wozniak

fiz a mesma coisa que você quer p/ esse site acima.

Só um detalhe: você poderia ter apenas continuado o tópico anterior, que se trata do mesmo assunto

http://forum.wmonlin...howtopic=132503

Att

wozniak,

Cara, eu tentei usar o código

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Write "<script>window.open('Alunos.aspx', 'Cadastro de Alunos', 'height=250, width=615, top=200, left=100')</script>"
End Sub

Mas não carregou a página. O q poderá ter acontecido?

Opa, provavemente está gerando um erro de js

t+

Da uma olhada nesse código que fiz em VB.net, é só adaptar

<script runat="server">

	Sub page_load()
	
  Dim strURL As String = Request.ServerVariables("PATH_INFO")
	
  Response.redirect("http://www.site.com.br/usuario.aspx?Username="& Replace(Mid(strURL,2,Len(strURL)-14),"/",""))
	
	End Sub

</script>

Abraços

Não consegui acessar, o botão de login se não me engano está sem ação...

Abraços

Dá uma olhada no link abaixo e ve se te ajuda em algo:

http://www.htmlstaff...html/html45.php

Abraços

t+

Outra maneira:

<%

function TiraAspas(str)
str = replace(str,"'","''")
str = replace(str,""","""")
TiraAspas = str
End function

Busca=TiraAspas(Server.HtmlEncode(Busca))

%>

Abraços

Só uma dica:

vc não precisa setar um RecordSet para o método insert

ex.:

Sqla = "Insert into contas(tipo,data,empresa,situacao,valor,notafiscal) values ('entrada', '"& data2 &"', 'DiaSorin', 'pagar', '"& valor2 &"', '"& notaf &"')"

Conexao.Execute(Sqla)

Abraços

vc pode criar uma função em java script para enviar os parametros assim vc não precisa ter dois forms na mesma página

T+

Foi um colapso

eu dei uma misturada com .net, foi força do ábito

Abraços

maravilha
tenho outra tabela com uns 20 registros
esse loop vai ajudar bastante

brigadao vcs

deu erro no

next i
----^

Só um incremento ao post do amigo acima:

Para capturar mais de um valor você pode utilizar um laço for:

Dim strArray, i

strArray = Split("ABC-123-TDG-HTP","-")

for i = 0 to Ubound(strArray)

response.write strArray(i)

next i

O código acima quebra a string em 4 partes, você pode ter milhares de partes, e para capturar todas você utiliza o laço for com um contador (index)

Forte abraço

Você poderia utilizar a busca p/ saber sobre isso...

Ex:

<%

Dim var

var = 00022244

Response.write Cint(var)

%>

qualquer coisa posta ae ?

t+

Ou então converte p/ integer :

Cint(variavel)

Abraços

t+

Troca isso ae:

$resultado = odbc_exec($conexao, "SELECT Assigned_To_Group_, Case_ID, Requester_Name_, Summary, Item, Status, Arrival_Time FROM HPD_HelpDesk WHERE Status <>'Resolved' AND Status <>'Closed' AND Assigned_To_Group_='POAD' ORDER BY Create_Time ASC");

testa ae, e passa uma posição

Abraços

Tenta assim:

FormatNumber(rs("valor"))

ou

FormatCurrency(rs("valor"))

Abraços

cara, posta o erro ae, mas de qualquer forma verifica se se campo :valor é do tipo Número ou Money, ou algo do tipo...


Abraços

t+

Tenta assim:

$conexao = odbc_connect("banco", "user", "senha"); 

$resultado = odbc_exec($conexao, "SELECT Assigned_To_Group_, Case_ID, Requester_Name_, Summary, Item, Status, Arrival_Time FROM HPD_HelpDesk WHERE (Status <>'Resolved') AND(Status <>'Closed') AND (Assigned_To_Group_='POAD') ORDER BY Create_Time ASC"); 

$quant = odbc_num_rows($resultado);

vc estava tentado fazer contagem da string de conexão e não da sql...

Abraços