<%
hoyBD = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
%>
<%
Dim oConn, RS
usuario = Session("user")
nombre = Session("nombre")
nombre = Trim(nombre)
idPersona = Session("id")
//Guardamos la información en la BD. Habrá que diferenciar el caso para insertar o actualizar
hoyBD = "#" & Month(Now) & "/" & Day(Now) & "/" & Year(Now) & "#"
sql = "SELECT * FROM AVISOS WHERE IDSECCION=7 AND SOLOSOCIOS=FALSE AND FECHACADUCIDAD >=" & hoyBD &" ORDER BY IDAVISO DESC"
//Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "sepr10.com.SMS"
If Err <> 0 Then
Session("mensaje") = "Ocurrió un error al acceder a la Base de Datos: " & Err.Description &" - " & sql
Response.Redirect("errorGeneral.asp")
End If
set RS = oConn.execute(sql)
If Err <> 0 Then
Session("mensaje") = "Ocurrió un error al guardar la información de la comunicación: " & Err.Description &" - " & sql
Response.Redirect("errorGeneral.asp")
End If
%>
 |
|
|
|
|
| Alteda Soluciones, S.L - GDR Sierra Morena Sevillana |
|
|
