Søg
Avatar billede skipper4230 Nybegynder
15. marts 2004 - 21:43 Der er 27 kommentarer og
2 løsninger

Kalender - data på tabel ok, men vises forskelligt

Jeg døjer med den shareware kalender....

Når jeg opretter datoer så gemmes data ok på tabellen f.eks. :
08-04-2004 test
23-04-2004 test

men datoen 08-04 vises under den 4. august 2004, altså forkert.
hvorimod 23-04-2004 vises under den 23, april 2004 altså korrekt.

Jeg mener at problemet opstår i config.asp filen, nogen der kan finde fejlen??

/Tom

*****************config.asp****************************

<%

  TableWidth = 500
'  BgColor = "#9999CC"
  BgColor = "#30BCF1"
  CellColor = "#fdf5e6"

  dbName = "calendar.mdb"
  Conn= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(dbName)

  ViewDayImage = "goto.gif"

  EditImage = "<font face=WingDings>" & chr(50) & "</font>"
  DeleteImage = "<font face=WingDings>" & chr(251) & "</font>"
  ToTopImage = "<font face=WingDings>" & chr(241) & "</font>"
  '*ToTopimage = "<img border=0 src=up.gif>"

  '# UserName: admin
  '# Password: admin
  '# You can manually change this in the database



  Session.LCID = 1030

%>




<%
'************************************************
'*****          FUNCTIONS              *********
'************************************************
Sub DisplayCalendar(mMonth, yYear)
 
  dDay = DateSerial(yYear,mMonth,1)
  mMonth = Month(dDay)
  yYear = Year(dDay)
  FirstDayOfMonth =  Weekday(dDay)

  '## Display the Top of Calendar ##
  CALL DisplayCalendarTop(dDay)

  '## Start Displaying the Actual Calendar ##
  Response.Write "<Table Align=center width=" & TableWidth & " CellPadding=3 CellSpacing=1 Border=1 BgColor=" & BgColor & ">" & vbCrlf
  Response.Write "<TR Valign=Top Align=Center BgColor=" & bgcolor & ">" & vbCrlf
  For i = vbSunday To vbSaturday
    Response.Write  "<TD><Font Size='-2'><b>" & left(WeekDayName(i), 3) & "</b></Font></TD>" & vbCrlf
  Next
  Response.Write "</TR>" & vbCrlf

  '## Set dDay to the First day of the month ##
  dDay = DateSerial(yYear,mMonth,1)

  FOR j=1 to 6

    Response.Write "<TR>" & vbCrlf

        FOR i=vbSunday to vbSaturday
            CellStr="<Font size=-3>&nbsp;</Font>"
          Color=cellcolor

          If WeekDay(dDay) = i and Month(dDay) = mMonth then

          '## Set Color to Yellow if Current Day
              if (Day(dDay) = Day(now)) and (Month(dDay) = Month(now)) and (Year(dDay) = Year(now)) then Color="Yellow"

              CellStr = "<a href='Update.asp?d=" & dDay & "'><Font size=-2>" &  Day(dDay)  & "</Font></a><BR>"

                '## Get the Memo Field out of Database for current Date
              Memo = GetCellData(dDay)
                  IF Memo <> "" then    
                  '## Format Cell String if there is a Memo ##   
                  CellStr ="<a href='Update.asp?d=" & dDay & "'><Font size=-2>" &  Day(dDay)  & "</Font></a><BR>"  &  "<a href=#" & dDay & "><img alt='Vis dag' border=0 src=" & ViewDayImage & "></a>"
   
                '## Save Calendar Details to Print After the Calendar is Displayed ##
                  Details = Details & "<Table Align=center width=" & TableWidth & "  cellspacing=2 cellpadding=3 border=0>"  & vbCrlf
                  Details = Details & "<TR>" & vbCrlf
                  Details = Details & " <TD width=" & TableWidth-10 & " bgcolor='" & Bgcolor & "'>" & vbCrlf
                      Details = Details & "  <a name='" & dDay & "'><Font Size=-1>" & Ucase(WeekDayName(weekday(dDay))) & " - " & Day(dDay) & ". " & Ucase(MonthName(Month(dDay))) & "  " & Year(dDay)  & "</Font>" & vbCrlf
                  Details = Details & " </TD>" & vbCrlf
                      Details = Details & " <TD Align=right bgcolor='" & BgColor & "'>" & vbCrlf
                      Details = Details & "<a href='Update.asp?d=" & dDay & "'>" & EditImage & "</a>&nbsp;"
                  Details = Details & "<a href='Delete.asp?d=" & dDay & "'>" & DeleteImage & "</a>&nbsp;" 
                            Details = Details & "<a href=#top>" & ToTopImage & "</a>"
                  Details = Details & " </TD>" & vbCrlf
                      Details = Details & "</TR>" & vbCrlf
                  Details = Details & "</Table>" & vbCrlf
                    Details = Details & "<Table Align=center width=" & TableWidth & "  cellspacing=2 cellpadding=3 border=0>"  & vbCrlf
                  Details = Details & "<TR>" & vbCrlf
                  Details = Details & " <TD bgcolor='" & color & "'>" & vbCrlf
                      Details = Details & "  <PRE><Font Face=arial>" & Memo &  "</Font></PRE>" &  vbCrlf
                  Details = Details & " </TD>" & vbCrlf
                      Details = Details & "</TR>" & vbCrlf
                  Details = Details & "</Table>" & vbCrlf
                '## End Calendar Details ##
                  End If
   
            '## Get the Next Day
              dDay = DateAdd("d",1,dDay)

          End If

          Response.Write "<TD vAlign=top align=left BgColor='" & Color & "'>"  & CellStr & "</TD>" & vbCrlf
        NEXT  '## FOR i=vbSunday to vbSaturday ##

      Response.Write "</TR>" & vbCrlf

  NEXT  '## For j=1 to 6 ##

  Response.Write "</Table>" & vbCrlf

  '## Display the Months at the bottom of the calendar ##
  CALL DisplayMonths()

  '## Display the Calendar Details ##
  Response.write  "<BR>" & Details & "<BR><BR>"

  For i=1 to 5
    Response.write "<BR>"
  Next

