i min gästbok har jag datum, men skulle gärna vilja ha tid också. När jag högerklickar på min gästbok och tar "visa källa" så står det så här: <INPUT TYPE=HIDDEN NAME=datum value=2005-03-26 23:02:27 Hmm... inte alls säker på att det är det här du är ute efter, men testa att omsluta hela datum/tid strängen med "" så du får: Om jag gör det så får jag "2005-03-27" och ingen tid. Kolla i databasen så att du har en fälttyp som innehåller både datum och tid. jag har kollat och det finns endast tiden där. Är det så att du har datum i ett fält och tiden i ett annat? jag har ingen tidsfält alls. Har försökt att göra ett sådant i databasen men det är alltid tomt, i datumfältet står det endast datum. Nu står det verkligen still uppe i knoppen skall jag lova ;-) Fattar inget !! OK Du kan ändra fälttypen så att det är kort tidsformat, dvs bara timmar och minuter. testade det. Skrivet ur skallen. formatDatetime("DinTid",3) eller 4 något av dem är kort tidsformat och den andra långt tidsformat. 1 och 2 styr om det ska vara kort eller långt datumformat,fel på tiden
Datumet syns som sagt var, men hur skall jag göra för att även tiden skall visas?
I min asp-fil ser den raden ut så här: <%=RecSet("datum")%>
/ninaSv: fel på tiden
<INPUT TYPE=HIDDEN NAME=datum value="2005-03-26 23:02:27"
Är det så du menar?
/HenkeSv:fel på tiden
det är ju asp-stängen <%=RecSet("datum")%> som jag måste omsluta med fnuttar och resultatet blir då bara datum.
Jag har en databas som det kommer ifrån. Skall man skriva på något annat sätt?
Hela filen ser ut så här:
<code>
<%@ Language = VBSCRIPT %>
<%Session.lcid=1053%>
<!-- #INCLUDE FILE = "adovbs.inc" -->
<!-- #INCLUDE FILE = "smile.asp" -->
<!-- #INCLUDE FILE="smile2.asp" -->
<%
Dim datum
datum = Now()
Dim IntSida, Connect, RecSet, SQL, bildnamn, imgBild
%>
<html>
<head>
<title>Historiesajten.se - Svensk historia</title>
</head>
<body topmargin="10">
<form name="insertText" method="post" action="slaktadd.asp" onSubmit="return checkInput(this)">
<table WIDTH="430" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD colspan="2" id="gg" bgcolor="#ede1f9"><center>Välkommen!</center></td></tr>
<TR><TD id=dd valign="bottom">Namn:<font color="#FF0000">*</font> </TD>
<TD id=dd valign=bottom>Hemvist:<font color="#FF0000">*</font> </TD></TR>
<TR><TD><INPUT TYPE=TEXT NAME=namn SIZE="30" MAXLENGTH="225"></TD>
<TD><INPUT TYPE=TEXT NAME=city SIZE="30" MAXLENGTH="225"></TD></TR>
<TR><TD id=dd valign=bottom>Hemsida: </TD>
<TD id=dd valign="bottom">E-post: </TD></TR>
<TR><TD><INPUT TYPE=TEXT NAME=homepage SIZE="30" MAXLENGTH="225"></TD>
<TD><INPUT TYPE=TEXT NAME=email SIZE="30" MAXLENGTH="225"></TD></TR>
<TR><TD colspan=2 id=dd valign=bottom>Meddelande:<font color="#FF0000">*</font></TD></TR>
<TR><TD colspan=2><TEXTAREA NAME=med WRAP="physical" rows=5 cols=50></textarea></TD></TR>
<TR><TD><INPUT TYPE=HIDDEN NAME=datum value=<%=datum%></td></tr>
<TR><TD><INPUT TYPE="SUBMIT" value="Skicka">
</table>
</form>
<%
IntSida = Trim(Request.QueryString("Sida"))
If IntSida = "" Then
IntSida = 1
Else
IntSida = Cint(IntSida)
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("slaktbok.mdb")
SQL = "SELECT * FROM tabell1 order by datum desc, id desc"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
If RecSet.EOF = True Then
Response.Write("Inga poster hittades i databasen!<BR>")
Else
RecSet.PageSize = 20
RecSet.AbsolutePage = IntSida
End If
Do until RecSet.EOF Or IntAntal >= RecSet.PageSize
IntAntal = IntAntal + 1
%>
<table border="0" width="430" cellspacing="0" cellpadding="2">
<TR bgcolor="#EFEFEF"><TD WIDTH=200 ID=dd><B><nobr>Namn:</B> > <%=RecSet("namn")%></TD></TR>
<TR bgcolor="#EFEFEF"><TD ID=dd COLSPAN=2><B>Hemvist:</B> <%=RecSet("city")%></TD></TR>
<TR bgcolor="#EFEFEF"><TD ID=dd COLSPAN=2><B>Hemsida:</B> target="_blank"> <%=RecSet("homepage")%></TD></TR>
<TR bgcolor="#EFEFEF"><TD ID=dd COLSPAN=2 align=left><B>Datum:</B> <%=RecSet("datum")%></TD></TR>
<TR><TD width=420 ID=dd COLSPAN="2" bgcolor="#EFEFEF"><%=FixaLankar(Server.HTMLEncode(RecSet("med")))%></td></tr>
<tr><td ID=dd bgcolor="#E7DBF5"><%=RecSet("svar")%></TD></TR>
</table>
<%
RecSet.MoveNext
Loop
If RecSet.PageCount > 1 Then
For I = 1 To RecSet.PageCount
If I <> IntSida Then
Response.Write("" & I & " ")
Else
Response.Write(I & " ")
End If
Next
End If
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</body>
</html>
</code>
Den andra filen ser ut så här: <code>
<%@ Language = VBSCRIPT %>
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("slaktbok.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM tabell1"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.Addnew
RecSet("namn")=Request.Form("namn")
RecSet("email")=Request.Form("email")
RecSet("homepage")=Request.Form("homepage")
RecSet("city")=Request.Form("city")
RecSet("datum")=Request.Form("datum")
RecSet("med")=Request.Form("med")
RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.redirect "slaktbok.asp"
%>
</code>Sv: fel på tiden
Har du det så ska du få med tiden också.
//Anna-KarinSv:fel på tiden
kan det vara en inställning i databasen (access) kanske?
/ninaSv: fel på tiden
I sådant fall så får du slå ihop dem när du skriver ut.
//Anna-KarinSv:fel på tiden
Är det något fel i koden ovanför? Har jag glömt nått? Kan det vara fel på <code><%Session.lcid=1053%>
</code> ? Det är väl bara en sträng som skriver ut svensk tid? Har föresten försökt att ta bort den också, men det hjälpte inte. Har också försökt med olika inställningar i accessdatabasen, utan gott resultat. :-(Sv: fel på tiden
nu har jag fått till det med tiden.
Jag la till en kolumn "tid" i databasen och
<code>
Dim tid
tid = Time()
</code>
och
<code>
<INPUT TYPE="HIDDEN" NAME="tid" value=<%=tid%>
</code>
och
<code>
<%=RecSet("tid")%>
</code>
... men skulle nu vilja få bort sekunderna. Nu skrivs det ut tex.
12:53:25
och jag vill ha
12:53
hur gör man då?
//ninaSv:fel på tiden
FormatDateTime() finns också, men det är enklare att fimpa sekunderna redan i databasen.
//Anna-KarinSv: fel på tiden
i databasen står det 14:17
men i gästboken står det 14:17:25
hur gör man med FormatDateTime() ?
/ninaSv:fel på tiden
//Anna-Karin