Är det någon som kan hjälpa mig med detta skriptet?
Det är ett textadmin som jag kan logga in och ändra en text direkt på sidan.
Jag skulle vilja ha så att man klickar på en knapp och får fet text, kursiv text och länk. Så som här i forumet.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Request.QueryString("loggain")="no" then
Session.Abandon
Response.Redirect("text_admin.asp")
end if
if Request.QueryString("loggain")="yes" then
if Request.Form("anv")="admin" AND Request.Form("pass")="admin" then
Session("inlogg")="acd"
end if
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/text.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
if Request.QueryString("edit")="yes" then
text=Request.Form("Text")
UPDATE="UPDATE tblText Set [Text] = '"& text &"'"
Conn.Execute(UPDATE)
end if
%>
<html>
<head>
<title>Admnistrera</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
if Session("inlogg")="acd" then
strSQL="SELECT Text FROM tblText"
Set RecSet=Conn.Execute(strSQL)
%>
<form action="text_admin.asp?edit=yes" method="post">
<textarea name="text" cols="30" rows="15">
<%=RecSet("Text")%>
</textarea>
<br>
<input name="Skicka" type="submit" value="Uppdatera">
</form><p>
<a href="text_admin.asp?loggain=no">Logga ut</a>
<% else %>
<table border="0">
<tr><td>
<form action="text_admin.asp?loggain=yes" method="post">
Användarnamn</td><td><input type="text" name="anv"></td></tr><tr><td>
Password</td><td><input type="password" name="pass"><br></td></tr><tr><td colspan="2">
<input type="submit" value="Logga in">
</td></tr>
</table>
</form>
<% end if %>
</body>
</html>