hjælp til .asp redigering online
Nogle der kan hjælpe mig at tilføje skrifttype, skriftstørrelse funktion i mit script her.???Siden kan ses her:
http://www.macpack.dk/cms/skriv.asp
Sådan her ser begge sider ud:
skriv.asp
<%
mode = request("mode")
dim conn, strconnect, sql, rs, indhold, title
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../db/cms.mdb")
set rs = server.createobject("ADODB.Recordset")
sql = "select * from indhold where side=1;"
rs.open sql, conn
while not rs.eof
indhold = rs("indhold")
titel = rs("titel")
rs.movenext
wend
if mode = "" then
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Skriv til vis.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name='FormName' action='skriv.asp?mode=update' method='post'>
<textarea name="indhold1" cols="70" rows="20" ><% =indhold %>
</textarea>
<br>
<input type="submit" name="submitButtonName">
</form>
<br>
<a href="vis.asp">Klik her for at se vis.asp
</a>
</body>
</html>
<%
else
indhold2 = Trim(Replace(request.form("indhold1"),"'","`" ))
indhold2 = replace(indhold2, vbCrLF, "<br>")
SQL2 = "update indhold set indhold ='" & indhold2 & "' where side = 1;"
rs = Conn.Execute(SQL2)
response.redirect("vis.asp")
end if
%>
vis.asp
<%
dim conn, strconnect, sql, rs, indhold, title
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../db/cms.mdb")
set rs = server.createobject("ADODB.Recordset")
sql = "select * from indhold where side=1;"
rs.open sql, conn
while not rs.eof
indhold = rs("indhold")
titel = rs("titel")
rs.movenext
wend
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Vis side</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>
<% response.write indhold %>
<br>
</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p><a href="skriv.asp">tilbage til skriv.asp </a></p>
</body>
</html>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
