Hola, tengo el siguiente codigo, es de un calendario en asp, el problema radica en que cuando pincho sobre una fecha inferior a 12, no me muestra los eventos para esos dias, sin embargo, para dias de 13 hasta 31 esta perfecto.¿Donde esta el problema?
Otra pregunta: el codigo que utilizo, esta basado en formato ingles(mes/dia/año), ¿cuando cuelgue en internet la pagina, puede tener problemas al tomar la fecha si mi pagina esta en un formato de fecha distinto al del servidor?Gracias
<!--#include file="adovbs.inc"-->
<!--#include file="dsn.asp"-->
<%
If IsEmpty(Request.QueryString("Date")) OR NOT IsDate(Request.QueryString("Date")) Then
dDate = Date
Else
dDate = CDate(Request.QueryString("Date"))
End If
%>
<HTML>
<HEAD>
<TITLE>Events for <%= FormatDateTime(dDate, 1) %></TITLE>
</HEAD>
<BODY BACKGROUND="../images/image3.gif" LEFTMARGIN="5">
<P> </P>
<P ALIGN=RIGHT><IMG SRC="images/events.gif" WIDTH=400 HEIGHT=50 BORDER=0 ALT=""></P>
<BR CLEAR=ALL>
<%
' Open a record set of schedules
Response.Write "<FONT COLOR='Gray' FACE='Tahoma, Verdana' SIZE=2>" & FormatDateTime(dDate, 1) & "</FONT><BR><BR>" & vbCrLf
Set Rs = Server.CreateObject("ADODB.RecordSet")
sSQL = "SELECT * FROM calendario " & _
"WHERE Start_Date <= #" & dDate & "# AND End_Date >= #" & dDate & "# ORDER BY empresa "
Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText
If NOT Rs.EOF Then
Do While NOT Rs.EOF
Response.Write "<TABLE WIDTH='400' BORDER='0' CELLSPACING='0' CELLPADDING='1' BGCOLOR='" & arrColor(iIndex) & "'><TR><TD>" & vbCrLf
Response.Write "<TABLE WIDTH='100%' CELLSPACING=0 BORDER=0 CELLPADDING=2 BGCOLOR='White'>" & vbCrLf
Response.Write Trim(Rs("evento")) & VbCrLf
Response.Write "</FONT></B> </TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Rs.MoveNext
Loop
End If
%>
</BODY>
</HTML>
