Forkert datoformat

Ups jeg skrev vist forkert den skal vise det i datoformatet 25-05-2003 men nu skriver den 5/25/2003

Kig eventuelt på http://www.insideout.dk/nyheder.asp

Prøv med dette :

dinDato = rs("datofelt")

Response.Write FormatDateTime(dinDato,vbShortDate)

På toppen af siden skriver du oxo:
<% session.LCID = 1030 %>

Rigtigt hossein godt set.

jtc >

Du behøver nok heller ikke mere end

<%Session.LCID = 1030%>

Da det datoformat du får udkrevet er af amerikansk afstamning.

Nemlig formattet som man i USA bruger : mm-dd-yyyy.

Hvis du sætter <%Session.LCID = 1030%> Skulle den gerne ændre datoformattet til dd-mm-yyyy, men for en sikkerheds skyld ville jeg nok bruge FormatDateTime også.

Du kan også bruge dette funktion til at ændre / til - :

    <%
    function vis_dato()
        intDate = Date()
        intDay = Day(intDate)
        intMonth = Month(intDate)
        intYear = Year(intDate)

        if Len(intDay)=1 Then intDay = "0" & intDay

        if Len(intMonth)=1 Then intMonth = "0" & intMonth

        if Len(intYear)=4 Then intYear = Right(intYear, 2)
       
        response.Write(IntDay & "-" & IntMonth & "-" & IntYear)
    End function
    %>

Hvis du kører på din egen server så skal du i kontrol oanel under setting date and time ændre / til - (hvis det er ikke winXP)

Function Formatdate1(theDate)
    Formatdate1 = day(thedate) & "-" & month(thedate) & "-" & year(thedate)
End Function

og du kalder den frem med den her
<%=Formatdate1(RS("Dato"))%>

Ah, dato er fra db så kan du formatere den således:
<%
Function FormatMinDato(Datoen)
    Dim strYYYY
    Dim strMM
    Dim strDD

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

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

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

        FormatMinDato = strDD & "-" &  strMM & "-" & strYYYY

End Function
%> 

<% = FormatMinDato(rs("dato")) %>

Jeg har altså lige afvist alle jeres svar da jeg stadig har problemer med datoformatet
Jeg har brugt Hosseins sidste indlæg men hvad gør jeg så med følgende

<% = indlaeg.Fields("dato")%>

Den skal også konverteres til at vise det datoformat, men hvad skriver jeg istedet???

Du behover ikke tænke på point. Jeg kan se på din side at du får fejl besked men det kan vi løse hvis du lægger din kode her ellers bliver mit svar bare et gæt og det kan du ikke bruge til noget som helst.

Fejlen er:
Item cannot be found in the collection corresponding to the requested name or ordinal.

Fordi du har ikke valgt en af dine felter som du vil udskrive i SQL sætningen!?

Ja, nu ser rigtig ud?!

vil du have hele sidens kode for den fylder sådan cirka 400 linier???

det ser ud til at den virker eller hvad?

ja i højre side virker det, men jeg vil også have datoformatet i venstre side til at blive ændret i alle indlægene???

mangler du ikke bare at rette datoen til venstre:
Af: Per Høberg  Opdater indlæg
5/10/2003 

til højre ser godt nok ud?

du skal bare gøre det samme for venstre side? eller hvad? har du prøvet?

jo man hvad skal jeg så skrive istedet for
<% = indlaeg.Fields("dato")%>

jamen så skriver den jo den samme dato hele vejen ned af siden

her er koden som bliver brugt i venstre side

<%
While NOT indlaeg.EOF
%>
                    </font> <table width="400" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#000000">
                          <% = indlaeg.Fields("overskrift")%>
                          </font></strong></font> </td>
                      </tr>
                      <tr>
                        <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><img src="pic/gul.gif" width="400" height="2"><br>
                          </font> <table width="400" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td width="219"><em><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Af:
                                <%=indlaeg.Fields("forfatter")%></font> </em>
                                <div align="right"></div></td>
                              <td width="181"> <div align="right"><em><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="/validering.asp?funktion=opdater&id=<% = indlaeg.Fields("id")%>">Opdater
                                  indlæg</a></font></em></div></td>
                            </tr>
                            <tr>
                              <td><em><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">
                                <% = indlaeg.Fields("dato")%>
                                </font></font></em></td>
                              <td> <div align="right"><em><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="/validering.asp?funktion=slet&id=<% = indlaeg.Fields("id")%>">Slet
                                  indlæg</a></font></em></div></td>
                            </tr>
                          </table></td>
                      </tr>
                      <tr>
                        <td> <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                            <br>
                            <font size="2"><%=replace(indlaeg.Fields("indlaeg"),vbcrlf,"<br>")%>
                            </font></font> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
                            <%
If indlaeg.Fields("link") <> "" then Response.Write("<br><br><font face='Verdana' size='2'>Dagens link: " & "<a href='http://" & indlaeg.Fields("link") & "' target='_blank'>" & indlaeg.Fields("link") & "</a>")
%>
                            </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
                            </font></div></td>
                      </tr>
                    </table>
                    <font face="Verdana, Arial, Helvetica, sans-serif"><br>
                    <br>
                    <br>
                    <%
indlaeg.MoveNext
Wend
%>
                    </font></td>
                </tr>
              </table>
              <font face="Verdana, Arial, Helvetica, sans-serif">
              <input type="hidden" name="tid" value="<% = tid%>">
              </font></form></td>
          <td width="60" align="center" valign="top">&nbsp;</td>
          <td width="280" valign="top"> <table width="280" height="28" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td valign="top"> <table width="280" border="0" cellpadding="0" cellspacing="0">
                    <%
    '--- Her startes loopen
    Do While Not Rs.Eof
  %>

du bruger dette funktion:
Function FormatMinDato(Datoen)
    Dim strYYYY
    Dim strMM
    Dim strDD

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

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

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

        FormatMinDato = strDD & "-" &  strMM & "-" & strYYYY

End Function
%> 
Også når du skal skrive ud:
<% = FormatMinDato(indlaeg.Fields("dato")) %>

Sådan, nu virker det!

Har du ikke glemt noget?

Ja nu virker det hele perfekt....jeg takker mange gange

Men jeg har ikke glemt noget :-)
Jeg skulle bare lige tjekke om det nu også virkede på de andre sider hvor jeg brugte den samme funktion, og det gør det

Så her er dine velfortjente point

Takker!