End Sub
'************************************************
'************************************************
Sub DisplayCalendarTop(dDay)
  Title = MonthName(month(dDay)) & " " & year(dDay)
  pPREVIOUS = dateadd("m",-1, dDay)
  nNEXT = dateadd("m",1,dDay)

  Response.Write "<a name=top><TABLE Align=center CELLPADDING=0 CELLSPACING=0 WIDTH=" & TableWidth & " BORDER=1>" & vbCrlf
  Response.Write "<TR VALIGN=MIDDLE ALIGN=CENTER>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.Write "<a href='" & request.servervariables("SCRIPT_NAME") & "?month=" & month(pPREVIOUS)  & "&year=" & year(pPREVIOUS) & "'1><font FACE=WingDings>" & chr(239) & "</font></a>" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.Write "<B><small>" & Title & "</small></B>" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.Write "<a href='" & request.servervariables("SCRIPT_NAME") & "?month=" & month(nNEXT)  & "&year=" & year(nNEXT) & "'><font FACE=WingDings>" & chr(240) & "</font></a>" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "</TR>" & vbCrlf
  Response.Write "</TABLE>" & vbCrlf
End Sub
'************************************************
'************************************************
Sub DisplayMonths()
  Response.Write "<TABLE Align=center CELLPADDING=0 CELLSPACING=0 WIDTH=" & TableWidth & " BORDER=1 BORDERCOLORLIGHT=#FFFFFF>" & vbCrlf
  Response.Write "<TR VALIGN=MIDDLE ALIGN=CENTER>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.write "<Font size=-2>"
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=1&year=" & year(now) & "'>Jan</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=2&year=" & year(now) & "'>Feb</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=3&year=" & year(now) & "'>Mar</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=4&year=" & year(now) & "'>Apr</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=5&year=" & year(now) & "'>Maj</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=6&year=" & year(now) & "'>Jun</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "<BR>"
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=7&year=" & year(now) & "'>Jul</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=8&year=" & year(now) & "'>Aug</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=9&year=" & year(now) & "'>Sep</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=10&year=" & year(now) & "'>Okt</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=11&year=" & year(now) & "'>Nov</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "&nbsp;&nbsp;<a href='" & request.servervariables("SCRIPT_NAME") & "?month=12&year=" & year(now) & "'>Dec</a>&nbsp;&nbsp;" & vbCrlf
  Response.Write "</Font>" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.write "<a href=addnew.asp><font size=-2>Tilføj</font></a>"
  Response.Write "</TD>" & vbCrlf
  Response.Write "</TR></TABLE>" & vbCrlf & vbCrlf

  Response.Write "<Center><a href=year.asp><Font size=-2>Vis alle måneder</Font></a></Center>"
  Response.Write "<Center><a href=search.asp><Font size=-2>Søg i kalenderen</Font></a></Center>"
 
  Response.Write "<Center><a href=help.asp><Font size=-2>Hjælp</Font></a></Center>"
