News funktion

ja, det kan det da...

<%
session.LCID = 1030

Function fncTextChange(strText)
            strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"""","''")
            fncTextChange = Replace(strTekst,"'","''")   
            fncTextChange = Replace(fncTextChange,"  "," &nbsp;")
            fncTextChange = Replace(fncTextChange,">","&gt;")
            fncTextChange = Replace(fncTextChange,"<","&lt;")
            fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
            fncTextChange = Replace(fncTextChange,"å","&aring;")
            fncTextChange = Replace(fncTextChange,"æ","&aelig;")
            fncTextChange = Replace(fncTextChange,"ø","&oslash;")
            fncTextChange = Replace(fncTextChange,"Å","&Aring;")
            fncTextChange = Replace(fncTextChange,"Æ","&AElig;")
            fncTextChange = Replace(fncTextChange,"Ø","&Oslash;")
        End Function

dato = day(date) & ". " & monthname(month(date)) & " " & year(date) & ", " & time()
forfatter = request.form("forfatter")
nyhed = fncTextChange(request.form("nyhed"))

sql = "insert into tabel(forfatter, dato, nyhed) values('"&forfatter&"','"&dato&"','"&nyhed&"')"
set rs = server.createObject("adodb.connection")
conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
conn = conn & "DBQ=" & server.mappath("database.mdb")

rs.open conn
set rs = rs.execute(sql)
Response.write "data er opdateret"
%>

Sådan her skal din aspside nogen lunde se ud..

Altså så jeg skal bare lave en database med:
forfatter  nyhed
Lasse K    Idag blev den nye side... '

Og så bliver dato selv sat ind? bliver det sådan at nyheden starter på en linie for sig?

altså den kode jeg har skrevet der oppe klarer kun indsættelsen i databasen..
Du skal så have en database der har følgende felter:
forfatter -> tekst (255)
nyhed -> Notat
dato -> Tekst (50)
id -> Autonummerering

tallene i () viser længden felterne skal have..

Skal du også have en side til at hive data ud igen..?

det ved jeg ikke helt, jeg skal have det lavet sådan at jeg kan hente infomationerne ind til flash. Tror det skal gøre ved hjælp af asp?

Jeg er ikke så skarp i flash, så det ved jeg faktisk ikke..

spørger lige i flash kat

Ok..

Men selve det med at indsætte i databasen, det kan det script jeg har skrevet her.

Hey igen.. Nu har jeg så kigget lidt rundt på nogle sider og jeg er kommet frem til det her:

Access:
ID  Forfatter  Dato          Nyhed
1    Lasse      20 maj 2004  8*hmmz?

ASP:
<%
Dim oRS, oConn

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
oConn.Open

If oRS.EOF Then
    Response.Write "Forfatter=Not+Found&Dato=Not+Found&Nyhed=Not+Found"
Else
    Response.Write "Forfatter=" & Server.URLEncode(oRS("Forfatter")) & "&Dato=" & Server.URLEncode(oRS("Dato")) & "&Nyhed=" & Server.URLEncode(oRS("Nyhed"))

End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>

kan du se om der nogle fejl i dette?

ja, du mangler en sql..

Ellers ikke rigtigt..
sådan her fx:

<%
Dim oRS, oConn

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
oConn.Open
sql = "select * from tabel order by id desc"
oRS.open sql, oConn

If oRS.EOF Then
    Response.Write "Forfatter=Not+Found&Dato=Not+Found&Nyhed=Not+Found"
Else
    Response.Write "Forfatter=" & Server.URLEncode(oRS("Forfatter")) & "&Dato=" & Server.URLEncode(oRS("Dato")) & "&Nyhed=" & Server.URLEncode(oRS("Nyhed"))

End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>