ændre farve på tekst i .asp
HejFørst vil jeg sige af jeg var lige i trivel om dette her er den rigtige kategori, men prøver...
Jeg har et alm. script hvor man skrive i tekst boxe også bliver teksten gemt i en fil.mdb også vist på en anden side se her:
http://macpack.dk/cms/skriv.asp
Mit spørgsmål:
Der skal være en slags select box udenfor hver af de 3 text fields, også skal man kunne markere noget tekst, og derved vælge et X antal farver som ses i select boksen...
Håber nogle kan hjælpe....
Jeg har postet skriv.asp og vis.asp siderne her nederst.
skriv .asp
x<%
mode = request("mode")
dim conn, strconnect, sql, rs, top, bund
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
top = rs("top")
bund = rs("bund")
midt = rs("midt")
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'>
Top<br>
<textarea name="top" cols="20" rows="7" id="top" onkeyup="this.value=this.value.replace(/(\s)\s+/g,'$1');"><% =replace(top,"<br>",vbCrLf,1,-1,1) %></textarea>
<br>
midt<br>
<textarea name="midt" cols="20" rows="7" id="midt" onkeyup="this.value=this.value.replace(/(\s)\s+/g,'$1');"><% =replace(midt,"<br>",vbCrLf,1,-1,1) %></textarea>
<br>
<br>
Bund<br>
<textarea name="bund" cols="20" rows="7" id="bund" onkeyup="this.value=this.value.replace(/(\s)\s+/g,'$1');"><% =replace(bund,"<br>",vbCrLf,1,-1,1) %></textarea>
<br>
<input type="submit" name="submitButtonName">
</form>
<br>
<a href="vis.asp">Klik her for at se vis.asp
</a>
</body>
</html>
<%
elseif mode="update" then
top = Trim(Replace(request.form("top"),"'","`" ))
top = replace(top, vbCrLF, "<br>")
bund = Trim(Replace(request.form("bund"),"'","`" ))
bund = replace(bund, vbCrLF, "<br>")
midt = Trim(Replace(request.form("midt"),"'","`" ))
midt = replace(midt, vbCrLF, "<br>")
SQL2 = "update indhold set [top] ='" & top & "', bund='" & bund & "' , midt='" & midt & "' where side = 1;"
rs = Conn.Execute(SQL2)
response.redirect("vis.asp")
end if
%>
vis.asp
<%
dim conn, strconnect, sql, rs, top, bund
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
top = rs("top")
bund = rs("bund")
midt = rs("midt")
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 top %>
<br>
</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>
<% response.write midt %>
<br>
</p>
<p>
<% response.write bund %>
<br>
</p>
<p><a href="skriv.asp">tilbage til skriv.asp </a></p>
</body>
</html>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