End Sub
'************************************************
'************************************************
Function GetCellData(dDay)
Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "Select * from CalendarInfo where Date=#" & dDay & "#"
rs.open sSQL, Conn,3,3
GetCellData = ""
if rs.recordcount > 0 then GetCellData=rs("memo")
rs.close
Set rs = nothing
End Function
'************************************************
'************************************************
Sub DisplaySmallCalendar(mMonth, yYear)

  Title = "<a href=calendar.asp?month=" & mMonth & "&year=" & yYear & ">" & MonthName(mMonth) & " " & yYear & "</a>"

  dDay = DateSerial(yYear,mMonth,1)
  mMonth = Month(dDay)
  yYear = Year(dDay)
  FirstDayOfMonth =  Weekday(dDay)

  Response.Write "<TABLE Align=center width=150 CELLPADDING=0 CELLSPACING=0 BORDER=1>" & vbCrlf
  Response.Write "<TR VALIGN=MIDDLE ALIGN=CENTER>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.Write "<font size=-2>" & Title & "</font>" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "</TR>" & vbCrlf
  Response.Write "</TABLE>" & vbCrlf

  '## Start Displaying the Actual Calendar ##
  Response.Write "<Table width=150 Align=center CellPadding=3 CellSpacing=1 Border=1 BgColor='" & BgColor & "'>" & vbCrlf
  Response.Write "<TR Valign=Top Align=Center BgColor='" & bgcolor & "'>" & vbCrlf
  For i = vbSunday To vbSaturday
    Response.Write  "<TD><Font Size='-3'><b>" & left(WeekDayName(i), 1) & "</b></Font></TD>" & vbCrlf
  Next
  Response.Write "</TR>" & vbCrlf

  '## Set dDay to the First day of the month ##
  dDay = DateSerial(yYear,mMonth,1)

  FOR j=1 to 6

    Response.Write "<TR>" & vbCrlf

        FOR i=vbSunday to vbSaturday
          CellStr="<Font size=-3>&nbsp;</Font>"
          Color=cellcolor
          If WeekDay(dDay) = i and Month(dDay) = mMonth then

          '## Set Color to Yellow if Current Day
              if (Day(dDay) = Day(now)) and (Month(dDay) = Month(now)) and (Year(dDay) = Year(now)) then Color="Yellow"

              CellStr = "<Font size=-3>" &  Day(dDay)  & "</Font>"

            '## Get the Next Day
              dDay = DateAdd("d",1,dDay)
          End If
          Response.Write "<TD vAlign=top align=left BgColor='" & Color & "'>"  & CellStr & "</TD>" & vbCrlf
        NEXT  '## FOR i=vbSunday to vbSaturday ##

      Response.Write "</TR>" & vbCrlf

  NEXT  '## For j=1 to 6 ##

  Response.Write "</Table>" & vbCrlf

