ver datos de acces en asp

[francis0487]

Hola tengo un calendario y me da problemas ya que todos los datos me dirigen a

Const URLDestino = "OtraPagina.asp"


y es de forma generico
como puedo hacer ke cada dia me diriga a la fecha correspondiente de cada dato??

Gracias
un Saludo
Francis

[kyu24]

puedes poner el codigo fuente para ver como lo has hecho y solucionarlo?

[francis0487]

vale aki va




<%
function calendari(any,mes)

'pagina que recibirá la fecha seleccionada por el usuario
Const URLDestino = "???????"



Dim MyMonth 'Month of calendar
Dim MyYear 'Year of calendar
Dim FirstDay 'First day of the month. 1 = Monday
Dim CurrentDay 'Used to print dates in calendar
Dim Col 'Calendar column
Dim Row 'Calendar row

calendari = "" ' Variable que contindra tot el contingut del calendari (Retorn de funcio)
MyMonth = mes
MyYear = any

If IsEmpty(MyMonth) then MyMonth = Month(Date)
if IsEmpty(MyYear) then MyYear = Year(Date)

calendari = ShowHeader(MyMonth, MyYear)

'FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) -1 'Data Anglesa
FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) - 2 'Data Espanyola
CurrentDay = 1

'Let's build the calendar
For Row = 0 to 5
For Col = 0 to 6
If ((Row = 0) and (Col < FirstDay)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calSimbolo'>&nbsp;</td>"
elseif (CurrentDay > LastDay(MyMonth, MyYear)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calSimbolo'>&nbsp;</td>"
else
if (cInt(MyYear) = Year(Date)) and (cInt(MyMonth) = Month(Date)) and (CurrentDay = Day(Date)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calCeldaResaltado' align='center'>"
else
calendari = calendari & "<td bgcolor='#FFFFFF' align='center'>"
end if
calendari = calendari & "<a href='" & URLDestino & "?day=" & CurrentDay & "&month=" & cInt(MyMonth) & "&year=" & cInt(MyYear) & "'>"
if (cInt(MyYear) = Year(Date)) and (cInt(MyMonth) = Month(Date)) and (CurrentDay = Day(Date)) then
calendari = calendari & "<div class='calResaltado'>"
else
calendari = calendari & "<div class='calSimbolo'>"
end if
calendari = calendari & CurrentDay & "</div></a></td>"
CurrentDay = CurrentDay + 1
End If
Next
calendari = calendari & "</tr>"
Next
calendari = calendari & "</table>"
calendari = calendari & "</form>"

End function
'------ Sub and functions


function ShowHeader(MyMonth,MyYear)
ShowHeader = ""
ShowHeader = ShowHeader & "<script language='JavaScript'>"
ShowHeader = ShowHeader & " function Hoy() {"
ShowHeader = ShowHeader & " DiaActual = new Date();"
ShowHeader = ShowHeader & " document.calendario.Month.value=DiaActual.getMonth ()+1;"
ShowHeader = ShowHeader & " document.calendario.Year.value=DiaActual.getYear() ;"
ShowHeader = ShowHeader & " document.calendario.submit();"
ShowHeader = ShowHeader & " }"
ShowHeader = ShowHeader & " </script>"
ShowHeader = ShowHeader & "<table border='0' cellspacing='1' cellpadding='1' width='245' align='center' class='calFondoCalendario'>"
ShowHeader = ShowHeader & " <tr align='center'> "
ShowHeader = ShowHeader & " <td colspan='7'>"
ShowHeader = ShowHeader & " <form name='calendario' action='default.asp' method='post'>"
ShowHeader = ShowHeader & " <table border='0' cellspacing='1' cellpadding='1' width='100%' class='calFondoEncabe'>"
ShowHeader = ShowHeader & " <tr>"
ShowHeader = ShowHeader & " <td align='left' class='calDatos'>"
ShowHeader = ShowHeader & " Mes:"
ShowHeader = ShowHeader & " <select name='Month' onChange='javascript:document.calendario.submit(); ' class='calDatos'>"
For i= 1 to 12
cadena = ""
if (CInt(MyMonth)=i) then
cadena = "selected"
end if
ShowHeader = ShowHeader & "<option value='" & i & "' " & cadena & ">" & MonthName(i) & "</option>"
next
ShowHeader = ShowHeader & " </select>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " <td align='center'>"
ShowHeader = ShowHeader & " <input type='button' onClick='javascript:Hoy()' value='Hoy' class='calDatos'>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " <td align='right' class='calDatos'>"
ShowHeader = ShowHeader & " Año:"
ShowHeader = ShowHeader & " <select name='Year' onChange='javascript:document.calendario.submit(); ' class='calDatos'>"
anyActual = year(Date)
For i= 1 to 2
cadena = ""
Anys = (anyActual - 1) + i
if (CInt(MyYear)=Anys) then
cadena = "selected"
end if
ShowHeader = ShowHeader & "<option value='" & Anys & "' " & cadena & ">" & Anys & "</option>"
next
ShowHeader = ShowHeader & " </select>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " </tr>"
ShowHeader = ShowHeader & " </table>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " </tr>"
ShowHeader = ShowHeader & " <tr align='center'> "
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>L</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>M</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>X</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>J</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>V</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>S</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>D</div></td>"
ShowHeader = ShowHeader & " </tr>"
End function

Function MonthName(MyMonth)
Select Case MyMonth
Case 1
MonthName = "Enero"
Case 2
MonthName = "Febrero"
Case 3
MonthName = "Marzo"
Case 4
MonthName = "Abril"
Case 5
MonthName = "Mayo"
Case 6
MonthName = "Junio"
Case 7
MonthName = "Julio"
Case 8
MonthName = "Agosto"
Case 9
MonthName = "Septiembre"
Case 10
MonthName = "Octubre"
Case 11
MonthName = "Noviembre"
Case 12
MonthName = "Diciembre"
Case Else
MonthName = "ERROR!"
End Select
End Function

Function LastDay(MyMonth, MyYear)
' Returns the last day of the month. Takes into account leap years
' Usage: LastDay(Month, Year)
' Example: LastDay(12,2009) or LastDay(12) or Lastday
Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31

Case 4, 6, 9, 11
LastDay = 30

Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else LastDay = 28

Case Else
LastDay = 0
End Select
End Function
querystring (fecha)<>

%>

[francis0487]

una cosa mas un amigo me dijo que hisiera una consulta querystring y luego le pusiera un for para ke pasara al resto de dias la conexion con la base de datos ya la tengo pero me lo enseña todo al calendario no eh podido ligarla

Saludos
Francis

[kyu24]

lo unico que puedo hacer es pasarte una plantilla que yo tengo de calendario en asp y veas los codigos a ver donde esta el problema porque yo no lo veo

megaupload.com/?d=4GWR3ZEH

descargatelo aki

suerte y espero que te sirva de algo

[francis0487]

voy a verlo grax por responder

[kyu24]

de nada, para eso estamos, para ayudarnos unos a otros

un saludo

[francis0487]

en todo caso el calendario en si no tiene ningun problema al kontrario funciona muy bien lo que yo nopuedo es al pinchar en un dia k me lleve a los "eventos" que tengo ese dia en la base de datos

Saludos
Francis

[francis0487]

Hola el calendario k me enviaste no lo puedo ver solo sale esto

Microsoft JET Database Engine error '80004005'

'c:\inetpub\wwwroot\yourdomain\calendar\database\c alendar.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

/macc/calendar/_calendar.asp, line 103


saludos
Francis

[JuanRAPerez]

ta falta la base de datos en esa ruta que te indica

busca en el archivo que descargastes y dejalo en esa ruta
"c:\inetpub\wwwroot\yourdomain\calendar\database\c alendar.mdb", y dale permisos de escritura

ah y no repitas post....

[Adler]

Hola

Con permiso. Este es un calendario ya montado que ocupa AJAX y XML, a ver que te parece

Suerte

[francis0487]

grax a todos por las respuestas pero aun no puedo hacer lo que quiero , eso de la ruta lo hize pero nada

alguna idea??

Saludos
Francis