Problema Com Horas

[Guinho.TI]

Num determindado formulário inseri um textbox onde o usuário pode digitar uma hora no formato hh:mm:ss.

Crie um Case que, após a leitura da quantidade de caracteres no TEXTBOX, ele completa o campo, para que a consulta SQL possa aceitar o seu valor.

***********************

Dim cont
Dim hFormat      

cont = Len(PHora)

Select case  cont

case 8 ' se o campo foir preenchido corretamente, ou seja 00:00:00
hFormat = PHora


case 5 ' SE OS SEGUNDOS NÃO FOREM PREENCHIDOS, INSERE ":00"
hFormat = PHora&":00"


case 2 'SE OS MINUTOS E SEGUNDOS NÃO FOREM PREENCHIDOS, INSERE ":00:00"
hFormat = PHora&":00:00"

End Select

***********************

Ocorre que, o case 8 e o Case 5 funcionam. alguém saberia me dizer porque o Case 2 não funciona?????

[bareta]

experimente dar um response.write no cont para ver quantos caracteres estão indo

[Guinho.TI]

Esta aplicação roda em 3 páginas:

1 - Página da TextBox

2 - Página com as Functions

3 - Página com os resultados.

Tentei colocar o response.write na 2 e na 3 e não apareceu nada. Por via das dúvidas, dei um Trim antes do Len e continua dando no mesmo. O erro que aparece é o seguinte:

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Esstou tentando mais algumas soluções e aceito sugestões.

desde já agradecido!

[bareta]

se ta dando timeout deve te alguma coisa muito pesada rolando ai...

poe o codigo compelto ai pra gente ver..

[Guinho.TI]

Como o código é muito grande, vou inserir somente as partes que utilizam esta parte

1. Página do Form:

<FORM name=""JobsMF"" id=""JobsMF"" action=""Result.asp"" method=post>

INTERVALO DE HORAS

entre :

<input class=""textarea"" type=""text"" name=""H_INI"" id=""H_INI"" size=6 value="&StrValue("H_INI",4)&" >

e:

<input class=""textarea"" type=""text"" name=""H_FIM"" id=""H_FIM"" size=6 value="&StrValue("H_FIM",5)&" >

IfNull("H_INI")

IfNull("H_FIM")

2. Pagina de Functions:

* Cria uma session para os camos textbox não nulos.

Public Sub IfNull(Nome)

If (Request.Form(""&Nome&"") <> "") Then

Session(""&Nome&"") = Trim(Request.Form(""&Nome&""))

Else

Session.Contents.Remove(""&Nome&"")

End If

End Sub

* Formata o campo, criando uma função de horas

Public Function StrValue(nSession,op)

Select case op

case 4

StrValue = THora(CStr(Trim(Session(nSession))),1)

case 5

StrValue = THora(CStr(Trim(Session(nSession))),2)

End Select

End Function

* Função que trabalha com as horas, inserindo os campos não digitados

(lembrando que, somente o case 2 não funciona)

Public Function THora(PHora,opcao)

Dim aux

Dim conth

Dim temp

Dim hora

Dim hFormat

If (PHora <> "") Then

conth = Len(PHora)

aux = Split(PHora,":",-1)

If (aux(0) = "24") then

hora = "00"

End If

Select case conth

case 8

If (aux(0) = "24") then

hFormat = "00:"&aux(1)&":"&aux(2)

Else

hFormat = PHora

End If

case 5

If (aux(0) = "24") then

hFormat = "00:"&aux(1)&":00"

Else

hFormat = PHora&":00"

End If

case 2

If (aux(0) = "24") then

hFormat = "00:00:00"

Else

hFormat = PHora&":00:00"

End If

End Select

Else

If (opcao = 1) Then

hFormat = ""

Else

hFormat = "23:59:59.997"

End If

End If

THora = hFormat

* Query (este é o trecho que usa esta parte)

.... WHERE data_hora BETWEEN '"&Session("Data_Inicio")&" "&Session("H_INI")&"' AND '"&Session("Data_fim")&" "&Session("H_FIM")&"'"

** Não fui eu quem desenvolvi esta parte da aplicação, por isto estou tendo estes problemas. Uma vez, eu tentei criar uma session para receber o valor de THORA e enviar este valor para Query e não consegui. Pode ser este o problema...

desde já agradecido