End Sub
'************************************************
'************************************************
Function CheckPwd(username,password)
Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "Select * from Passwords where username='" & username & "' and password='" & password & "'"
rs.open sSQL, Conn, 3, 3
CheckPwd = False
if rs.recordcount > 0 then CheckPwd = True
rs.close
set rs = nothing
End Function
'************************************************
'************************************************
%>
Avatar billede ellebaek Nybegynder
15. marts 2004 - 21:51 #1
problemet ligger der hvor du ligger data ind i databasen jeg har nemlig selv samme problem.
Avatar billede tubber Juniormester
15. marts 2004 - 22:03 #2
i kan evt. gemme dato som long.......så bliver det nemlig med mdr. navn (jan istedet for 01.....)......

Jeg tror det er fordi den skriver det ind som mm-dd-yyyy men da der ikke er noget der hedder mdr. 23 retter den selv.....ved det dog ikke, men i kan evt. formatere dato

Noget der ligner: Format$(date, "yyyy-mm-dd")

eller:

FormatDateTime(Date,1) det er long

Her kommer de forskellige dato koder
Format Values
Constant Value Description
vbGeneralDate 0 Display a date in format mm/dd/yy. If the date parameter is Now(), it will also return the time, after the date
vbLongDate 1 Display a date using the long date format: weekday, month day, year
vbShortDate 2 Display a date using the short date format: like the default (mm/dd/yy)
vbLongTime 3 Display a time using the time format: hh:mm:ss PM/AM
vbShortTime 4 Display a time using the 24-hour format: hh:mm

Står godt nok vb men det skulle være det samme i ASP
Husk at formatere ens i db......ellers lav den på output fra db

varDato = rs("dbDato")
FormatDateTime(varDato,1)
/Tubber
Avatar billede tubber Juniormester
15. marts 2004 - 22:04 #3
Kig evt. her : http://www.w3schools.com/vbscript/func_formatdatetime.asp
Avatar billede skipper4230 Nybegynder
15. marts 2004 - 22:39 #4
jeg forsøgte at ændre dato formatet fra langt til kort ingen forskel.
Avatar billede ellebaek Nybegynder
15. marts 2004 - 22:42 #5
vis lige hvor du indsætter din dato i din database, for jeg brugte:

<%
session.lcid = 1030
dato = "08-04-2004"
sql = "insert into tabel(dato) values(#"&dato&"#)"
%>
hvilket giver 04-08-2004 i databasen..

Men hvis jeg rettede det til:

<%
session.lcid = 1030
dato = "08-04-2004"
sql = "insert into tabel(dato) values('"&dato&"')"
%>
fik jeg det rigtige resultat.
Avatar billede tubber Juniormester
15. marts 2004 - 22:44 #6
er det en access database ?
Avatar billede tubber Juniormester
15. marts 2004 - 22:48 #7
<%
'session.lcid = 1030
dato = "08-04-2004"
sql = "insert into tabel(dato) values(#"&dato&"#)"
%>

Prøv lige denne
Avatar billede ellebaek Nybegynder
15. marts 2004 - 22:52 #8
Jeg bruger access ja, men det var lige for at sammenligne med skippers eksempel.

Det er ikke brugbart at udkommentere session.lcid = 1030 for så får han ikke månedsnavne på dansk, hvilket jeg gætter på han gerne vil have.

Derfor er det bedre at gøre det på den anden måde, og sætte datoen ind som tekst.
Avatar billede tubber Juniormester
15. marts 2004 - 22:57 #9
Det er også det jeg gør..........
jeg bruger også lcid, men den ligger jeg i global.asa......så er jeg sikker på det hjælper overalt i dokumentet.......

det er mere om der er noget konflikt mellem access og så aspkoden med datoformatet
Avatar billede tubber Juniormester
15. marts 2004 - 23:00 #10
Så er der sådan noget som det her:

<%
Function FormatMediumDate(DateValue)
    Dim strYYYY
    Dim strMM
    Dim strDD

        strYYYY = CStr(DatePart("yyyy", DateValue))

        strMM = CStr(DatePart("m", DateValue))
        If Len(strMM) = 1 Then strMM = "0" & strMM

        strDD = CStr(DatePart("d", DateValue))
        If Len(strDD) = 1 Then strDD = "0" & strDD

        FormatMediumDate = strDD & "-" & strMM & "-" & strYYYY

End Function
%>

