---
title: "Fråga om uppdaterings script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11765-fråga-om-uppdaterings-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "His Divine Shadow"
published: "2001-09-25T07:12:00.000Z"
updated: "2001-09-25T08:11:00.000Z"
replies: 2
views: 133
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11765-fråga-om-uppdaterings-script"
---

# Fråga om uppdaterings script

## #1 — His Divine Shadow, 2001-09-25T07:12Z

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?

Permalänk: https://www.webforum.nu/p/11765

## #2 — erka, 2001-09-25T07:44Z

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

Permalänk: https://www.webforum.nu/p/287279

## #3 — His Divine Shadow, 2001-09-25T08:11Z

thx, funkade fint.

Permalänk: https://www.webforum.nu/p/287280

---

Tråden på webben: https://www.webforum.nu/amne/asp/11765-fråga-om-uppdaterings-script
