2 svar · 120 visningar · startad av His Divine Shadow
Här har jag ett enkelt uppdaterings script:
Redigera.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\news.mdb;"
SQL = "SELECT * from rubrik"
Set RS_prod = Conn.Execute(SQL)
%>
<html>
<head>
<meta name="generator" content="Adobe GoLive 4">
<title>redigera Rubrik</title>
</head>
<% Do Until RS_prod.EOF %>
<body>
<form method="POST" action="redigera2.asp" id=form1 name=form1>
<p>
<table border="0" cellpadding="3" cellspacing="0" width="500">
<tr>
<td width="90">Svensk Rubrik:</td>
<td><input type="text" name="Swe_rubrik" value='<%=Rs_Prod("Swe_rubrik")%>' size="24"></td>
</tr>
<tr>
<td width="90">Finsk Rubrik:</td>
<td><input type="text" name="Fin_rubrik" value='<%=Rs_Prod("Fin_rubrik")%>' size="24"></td>
</tr>
</table>
<%
RS_prod.MoveNext
Loop
Conn.Close
%>
</p>
<p><input type="submit" value="Skicka!" name="Skicka!"></p>
<p>
</form>
</body>
</html>
Redigera2.asp
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\Webdata\news.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM Rubrik"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.Update
RecSet("Swe_Rubrik") = Request.Form("Swe_Rubrik")
RecSet("Fin_Rubrik") = Request.Form("Fin_Rubrik")
RecSet.Update
RecSet.Close
Connect.Close
'un-comment this line to point to your desired confirm page
Response.Redirect("news.asp")
'tell the user their account is added
Response.Write("News updated")
%>
Ser väl helt OK ut, men vad jag vill är att få dom här 2 filerna till en ASP fil, det går väl nog?
------------------
His Divine Shadow is the most despicable being ever created, short and to the point.
http://forums.planetdivine-shadow.com
Sprit löser inga problem. Men det gör inte mjölk heller.
Sidan update.asp
If Request.Querystring("Action") = "Show" Then
Kod på sidan som visar grejjerna
Else If Request.Querystring("Action") = "Update" Then
Kod på sidan som uppdaterar
End If
Sen anropar du sidorna genom update.asp?Action=Show
eller update.asp?Action=Update
------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !
thx, funkade fint.
------------------
His Divine Shadow is the most despicable being ever created, short and to the point.
http://forums.planetdivine-shadow.com
Sprit löser inga problem. Men det gör inte mjölk heller.