Så skal LCID = 1030 ikke være der
Avatar billede skipper4230 Nybegynder
15. marts 2004 - 23:02 #11
her er update.asp

/Tom

*************************************

          <%

Response.buffer=true


%>

<!--#INCLUDE file="config.asp" -->
<!--#INCLUDE file="login.asp" -->

<%
dDate = request("d")

Caption = WeekDayName(WeekDay(dDate)) & " " & Day(dDate) & ". " &  MonthName(month(dDate)) & " - " & Year(dDate)

BACK = "calendar.asp?month=" & month(dDate) & "&year=" &  year(dDate)

CALL DisplaySmallCalendar(month(dDate), Year(dDate))

Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "Select * from CalendarInfo where Date=#" & dDate & "#"
rs.open sSQL, Conn, 3, 3

if rs.recordcount > 0 then
  if Ucase(request("action")) = "ADD" then
      rs("memo") = Trim(request("memo")) & ""
      rs("DateAdded") = now
      rs.update
      rs.close
      Set rs = nothing
      Response.Redirect  BACK
    end if
    memo = rs("memo")
else
    if Ucase(request("action")) = "ADD" then
      rs.addnew
      rs("date") = dDate
      rs("DateAdded") = now
      rs("memo") = Trim(request("memo")) & ""
      rs.update
      rs.close
      Set rs = nothing
      Response.Redirect  BACK
    end if
    memo=""
end if
%>

<center>
  <form name=sf method=get>
    <b><Font size=-1><%=Caption%></font></b><BR>
    <textarea cols=50 rows=10 name=memo><%=memo%></textarea>
    <input type=hidden name=d value=<%=dDate%>>
    <input type=hidden name=action value=add>
    <BR>
    <a href=calendar.asp?month=<%=month(dDate)%>&year=<%=year(dDate)%>><img border=0 src='cancel.gif'></a>
    <input type=image border=0 src='update.gif'>
  </form>
  </center>
Avatar billede ellebaek Nybegynder
15. marts 2004 - 23:03 #12
<%

Response.buffer=true


%>

<!--#INCLUDE file="config.asp" -->
<!--#INCLUDE file="login.asp" -->

<%
dDate = request("d")

Caption = WeekDayName(WeekDay(dDate)) & " " & Day(dDate) & ". " &  MonthName(month(dDate)) & " - " & Year(dDate)

BACK = "calendar.asp?month=" & month(dDate) & "&year=" &  year(dDate)

CALL DisplaySmallCalendar(month(dDate), Year(dDate))

Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "Select * from CalendarInfo where Date='" & dDate & "'"
rs.open sSQL, Conn, 3, 3

if rs.recordcount > 0 then
  if Ucase(request("action")) = "ADD" then
      rs("memo") = Trim(request("memo")) & ""
      rs("DateAdded") = now
      rs.update
      rs.close
      Set rs = nothing
      Response.Redirect  BACK
    end if
    memo = rs("memo")
else
    if Ucase(request("action")) = "ADD" then
      rs.addnew
      rs("date") = dDate
      rs("DateAdded") = now
      rs("memo") = Trim(request("memo")) & ""
      rs.update
      rs.close
      Set rs = nothing
      Response.Redirect  BACK
    end if
    memo=""
end if
%>

<center>
  <form name=sf method=get>
    <b><Font size=-1><%=Caption%></font></b><BR>
    <textarea cols=50 rows=10 name=memo><%=memo%></textarea>
    <input type=hidden name=d value=<%=dDate%>>
    <input type=hidden name=action value=add>
    <BR>
    <a href=calendar.asp?month=<%=month(dDate)%>&year=<%=year(dDate)%>><img border=0 src='cancel.gif'></a>
    <input type=image border=0 src='update.gif'>
  </form>
  </center>

Prøv sådan her... så virker det.
Avatar billede tubber Juniormester
15. marts 2004 - 23:05 #13
Og lidt dansk læsestof :)
http://www.html.dk/tutorials/asp/lektion4.asp

Og natter for i aften :O) kigger på det igen i morgen :)
Avatar billede skipper4230 Nybegynder
15. marts 2004 - 23:20 #14
ja det er en access db - 2000, det kan måske skyldes at db oprindeligt var en 97...

