script fejl?
eagleeye jeg fandt dette her script, som tror passer bedre ind i lige det jeg skal bruge:se:
http://www.macpack.dk/cms/skriv.asp
skriv.asp ser sådan her ud:
<%
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
indhold = rs("top")
titel = rs("bund")
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" ><% =top %>
</textarea>
<br>
Bund<br>
<textarea name="bund" cols="20" rows="7" id="bund" ><% =bund %>
</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 her:
<%
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
indhold = rs("top")
titel = rs("bund")
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><a href="skriv.asp">tilbage til skriv.asp </a></p>
</body>
</html>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
Med det script skal man kunne se og redigere top og bund, så det vises på vis.asp via rs.
Gider du evt. se hvad fejlen/e er i det script,, siden den skriver fejl når man klikker på send på skriv.asp,, også vises der ikke noget på vis.asp
du kan hente både skriv.asp & vis.asp & databasen her:
http://www.macpack.dk/cms/nytcms.zip
