Lav en dato om!

If day(rs("Dato")) > 9 then
Dato=day(rs("Dato")) & "-" & Month(rs("Dato")) & "-" year(rs("Dato"))
else
Dato="0" & day(rs("Dato")) & "-" & Month(rs("Dato")) & "-" year(rs("Dato"))
end if

Response.write FormatDateTime(Dato,1)

Hej Meelby

Får denne her fejl:

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'

Slut på sætning var ventet

/ni/Q2/Matches.asp, linje 71

Dato=day(rs1("History_Event")) & "-" & Month(rs1("History_Event")) & "-" year(rs1("History_Event"))
-------------------------------------------------------------------------^

Du skal have et &-tegn før year

Nogle gange når fingrene ikke at følge hovedet ! - så her koden med alle '&' tegnene.

If day(rs("Dato")) > 9 then
Dato=day(rs("Dato")) & "-" & Month(rs("Dato")) & "-" & year(rs("Dato"))
else
Dato="0" & day(rs("Dato")) & "-" & Month(rs("Dato")) & "-" & year(rs("Dato"))
end if

Response.write FormatDateTime(Dato,1)

Hej meelby

Den virker ikke..Så her er lidt af min kode:

<% strGame = Request.QueryString("Year") %>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Matches.mdb")
    Set rs1 = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM Matches WHERE Year LIKE '%" & StrGame & "%' ORDER BY History_Event DESC"
    rs1.Open strSQL, myConn, 1, 3
%>
<%
Select Case weekday(rs1("History_Event"))
case 1 dag = "Sunday"
case 2 dag = "Monday"
case 3 dag = "Tuesday"
case 4 dag = "Wednesday"
case 5 dag = "Thursday"
case 6 dag = "Friday"
case 7 dag = "Saturday"
End Select

Select Case month(rs1("History_Event"))
case 1 maaned = " Januar "
case 2 maaned = " Februar "
case 3 maaned = " Marts "
case 4 maaned = " April "
case 5 maaned = " Maj "
case 6 maaned = " Juni "
case 7 maaned = " Juli "
case 8 maaned = " August "
case 9 maaned = " September "
case 10 maaned = " Oktober "
case 11 maaned = " November "
case 12 maaned = " December "
End Select
%>
<%If day(rs1("History_Event")) > 9 then
Dato=day(rs1("History_Event")) & "-" & Month(rs1("History_Event")) & "-" & year(rs1("History_Event"))
else
Dato="0" & day(rs1("History_Event")) & "-" & Month(rs1("History_Event")) & "-" & year(rs1("History_Event"))
end if
Response.write FormatDateTime(Dato,1)
%>

Det kan laves således:

Dato = rs1(\"History_Event\")
If day(Dato) < 10 then
  Dato=\"0\"&CStr(Dato)
end if
Response.write(Dato)

Jacob

Wall >>

Jeg tror jeg har misforstået spørgsmålet, men prøv med denne kode:

If day(History_Event) > 9 then
Dato=FormatDateTime(day(rs(\"History_Event\")) & \"-\" & Month(History_Event) & \"-\" & year(History_Event),1)
else
Dato=\"0\" & FormatDateTime(day(rs(\"History_Event\")) & \"-\" & Month(History_Event) & \"-\" & year(History_Event),1)
end if

Donk, donk, er der nogen hjemme ?

Kan du ikke lukke dette spørgsmål ?

LUK NU!!