Det skal jeg lige undersøge.... imorgen.

Tak for i aften

/Tom
Avatar billede ellebaek Nybegynder
15. marts 2004 - 23:21 #15
prøv det jeg skrev. det virker er jeg 99% sikker på.
Avatar billede skipper4230 Nybegynder
16. marts 2004 - 06:42 #16
desværre nej

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/kalender/Update.asp, line 22
.... og linie 21/22 er:
sSQL = "Select * from CalendarInfo where Date='" & dDate & "'"
rs.open sSQL, Conn, 3, 3
Avatar billede tubber Juniormester
16. marts 2004 - 13:32 #17
Det er fordi du prøver at sætte ind i et datofelt i db.

Det han mener er at du skal sætte det ind i et tekstfelt i db......

så vil det altid ha det format du sætter ind i db, det er også det jeg bruger......
Det eneste tidspunkt jeg kan se man SKAL bruge datofelter i db er hvis man skal find nogle tidsforskelle, f.eks. på indsat data og nu......

Jeg sætter dato ind sådan her:
Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("info.mdb")
SQL = "insert into tblInfo (dbDato) values ('" & FormatDateTime(Date,1)"')"
Conn.Execute(SQL)

Du kan så se fuldt udtræk igen på. http://komogvind.zentasoft.dk/response.asp

/Tubber
Avatar billede ellebaek Nybegynder
16. marts 2004 - 13:45 #18
præcis tubber... det skal være et tekst felt i databasen.
Avatar billede tubber Juniormester
16. marts 2004 - 13:57 #19
ellebaek: kan du se nogen ide i datofelter med mindre det skal bruges til sammenligning eller beregning af tid ?

Hvis det bare er for at se hvornår posten er indtastet så txt felt i db......
Avatar billede ellebaek Nybegynder
16. marts 2004 - 14:02 #20
Jeg kan ikke se noget formål umiddelbart mht. til at benytte det på en asp side...
Men jeg kan godt se fordelen hvis man kun benytter databasen...
Avatar billede tubber Juniormester
16. marts 2004 - 14:08 #21
Hvis man nu har et script der skal vise alle records der er nyere end 7 dage er man vel nød til det er man ikke ? kan du sammenholde et txtfelt med now() ?
Avatar billede ellebaek Nybegynder
16. marts 2004 - 14:30 #22
Jeg har ikke problemer med det i hvert fald...
Avatar billede tubber Juniormester
16. marts 2004 - 14:39 #23
ok jammen så skulle det da ikke være nødvendigt
med datofelt i db......for man chekker jo bare for gyldig dato i asp siden :)
Avatar billede skipper4230 Nybegynder
16. marts 2004 - 18:35 #24
Kanon

1000 tak - nå det var access der var synderen

Hilsen

Tom
Avatar billede tubber Juniormester
16. marts 2004 - 19:11 #25
Hvad blev din løsning så ? Tekstfelt eller ?
Avatar billede skipper4230 Nybegynder
16. marts 2004 - 21:26 #26
jep ændring af db feltet dato til tekstfelt
Avatar billede ellebaek Nybegynder
16. marts 2004 - 21:57 #27
burde jeg ikke have haft havldelen af de points ?
Avatar billede tubber Juniormester
16. marts 2004 - 23:37 #28
jo egenligt - de ligger her :)

http://www.eksperten.dk/spm/478271

Smidder du et svar :)

Og tak for points og skulle det være en anden gang :)
Avatar billede skipper4230 Nybegynder
17. marts 2004 - 06:49 #29
jo smidt et svar, så er der point til dig også
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:08 Bruge PHP til at hente hjemmeside med fsockopen Af Strawberry i PHP
28/0113:36 godt råd søges Alternativ styresystem på Mac pc Af luffe1955 i Andre styresystemer
28/0111:32 Hjælp til kontrol af sygefravær Af Maja i Excel
27/0113:59 2 skærme til en stationær computer Af BIRGER i Skærme
26/0119:26 Opstart af ny computer Af Bent i Windows
White papers
Flere white papers »