03. marts 2007 - 16:28Der er
84 kommentarer og 1 løsning
Enme: Tagwall problemer, formatere dato og tid.
Hejsa Eksperter :)
Har downloadet en tagwall fra www.Netcoders.dk til min HP men har lidt problemer... Tagwallen som jeg downloadede viste kun dato, navn & besked men har selv lavet om på den så den viser dato, tid, navn & Besked :) fint nok... Problemet er den måde datoen bliver vist på + tiden :(
Sådan som siden er kodet nu: Den 2/24/2007 kl 04:24PM skrev: Gæst Besked: Hej
Den skulle gerne blive sådan: Den 24/2/2007 kl 16:24 skrev: Gæst Besked: Hej
Selve Koden: <!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <% Response.Buffer = true %> <html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
Hvor skal <b>Kl: <u><%= FormatDateTime(RS("Time"),4) %></u> - </b></font><b> </b> <font face="Verdana" size="1"> præcis indsættes? er lidt noob e dette :)
tjah.. der er ikke linje numre på så kan ikke rigtig sige hvor.. men du har det i den kode du viser os.. det eneste jeg har tilføjet ekstra er FormDateTime() før stod der bare RS("Time").
html'en er den samme... men det er selvfølgelig der i koden hvor du udskriver resultatet
<b>Kl: <u><%= FormatDateTime(RS("Time"),4) %></u> - </b></font><b> </b> <font face="Verdana" size="1"> virkede sådan da men nu er der en fejl på siden
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=2057%> <% Response.Buffer = true %> <html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
arghh.. sorry.. hvis det ikke virker så bør dette.
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=2057%> <% Response.Buffer = true %> <html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
hmm.. ja ellers dette.. underligt PM kom tilbage:S men det er måske vores top der gjorde det:) vi har valgt UK (LCID 2057, men det er det dato format du vil have)
ps. før du prøver nedenstående.. så ret lige i den før så øverste
<%session.lcid=2057%>
bliver til
<%session.lcid=1030%>
virker det stadig ikke så må nedenstående kunne klare det kode kunne klare det.
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=2057%> <% Response.Buffer = true %> <html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
<% function formatDate(format, intTimeStamp) dim unUDate, A ' Test to see if intTimeStamp looks valid. If not, they have passed a normal date if not (isnumeric(intTimeStamp)) then if isdate(intTimeStamp) then intTimeStamp = DateDiff("S", "01/01/1970 00:00:00", intTimeStamp) else response.write "Date Invalid" exit function end if end if if (intTimeStamp=0) then unUDate = now() else unUDate = DateAdd("s", intTimeStamp, "01/01/1970 00:00:00") end if unUDate = trim(unUDate) dim startM : startM = InStr(1, unUDate, "/", vbTextCompare) + 1 dim startY : startY = InStr(startM, unUDate, "/", vbTextCompare) + 1 dim startHour : startHour = InStr(startY, unUDate, " ", vbTextCompare) + 1 dim startMin : startMin = InStr(startHour, unUDate, ":", vbTextCompare) + 1 dim dateDay : dateDay = mid(unUDate, 1, 2) dim dateMonth : dateMonth = mid(unUDate, startM, 2) dim dateYear : dateYear = mid(unUDate, startY, 4) dim dateHour : dateHour = mid(unUDate, startHour, 2) dim dateMinute : dateMinute = mid(unUDate, startMin, 2) dim dateSecond : dateSecond = mid(unUDate, InStr(startMin, unUDate, ":", vbTextCompare) + 1, 2) format = replace(format, "%Y", right(dateYear, 4)) format = replace(format, "%y", right(dateYear, 2)) format = replace(format, "%m", dateMonth) format = replace(format, "%n", cint(dateMonth)) format = replace(format, "%F", monthname(cint(dateMonth))) format = replace(format, "%M", left(monthname(cint(dateMonth)), 3)) format = replace(format, "%d", dateDay) format = replace(format, "%j", cint(dateDay)) format = replace(format, "%h", mid(unUDate, startHour, 2)) format = replace(format, "%g", cint(mid(unUDate, startHour, 2))) if (cint(dateHour) > 12) then A = "PM" else A = "AM" end if format = replace(format, "%A", A) format = replace(format, "%a", lcase(A)) if (A = "PM") then format = replace(format, "%H", left("0" & dateHour - 12, 2)) format = replace(format, "%H", dateHour) if (A = "PM") then format = replace(format, "%G", left("0" & cint(dateHour) - 12, 2)) format = replace(format, "%G", cint(dateHour)) format = replace(format, "%i", dateMinute) format = replace(format, "%I", cint(dateMinute)) format = replace(format, "%s", dateSecond) format = replace(format, "%S", cint(dateSecond)) format = replace(format, "%L", WeekDay(unUDate)) format = replace(format, "%D", left(WeekDayName(WeekDay(unUDate)), 3)) format = replace(format, "%l", WeekDayName(WeekDay(unUDate))) format = replace(format, "%U", intTimeStamp) format = replace(format, "11%O", "11th") format = replace(format, "1%O", "1st") format = replace(format, "12%O", "12th") format = replace(format, "2%O", "2nd") format = replace(format, "13%O", "13th") format = replace(format, "3%O", "3rd") format = replace(format, "%O", "th") formatDate = format end function
hmm.. kan se den laver fejl på siden.. men hvis du har tilføjet det sidste jeg skrev og funktionen er på siden så skal vi konvertere vores dato til en string.. dvs
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=1030%> <% Response.Buffer = true %> <html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
og ellers.. virker denne ikke så kan det altså godt tænkes at dato'en måske blive ukorrekt først der hvor vi lægger 1 dag til.. for jeg formatterede dato'en før den blev sat ind
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=1030%> <% Response.Buffer = true %> <html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=2057%> <% Response.Buffer = true %> <html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=2057%> <% Response.Buffer = true %>
<% Function FormatDT(aTime,FormatStr) str = lcase(formatstr) str = Replace(str,"yyyy",Year(aTime)) str = Replace(str,"dd",Day(aTime)) str = Replace(str,"mm",Month(aTime)) str = Replace(str,"hh",Hour(aTime)) str = Replace(str,"nn",Minute(aTime)) str = Replace(str,"ss",Second(aTime)) FormatDT = str end function %>
<html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=2057%> <% Response.Buffer = true %>
<% Function FormatDT(aTime,FormatStr) str = lcase(formatstr) str = Replace(str,"yyyy",Year(aTime)) str = Replace(str,"dd",Day(aTime)) str = Replace(str,"mm",Month(aTime)) str = Replace(str,"hh",Hour(aTime)) str = Replace(str,"nn",Minute(aTime)) str = Replace(str,"ss",Second(aTime)) FormatDT = str end function %>
<html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
Hejsa igen :) Lige et sidste spørgsmål :) Prøvede for sjov lige at tilføje en "Stor" besked i gæstebogen og fik følgende fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/tagwall.asp, line 124
Linie 124 er: RS("Besked") = Request.Form("Besked")
Hva kan det være? vil bare for sjov gerne vide det :) Forsat go weekend :)
Koden som den er nu:
<!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=2057%> <% Response.Buffer = true %>
<% Function FormatDT(aTime,FormatStr) str = lcase(formatstr) str = Replace(str,"yyyy",Year(aTime)) str = Replace(str,"dd",Day(aTime)) str = Replace(str,"mm",Month(aTime)) str = Replace(str,"hh",Hour(aTime)) str = Replace(str,"nn",Minute(aTime)) str = Replace(str,"ss",Second(aTime)) FormatDT = str end function %>
<html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#3399FF"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
Har desværre ikke tid til at sidde foran computeren men hvis du havde en nem løsning ville det jo være super :)
Koden som den er idag: <!-- Denne Tagwall er kodet af Kasper Holm, og må benyttes frit, og laves om på! --> <%session.lcid=2057%> <% Response.Buffer = true %>
<% Function FormatDT(aTime,FormatStr) str = lcase(formatstr) str = Replace(str,"yyyy",Year(aTime)) str = Replace(str,"dd",Day(aTime)) str = Replace(str,"mm",Month(aTime)) str = Replace(str,"hh",Hour(aTime)) str = Replace(str,"nn",Minute(aTime)) str = Replace(str,"ss",Second(aTime)) FormatDT = str end function %>
<html> <body style="font-family: Verdana; font-size: 10 px; color: #000000; text-align: center" link="#000000" vlink="#000000" alink="#000000" bgcolor="#646DE4"> <% if Request.QueryString("mode")="" then %> <b>Vis Beskeder - <a target="_self" href="tagwall.asp?mode=ny">Skriv Besked</a></b> <p> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <p align=center> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "Select * From Tagwall order by dato DESC" set RS = Conn.Execute(strSQL)
if RS.EOF then Response.Write "<i><font face=""Verdana"" size=""1"">Der er ingen beskeder endnu!</font></i>" else Do Until RS.EOF %> </p> </td> </tr> </table>
Response.Redirect "tagwall.asp" %> <% end if %> </body> </html>
M.v.h.
Synes godt om
Ny brugerNybegynder
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.
