opdatering af hjemmeside

Meget simpelt.. har lige nogle spørgsmål først..

1) skal der være billeder ?
2) Skal der være fed text ?
3) hvordan vil du ha teksten til at stå ?

Flash helst 5,0 det styre for vildt

Det kan da sagtens laves.

Dog IKKE for point - men rigtige penge, skriv på bjarke@bekhoj.dk for at få et tilbud.

En hurtig version

Indsættes i midten
-----------------------------------------------------------------------------------
<%
Function LinkString(strInput)
    Set objRegExpHTTP1 = New RegExp
    Set objRegExpHTTP2 = New RegExp   
    Set objRegExpEMail = New RegExp

    objRegExpHTTP1.Pattern = \"(http|ftp)(:\\/\\/[\\w\\._-]+\\.[\\w\\._-]+\\S*)\"
    objRegExpHTTP2.Pattern = \"(^|[^\\/])(www[^\\.\\s]?\\.[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"
    objRegExpEMail.Pattern = \"([\\w\\._-]+@[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"

    objRegExpHTTP1.Global = True
    objRegExpHTTP2.Global = True
    objRegExpEMail.Global = True

    objRegExpHTTP1.IgnoreCase = True
    objRegExpHTTP2.IgnoreCase = True
    objRegExpEMail.IgnoreCase = True

    strOutput = objRegExpEMail.Replace(strInput, \" <a href=\'mailto:$1\' >$1</a> \")
    strOutput = objRegExpHTTP1.Replace(strOutput, \" <a href=\'$1$2\' target=\'_blank\' >$1$2</a> \")
    strOutput = objRegExpHTTP2.Replace(strOutput, \" <a href=\'http://$2\' target=\'_blank\' >$2</a> \")
       
    Set objRegExpHTTP2 = Nothing
    set objRegExpHTTP1 = Nothing
    Set objRegExpEMail = Nothing

    LinkString = strOutput
End Function
%>


<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
set rs = Conn.execute(\"select * from teksten\")

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF

%>

<%=LinkString(rs(\"teksten\"))%><br>


<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>


opdater.asp
--------------------------------------------------------------------------------------




<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From teksten\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.Update
      rs(\"teksten\") = Request.form(\"teksten\")

      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%>

<%

response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=default.asp\"\">\")

%>

Opdater.htm
---------------------------------------------------------------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
set rs = Conn.execute(\"select * from teksten\")

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF

%>

<form method=\"post\" action=\"opdater.asp\">


<textarea rows=\"5\" name=\"teksten\" cols=\"31\"  ><%= rs(\"teksten\") %></textarea>

<input type=\"submit\" value=\"opdater\">
</form>

Så laver du en access db som hedder db og laver en tabel som hedder teksten, med en kolone der hedder teksten (:

Det ser ud til at virke (næsten) efter hensigten.
Men når jeg skriver den nye tekst på opdater.html bliver teksten bare udskrevet som en lang linie.

Når jeg åbner opdater.html skulle teksten i databasen så ikke står i tekstfeltet ?? Der står kun <%= rs(\"teksten\") %>.

Og så skal overskriften stå med fed skrift og centreret

Det er mig der er dum (:

opdater.html skal hedde noget andet f.eks. admin.asp <--- asp ikke html

når du skriver i dit textarea skal du selv skrive <br> ved break

Nu har jeg omdøbt opdater.html til admin.asp og for følgende fejlmeddelse:

\"Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03FB)
\'Loop\' var ventet
/aspfiles/vvc/admin.asp, line 16\"

Der mangler lige den her!
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

Fedt nok det virker nu....Tak for hjælpen

det var så lidt,,, nemme 300 point (: