Fecha y hora

[eduvivi]

<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit%>
<!--#include file="comunes.asp"-->

<%
' NUEVOMSG.ASP
' Preprocesa el mensaje y si es correcto lo envía a la base de datos

'================================================= ===================================
Sub TotalForo(idforo, fecha)
' Incrementa en 1 el total de mensajes del foro y añade la fecha del ultimo
Dim rs, SQL
Dim total


Registro rs

SQL="SELECT * FROM Foros WHERE IdForo="&idforo&";"
rs.Open SQL, oConn,3,3
total=CInt(rs.Fields("Total"))
total=total+1
rs.Fields("Total")=total
rs.Fields("Ultimo")=fecha
rs.Update

LimpiarRS rs



End Sub
'================================================= ===================================

Sub ProcesarCuerpo (str)
' preprocesa cuerpo del mensaje

if str="" then
ok=False
Response.Write("<b>El cuerpo del mensaje no puede ser vacío</b><br>")
end if

End Sub
'================================================= ===================================
Sub ProcesarNombre (nombre)
' preprocesa el autor

nombre=RTrim(LTrim(nombre))
if nombre="" then
ok=False
Response.Write("<b>El nombre no puede estar vacío</b><br>")

end if

End Sub
'================================================= ===================================

Sub ProcesarEmail (email)

if email<>"" then

email=Trim(email)
if InStr(1, email, "@") = 0 then
email=""
ok=False
end if
if InStr(1, email, ".") = 0 then
email=""
ok=False
end if



else

email=" "
end if

End Sub 'Procesar email

'================================================= ===================================
Sub FechadeHoy (f)

Dim hoy

hoy=Now()


f=hoy

End Sub 'FechadeHoy
'================================================= ===================================

Dim oConn, rs, SQL

Dim idmensaje

Dim idforo, idcabecera, idpadre, autor, email, tema, cuerpo, f

' indica si debo o no insertar en bd
Dim ok

ok=True .........Continua