script to convert the date on display...HJÆLP!!!

Følgende formaterer direkte i SQL-kaldet:

set conn = ...

strSQL = "SELECT *, Format$([datofelt],'dd-mm-yyyy') AS FormateretDato FROM tabelnavn WHERE ..."

set rs = conn.execute(strSQL)
dato = rs("FormateretDato")
response.write (dato)

(nb: det felt som indeholder datoen er kaldt 'datofelt'

Er det muligt at du gider tilrette mine koder? Jeg laver rimeligt sikkert bare rav i det...:

<%
Dim Conn2, strSQL2, DSN2, rs2

' If Request.QueryString("id") = "" Then
' strID2 = 1
' Else
' strID2=Request.QueryString("id")
' End If

'strID=Request.QueryString("id")

' Databaseforbindelse - husk at angive sti til din database
Set Conn2 = Server.CreateObject("ADODB.Connection")
DSN2 = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN2 = DSN2 & "DBQ=" & Server.MapPath("../../../_private/brovst.mdb")
Conn2.Open DSN2

' SQL forespørgsel
strSQL2 = "Select * From menu2"
' where Id=" & strID2 & ""
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs2 = Conn2.Execute(strSQL2)

' Gennemløb Recordset (rs) med en løkke
Do While Not rs2.EOF

' Udskriv værdien af kolonnen Dato,Overskrift og Link

Response.Write Trim(rs2("Dato")) & "<br>"

Response.Write Trim(rs2("Overskrift")) & "<br>"

If Trim(rs2("Link")) <> "" Then
Response.Write "<a href=indlaegb.asp?id=" & rs2("Id") & " target=""mainwindow"">Læs mere...</a><p>"
End If

' Gå til næste Record i rs
rs2.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
rs2.close
Set rs2 = Nothing
Conn2.Close
Set Conn2 = Nothing
%>

Og så ser min indlaeg.asp sådan ud:

<%
Dim strID3, Conn3, strSQL3, DSN3, rs3

strID3=Request.QueryString("id")
'End If

' Databaseforbindelse - husk at angive sti til din database
Set Conn3 = Server.CreateObject("ADODB.Connection")
DSN3 = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN3 = DSN3 & "DBQ=" & Server.MapPath("../../../_private/brovst.mdb")
Conn3.Open DSN3

' SQL forespørgsel
strSQL3 = "Select * From menu2 where Id=" & strID3 & ""
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs3 = Conn3.Execute(strSQL3)

' Gennemløb Recordset (rs) med en løkke

' Gennemløb Recordset (rs) med en løkke
Do While Not rs3.EOF

' Udskriv værdien af kolonnen Dato,Overskrift og Link

Response.Write "<div id=""text"">" & Trim(rs3("Dato")) & "</div>"

Response.Write "<div id=""textbestyrelsestor"">" & Trim(rs3("Overskrift")) & "</div><br>"

Response.Write "<div id=""text"">" & Trim(rs3("Tekst")) & "</div><br>"

' Gå til næste Record i rs
rs3.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
rs3.close
Set rs3 = Nothing
Conn3.Close
Set Conn3 = Nothing
%>


----------------------------------------------
Den første fil jeg sendte er menu2.asp, denne her er indlaeg.asp

<%
Dim Conn2, strSQL2, DSN2, rs2

' If Request.QueryString("id") = "" Then
' strID2 = 1
' Else
' strID2=Request.QueryString("id")
' End If

'strID=Request.QueryString("id")

' Databaseforbindelse - husk at angive sti til din database
Set Conn2 = Server.CreateObject("ADODB.Connection")
DSN2 = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN2 = DSN2 & "DBQ=" & Server.MapPath("../../../_private/brovst.mdb")
Conn2.Open DSN2

' SQL forespørgsel
strSQL2 = "Select *, Format$([Dato],'dd-mm-yyyy') AS FmtDato From menu2"
' where Id=" & strID2 & ""
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs2 = Conn2.Execute(strSQL2)

' Gennemløb Recordset (rs) med en løkke
Do While Not rs2.EOF

' Udskriv værdien af kolonnen Dato,Overskrift og Link

Response.Write Trim(rs2("FmtDato")) & "<br>"

Response.Write Trim(rs2("Overskrift")) & "<br>"

If Trim(rs2("Link")) <> "" Then
Response.Write "<a href=indlaegb.asp?id=" & rs2("Id") & " target=""mainwindow"">Læs mere...</a><p>"
End If

' Gå til næste Record i rs
rs2.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
rs2.close
Set rs2 = Nothing
Conn2.Close
Set Conn2 = Nothing
%>

<%
Dim strID3, Conn3, strSQL3, DSN3, rs3

strID3=Request.QueryString("id")
'End If

' Databaseforbindelse - husk at angive sti til din database
Set Conn3 = Server.CreateObject("ADODB.Connection")
DSN3 = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN3 = DSN3 & "DBQ=" & Server.MapPath("../../../_private/brovst.mdb")
Conn3.Open DSN3

' SQL forespørgsel
strSQL3 = "Select *, Format$([Dato],'dd-mm-yyyy') AS FmtDato From menu2 where Id=" & strID3 & ""
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs3 = Conn3.Execute(strSQL3)

' Gennemløb Recordset (rs) med en løkke

' Gennemløb Recordset (rs) med en løkke
Do While Not rs3.EOF

' Udskriv værdien af kolonnen Dato,Overskrift og Link

Response.Write "<div id=""text"">" & Trim(rs3("FmtDato")) & "</div>"

Response.Write "<div id=""textbestyrelsestor"">" & Trim(rs3("Overskrift")) & "</div><br>"

Response.Write "<div id=""text"">" & Trim(rs3("Tekst")) & "</div><br>"

' Gå til næste Record i rs
rs3.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
rs3.close
Set rs3 = Nothing
Conn3.Close
Set Conn3 = Nothing
%>

Ok, tjekker lige om det virker, og smider så points i din retning :o)

tjah, det gik lidt hurtigt der er måske nogle slåfejl..

Det virker... Du er for sej!!!!!!!!!

Det er bare vildt lækkert :o)

For det var den største fejl ved siden jeg lavede, så nu er jeg lidt mere rolig..!

1000 tak, du får dine points!

Harlis

:-)