Que tal amigos, aqui estoy denuevo recurriendo a ustedes...A continuación posteo el código de un realizamodificacion en el cual actualizo la base de datos de una agenda de acuerdo al dia que escojo.... el problema es que, si modifico la hora dentro del mismo dia y esa está tomada con otra actividad...cómo puedo validar que no lo haga...porque por otra parte... si le impido que actualize si hay una hora tomada.... cuando quiera mificar solo la glosa... este me arrojará un error(no sé si se entiende pero puedo modificar la actividad y dejarla en el mismo horario, como tambien puedo modificar su horario y dejar la actividad tal cual)... por fa ayudenme
El código:
<html>
<head>
<title>Realiza Modificacion</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body background="#363042" text="#CCCCCC">
<%
dim conexion
dim res
dim sql
dim numeroDia
dim diaux
dim mes
dim mesaux
dim horaux
dim anoaux
dim auxmes
dim ano
dim glosa
dim detalle
dim usuario
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "calendario","sa",""
usuario = request.querystring("usuario")
diaux = request.querystring("diaux")
mesaux = request.querystring("mesaux")
anoaux = request.querystring("anoaux")
horaux = request.querystring("horaux")
numeroDia = request.form("numeroDia")
auxmes = request.form("mes")
ano = request.form("ano")
hora = request.form("hora")
glosa = request.form("glosa")
detalle = request.form("detalle")
mes = nombremes(auxmes)
sql = "UPDATE actividades SET dia = '" & numeroDia & "' , mes = '" & mes & "' , año = '" & ano & "', hora = '" & hora & "' , glosa = '" & glosa & "' , actividad = '" & detalle & "' WHERE codusuario = '"&usuario&"' and hora = '"&horaux&"' and dia = '"&diaux&"' and mes = '"&mesaux&"' and año = '"&anoaux&"';"
Set res = conexion.Execute(sql)
conexion.Close
Set conexion = Nothing
%>
<form name="form1" method="post" action="actividades.asp?numeroDia=<%=numeroDia%>&m es=<%= mes%>&ano=<%=ano%>&usuario=<%= usuario%>&hora=<%=hora%>">
<h3 align="center"><b>La Actividad </b></h3>
<h6 align="center"><b><% response.write(usuario)
response.write(diaux)
response.write(mesaux)
response.write(anoaux)
response.write(horaux)%></b></h6>
<h3 align="center"><b> Ha Sido Modificada</b></h3>
<p align="center"><input type="submit" style="background-color: #666666; color: #CCCCCC; font-family: verdana; font-size: 11 px; border: 1 solid white" name="Submit" value="Aceptar"></p>
</form>
</body>
</html>
<%
Function nombreMes(auxmes)
Select Case auxmes
Case "Enero"
nombreMes = 1
Case "Febrero"
nombreMes = 2
Case "Marzo"
nombreMes = 3
Case "Abril"
nombreMes = 4
Case "Mayo"
nombreMes = 5
Case "Junio"
nombreMes = 6
Case "Julio"
nombreMes = 7
Case "Agosto"
nombreMes = 8
Case "Septiembre"
nombreMes = 9
Case "Octubre"
nombreMes = 10
Case "Noviembre"
nombreMes = 11
Case "Diciembre"
nombreMes = 12
Case Else
nombreMes = "ERROR!"
End Select
End Function
Function diasDelMes(mes, ano)
Select Case mes
Case 1, 3, 5, 7, 8, 10, 12
diasDelMes = 31
Case 4, 6, 9, 11
diasDelMes = 30
Case 2
If IsDate(ano & "-" & mes & "-" & "29") Then diasDelMes = 29 Else diasDelMes = 28
Case Else
diasDelMes = 0
End Select
End Function
%>
