sumar segundos

[RSAPRILIA]

Hola no se si lo que pido es demasiado complicado pero la verdad es que me seria bastante util, porque estoy haciendo una web, en realidad ya la he acabado solo me falta esta parte pero no soy capaz de hacerla y entonces tendre que empezar toda la pagina de nuevo, no creais que no he intentado hacerlo por mi cuenta pero, veo que no doy con la solucion, lo más cerca que he estado es de esta manera:

<%

function permite_accion(fecha_ultima_accion,fecha_intento_a ccion,Hora_Minuto_o_Segundo,cantidad_de_espera)

if isdate(fecha_ultima_accion) = false or isdate(fecha_intento_accion)= false then
permite_accion = true
end if

Select Case lcase(Hora_Minuto_o_Segundo)
Case "hora" Hora_Minuto_o_Segundo = "h"
Case "minuto" Hora_Minuto_o_Segundo = "n"
Case "segundo" Hora_Minuto_o_Segundo = "s"
Case "h" Hora_Minuto_o_Segundo = "h"
Case "m" Hora_Minuto_o_Segundo = "n"
Case "s" Hora_Minuto_o_Segundo = "s"
Case Else Hora_Minuto_o_Segundo = "n"
End Select

'if isnumeric(cantidad_de_espera) = false or isnull(cantidad_de_espera) = true or cantidad_de_espera="" then
'permite_accion = true
'end if

intervalo = datediff(hora_minuto_o_segundo,fecha_ultima_accion ,fecha_intento_accion)

if intervalo < cantidad_de_espera then
permite_accion = false
else
permite_accion = true
end if
end function

ultima_busqueda = session("ultima_busqueda")
hora_actual = now


if permite_accion(ultima_busqueda,hora_actual,"s",30) = true then

response.write "puede ejecutar la busqueda"

else
response.write "NO puede ejecutar la busqueda"
Response.Expires = 0
Response.Buffer = True
'la siguiente linea escribe el encabezado... produciendo el refresh.
Response.AddHeader "Refresh", "30"
end if
%>

Esta en las preguntas frequentes creo del apartado ASP (perdon por no haber buscado con mas detenimiento) la cuestion es que esto me sirve perfectamente excepto por el inconveniente que nada mas cargar la pagina ejecuta el codigo, mi pregunta es si alguien sabria como hacer para que nada mas cargar no entrara en el puede ejecutar el codigo.

Muchas gracias por cualquier ayuda la verdad es que estoy desesperado por dar con una solucion.