21. juni 2000 - 13:58
Der er
2 kommentarer og
1 løsning
Hjælp...!
Jeg har en sql database som jeg bruger til nyheder. Jeg har så lavet et program til at opdatere nyheder via en browser (en brugerflade). Problemet opstår, hvis man skal redigere en af nyhederne. Jeg kan sagtens får dem frem fra databasen, men nå jeg så bruger nedenstående side, så sletter den alt i nyheden.
Hvad er der galt ?
<%@ Language=VBScript %>
<% id = request.querystring("valg") %>
<%
artikel = replace(Request.form("artikel")&" ", "'", "''")
teaser = replace(Request.form("teaser")&" ", "'", "''")
slutdato = replace(Request.form("slutdato")&" ", "'", "''")
artikeldato = replace(Request.form("artikeldato")&" ", "'", "''")
overskrift = replace(Request.form("overskrift")&" ", "'", "''")
%>
<%
Set dataconn = Server.CreateObject("ADODB.Connection")
dataconn.ConnectionTimeout = Application("dataconn_ConnectionTimeout")
dataconn.CommandTimeout = Application("dataconn_CommandTimeout")
dataconnUser = Application("dataconn_RuntimeUserName")
dataconnPass = Application("dataconn_RuntimePassword")
dataconn.Open Application("dataconn_ConnectionString"),dataconnUser, dataconnPass
Set CmdTemp = Server.CreateObject("ADODB.Command")
Set CmdTemp.ActiveConnection = dataconn
Set rstmp = Server.CreateObject("ADODB.Recordset")
Sql = "update Nyheder set overskrift = '"& overskrift &"', artikeldato = '"& artikeldato &"', slutdato = '"& slutdato &"', teaser = '"& teaser &"', artikel = '"& artikel &"' where id = "&id&""
CmdTemp.CommandText = Sql
CmdTemp.CommandType = 1
rstmp.Open CmdTemp, , 0, 1
Response.Redirect "default1.asp"
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
Må vi se din <form> har du husket at skrive <form method="post"> , for hvis du
ikke har method med, eller har sat den til "get", så kan jeg godt forstå det.
Den rigtige gruppe til dette spørgsmål er nu nok ASP-gruppen. Der er også mange flere der læser den.
Men lad os lige prøve her...
<%@ Language=VBScript %>
<%idno = Request.QueryString("valg")%>
<%
Set dataconn = Server.CreateObject("ADODB.Connection")
dataconn.ConnectionTimeout = Application("dataconn_ConnectionTimeout")
dataconn.CommandTimeout = Application("dataconn_CommandTimeout")
dataconnUser = Application("dataconn_RuntimeUserName")
dataconnPass = Application("dataconn_RuntimePassword")
dataconn.Open Application("dataconn_ConnectionString"),dataconnUser, dataconnPass
Set CmdTemp = Server.CreateObject("ADODB.Command")
Set CmdTemp.ActiveConnection = dataconn
Set rstmp = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT id, Overskrift, artikeldato, slutdato, teaser, artikel from nyheder where id = "&idno
CmdTemp.CommandText = Sql
CmdTemp.CommandType = 1
rstmp.open cmdtemp, ,0,1
%>
<html>
<head>
<title>Admin</title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="CCCCCC" background="../images/bgr.jpg">
<font face="Arial">
<form action="../News/admin-nyheder-exe.asp?valg=<%=rstmp("id")%>" method="post">
<center><h2>Administrer <%=side%></h2>
<p>Her opdaterer De Nyhed til: <%=side%> </p>
Overskrift: <input type="text" name="Overskrift" value="<%=rstmp("overskrift")%>" size="20">
<p>Artikeldato: <input type="smalldatetime" name="artikeldato" value="<% = Month(rstmp("ArtikelDato")) & "-" & Day(rstmp("ArtikelDato")) & "-" & year(rstmp("ArtikelDato")) %>" size="20"></p>
<p>Slutdato: <input type="smalldatetime" name="slutdato" value="<% = Month(rstmp("SlutDato")) & "-" & Day(rstmp("SlutDato")) & "-" & year(rstmp("SlutDato")) %>" size="20"></p>
<p><textarea rows="8" cols="60" name="teaser"><%=rstmp("teaser")%></textarea></p>
<p><textarea rows="24" cols="60" name="artikel"><%=rstmp("artikel")%></textarea></p>
<p></p>
<p><input type="submit" value="Opdater" name="submit"></p>
<br>
</center>
</form>
</font>
</body>
</html>