---
title: "formulär"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44005-formulär"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Choronzon"
published: "2002-05-17T18:16:51.000Z"
updated: "2002-05-18T19:30:15.000Z"
replies: 27
views: 664
page: 1
pages: 2
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/44005-formulär"
---

# formulär

_Sida 1 av 2._

## #1 — Choronzon, 2002-05-17T18:16Z

Vad gör jag för fel, och hur gör jag det bättre? Jag skulle alltså vilja skicka innehållet i formuläret till databasen, och dessutom se innehållet i formulärfälten. En sorts adminsida hade jag tänkt alltså! :/

Skulle uppskatta om någon vill hjälpa mig på traven! :)

```
<!-- #include file="adovbs.inc" -->
<%
	If Session("login") <> "ok" Then
		Session("meddelande") = " utloggad, logga in igen!"
		Response.Redirect "utloggad.asp"
	End If

	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/text.mdb")&";pwd=pwd"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "Select * From members Where id = " &Request.QueryString("checkid")
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	If Session("meddelande") <> "" Then
		Response.Write Session("meddelande")
		Session("meddelande") = ""
	End If
	
	If request.querystring("change") = "codes" then 

		if request.querystring("checkid") = recset("id") then
			leftoverone = recset("leftoverone") 
			leftone = recset("leftone") 
			leftovertwo = recset("leftovertwo")
			lefttwo = recset("lefttwo") 				
			leftoverthree = recset("leftoverthree") 
			leftthree = recset("leftthree") 				
			recset.update
		End If
	End If
%>
	
	<html>
	<body>
	<a href="settings.asp?change=codes&checkid=213">länk</a>
	<a href="settings.asp?change=codes&checkid=214">länk</a>
	<a href="settings.asp?change=codes&checkid=215">länk</a>
<%	
	if request.querystring("checkid") = "213" then
%>
		<form method="post" name="213" action="settings.asp?change=codes&checkid=213">
<%	
		elseif request.querystring("checkid") = "214" then
%>
		<form method="post" name="214" action="settings.asp?change=codes&checkid=214">
<%	
		elseif request.querystring("checkid") = "215" then
%>	
		<form method="post" name="215" action="settings.asp?change=codes&checkid=215">
<%
	end if
%>

<input type="text" name="leftoverOne" size="60" value="<%=leftoverone%>">
<textarea cols="45" rows="12" name="leftone"><%=leftone%></textarea>
<input class="input" type="text" name="leftovertwo" size="60" value="<%=leftovertwo%>">
<textarea cols="45" rows="12" name="lefttwo"><%=lefttwo%></textarea>
<input type="text" name="leftoverthree" size="60" value="<%=leftoverthree%>">
<textarea cols="45" rows="12" name="leftthree"><%=leftthree%></textarea>
											
</form>
</body>
</html>
<%
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```

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

## #2 — icaaq, 2002-05-17T19:31Z

VAd är det som blir fel ?

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

## #3 — Choronzon, 2002-05-17T21:07Z

Inget syns i formulären, och det funkar inte att posta :/..var ett tag sen jag kollade på asp, tänkte om jag gjort något grundläggande fel, eller glömt något väsentligt?

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

## #4 — LAMP, 2002-05-17T21:12Z

Prova med att konvertera (Cstr, Cint, Clng, etc) subtyperna i dina if-satser så du är säker på att de jämförs korrekt.

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

## #5 — Choronzon, 2002-05-17T21:14Z

Kan du ge något litet exempel, är inte riktigt med på vad du menar..

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

## #6 — LAMP, 2002-05-17T21:17Z

```
if Cstr(request.querystring("checkid")) = "213" then
```

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

## #7 — Choronzon, 2002-05-17T22:29Z

Inget felmeddelande och inget händer:/  

Det här är alltså settings.asp, den enda filen.

```
<!-- #include file="adovbs.inc" -->
<%
	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/text.mdb")&";pwd=pwd"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "Select * From members Where id = " &Cstr(Request.QueryString("checkid"))
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	
	If Cstr(request.querystring("change") = "codes") then 

		if Cstr(request.querystring("checkid") = recset("id")) then
			leftoverone = recset("leftoverone") 
			leftone = recset("leftone") 
			leftovertwo = recset("leftovertwo")
			lefttwo = recset("lefttwo") 				
			leftoverthree = recset("leftoverthree") 
			leftthree = recset("leftthree") 				
			recset.update
		End If
	End If
%>
	
	<html>
	<body>
	<a href="settings.asp?change=codes&checkid=213">länk</a>
	<a href="settings.asp?change=codes&checkid=214">länk</a>
	<a href="settings.asp?change=codes&checkid=215">länk</a>
<%	
	if Cstr(request.querystring("checkid") = "213") then
%>
	<form method="post" name="213" action="settings.asp?change=codes&checkid=213">
<%	
		elseif Cstr(request.querystring("checkid") = "214") then
%>
	<form method="post" name="214" action="settings.asp?change=codes&checkid=214">
<%	
		elseif Cstr(request.querystring("checkid") = "215") then
%>	
	<form method="post" name="215" action="settings.asp?change=codes&checkid=215">
<%
	end if
%>

		<input type="text" name="leftoverOne" size="60" value="<%=leftoverone%>">
		<textarea cols="45" rows="12" name="leftone"><%=leftone%></textarea>
		<input class="input" type="text" name="leftovertwo" size="60" value="<%=leftovertwo%>">
		<textarea cols="45" rows="12" name="lefttwo"><%=lefttwo%></textarea>
		<input type="text" name="leftoverthree" size="60" value="<%=leftoverthree%>">
		<textarea cols="45" rows="12" name="leftthree"><%=leftthree%></textarea>
		<input type="submit" value="Skicka">											
	</form>
</body>
</html>
<%
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```

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

## #8 — Choronzon, 2002-05-18T09:16Z

oo
&nbsp;L
&nbsp;/

Första länken till själva sidan \<a href="settings.asp?change=codes&checkid=213"\>redigera\</a\>, när jag kommer dit vill jag att posterna ska synas, varför gör dom inte det? Någon?

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

## #9 — @nders, 2002-05-18T10:03Z

Det ser ut som att det är det fetmarkerade nedan det är fel på, så du aldrig kommer in i blocket.

Du kan ta bort de två markerade raderna eftersom du gör den jämförelsen i SQL-frågan.

```
		[b]if Cstr(request.querystring("checkid") = recset("id")) then[/b]
			leftoverone = recset("leftoverone") 
			leftone = recset("leftone") 
			leftovertwo = recset("leftovertwo")
			lefttwo = recset("lefttwo") 				
			leftoverthree = recset("leftoverthree") 
			leftthree = recset("leftthree") 				
			recset.update
		[b]End If[/b]
```

Dessutom ser det ut som att du gör tilldelningarna åt fel håll om du ska göra en update. Inga förändringar görs med koden ovan.

Mvh,

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

## #10 — Choronzon, 2002-05-18T10:14Z

Jo, nu syns ju i alla fall innehållet i posterna, men när jag skrivit in nya uppgifter och skickar så tar den bara det gamla ur db-n och skriver det igen, innehållet byts inte ut..

Hur skriver jag för att ändringar ska göras då?

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

## #11 — @nders, 2002-05-18T10:23Z

Istället för att använda recordsetmetoden .update tycker jag att du ska skriva en SQL-fråga som uppdaterar tabellen.

Exempel, om fälten är av taltyp:

```
StrSQL = "UPDATE Members SET leftoverone = " & variabelsominnehållernågot & ", leftone = " & annanvariabel & "  WHERE id = " & Request.QueryString("checkid")
```

Om text:

```
StrSQL = "UPDATE Members SET leftoverone = '" & variabelsominnehållernågot & "', leftone = '" & annanvariabel & "'  WHERE id = " & Request.QueryString("checkid")
```

Mvh,

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

## #12 — Choronzon, 2002-05-18T10:58Z

Förstår inte riktigt hur du menar..såhär eller? :r 

```
<%
	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/text.mdb")&";pwd=pwd"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "Select * From members Where id = " &Cstr(Request.QueryString("checkid"))
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	
	If Cstr(request.querystring("change") = "codes") then 

			leftoverone = recset("leftoverone") 
			leftone = recset("leftone") 
			leftovertwo = recset("leftovertwo")
			lefttwo = recset("lefttwo") 				
			leftoverthree = recset("leftoverthree") 
			leftthree = recset("leftthree") 				
			StrSQL = "UPDATE Members SET leftoverone = '" & leftoverone & "', leftone = '" & leftone & "'  WHERE id = " & Request.QueryString("checkid")

	End If
%>
	
	<html>
	<body>
	<a href="settings.asp?change=codes&checkid=213">länk</a>
	<a href="settings.asp?change=codes&checkid=214">länk</a>
	<a href="settings.asp?change=codes&checkid=215">länk</a>
<%	
	if Cstr(request.querystring("checkid") = "213") then
%>
	<form method="post" name="213" action="settings.asp?change=codes&checkid=213">
<%	
		elseif Cstr(request.querystring("checkid") = "214") then
%>
	<form method="post" name="214" action="settings.asp?change=codes&checkid=214">
<%	
		elseif Cstr(request.querystring("checkid") = "215") then
%>	
	<form method="post" name="215" action="settings.asp?change=codes&checkid=215">
<%
	end if
%>

		<input type="text" name="leftoverOne" size="60" value="<%=leftoverone%>">
		<textarea cols="45" rows="12" name="leftone"><%=leftone%></textarea>
		<input class="input" type="text" name="leftovertwo" size="60" value="<%=leftovertwo%>">
		<textarea cols="45" rows="12" name="lefttwo"><%=lefttwo%></textarea>
		<input type="text" name="leftoverthree" size="60" value="<%=leftoverthree%>">
		<textarea cols="45" rows="12" name="leftthree"><%=leftthree%></textarea>
		<input type="submit" value="Skicka">											
	</form>
</body>
</html>
<%
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```

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

## #13 — @nders, 2002-05-18T11:07Z

Du måste exekvera SQL-frågan också:

```
			StrSQL = "UPDATE Members SET leftoverone = '" & leftoverone & "', leftone = '" & leftone & "'  WHERE id = " & Request.QueryString("checkid")
			Connect.Execute strSQL,,128
```

Om du ska uppdatera med de där värdena så händer ingenting, eftersom det är de värdena som var i databasen från början. 
Vad är det för värden du ska uppdatera med, och var kommer de ifrån?

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

## #14 — emission, 2002-05-18T11:38Z

.....och du ska inte köra CStr så där... Flytta parenteserna :)

Ex:

if Cstr(request.querystring("checkid")) = "213" then

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

## #15 — Choronzon, 2002-05-18T12:31Z

Det är ju det jag skriver i formuläret som jag vill byta ut mot det gamla i posterna/kolumnerna i db-n..

```
<%
	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/text.mdb")&";pwd=pwd"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "Select * From members Where id = " &Cstr(Request.QueryString("checkid"))
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	
	If Cstr(request.querystring("change")) = "codes" then 

			leftoverone = recset("leftoverone") 
			leftone = recset("leftone") 
			leftovertwo = recset("leftovertwo")
			lefttwo = recset("lefttwo") 				
			leftoverthree = recset("leftoverthree") 
			leftthree = recset("leftthree") 				
			StrSQL = "UPDATE Members SET leftoverone = '" & leftoverone & "', leftone = '" & leftone & "'  WHERE id = " & Request.QueryString("checkid")
			Connect.Execute strSQL,,128

	End If
%>
	
	<html>
	<body>
	<a href="settings.asp?change=codes&checkid=213">länk</a>
	<a href="settings.asp?change=codes&checkid=214">länk</a>
	<a href="settings.asp?change=codes&checkid=215">länk</a>
<%	
	if Cstr(request.querystring("checkid")) = "213" then
%>
	<form method="post" name="213" action="settings.asp?change=codes&checkid=213">
<%	
		elseif Cstr(request.querystring("checkid")) = "214" then
%>
	<form method="post" name="214" action="settings.asp?change=codes&checkid=214">
<%	
		elseif Cstr(request.querystring("checkid")) = "215" then
%>	
	<form method="post" name="215" action="settings.asp?change=codes&checkid=215">
<%
	end if
%>

		<input type="text" name="leftoverOne" size="60" value="<%=leftoverone%>">
		<textarea cols="45" rows="12" name="leftone"><%=leftone%></textarea>
		<input class="input" type="text" name="leftovertwo" size="60" value="<%=leftovertwo%>">
		<textarea cols="45" rows="12" name="lefttwo"><%=lefttwo%></textarea>
		<input type="text" name="leftoverthree" size="60" value="<%=leftoverthree%>">
		<textarea cols="45" rows="12" name="leftthree"><%=leftthree%></textarea>
		<input type="submit" value="Skicka">											
	</form>
</body>
</html>
<%
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```

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

## #16 — emission, 2002-05-18T12:41Z

i den här delen:

```
Addera = "Select * From members Where id = " &Cstr(Request.QueryString("checkid"))
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	
	If Cstr(request.querystring("change")) = "codes" then 

			leftoverone = recset("leftoverone") 
			leftone = recset("leftone") 
			leftovertwo = recset("leftovertwo")
			lefttwo = recset("lefttwo") 				
			leftoverthree = recset("leftoverthree") 
			leftthree = recset("leftthree") 				
			StrSQL = "UPDATE Members SET leftoverone = '" & leftoverone & "', leftone = '" & leftone & "'  WHERE id = " & Request.QueryString("checkid")
			Connect.Execute strSQL,,128

	End If
```

...så plockar du ut data från databasen, och stoppar i den igen på samma ställe. Lite onödigt...

Är det inte meningen att du ska ta från formuläret, med:

leftoverone = request("leftoverone") 

osv.

?

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

## #17 — Choronzon, 2002-05-18T12:49Z

Hmm, jo, jag har nog snurrat till det verkar det som..  :l  
Det är nog meningen, hur ska jag lägga upp det istället då?

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

## #18 — [AMD]Zmaster, 2002-05-18T14:06Z

Jag som inte kan nått om det här blir alldelles snurrig av alla koder, kan ingen skriva efter varje rad:
'Förklaring vad denna rad gör
så vi andra kan lära oss av detta?

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

## #19 — emission, 2002-05-18T16:14Z

Kanske så här:

```
<%
	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/text.mdb")&";pwd=pwd"

	

	
	If Cstr(request.querystring("change")) = "codes" then 

			leftoverone = replace(request("leftoverone"),"'","''")
			leftone = replace(request("leftone") ,"'","''")
			leftovertwo = replace(request("leftovertwo"),"'","''")
			lefttwo = replace(request("lefttwo") ,"'","''")
			leftoverthree = replace(request("leftoverthree"),"'","''")
			leftthree = replace(request("leftthree") ,"'","''")
			
			strSQL = "UPDATE Members SET " & _
				 "leftoverone = '" & leftoverone & "', leftone = '" & leftone & "'," & _
				 "leftovertwo = '" & leftovertwo & "', lefttwo = '" & lefttwo & "'," & _
				 "leftoverthree = '" & leftoverthree & "', leftthree = '" & leftthree & "'," & _
				 "WHERE id = " & Request.QueryString("checkid")
			Connect.Execute strSQL,,128

	End If

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	strSQL = "Select * From members Where id = " & Request.QueryString("checkid")
	RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic

	if not RecSet.EOF then

%>
	
	<html>
	<body>
	<a href="settings.asp?change=codes&checkid=213">länk</a>
	<a href="settings.asp?change=codes&checkid=214">länk</a>
	<a href="settings.asp?change=codes&checkid=215">länk</a>
	<form method="post" name="213" action="settings.asp?change=codes&checkid=<%=request.querystring("checkid")%>">
		<input type="text" name="leftoverOne" size="60" value="<%=RecSet("leftoverone")%>">
		<textarea cols="45" rows="12" name="leftone"><%=RecSet("leftone")%></textarea>
		<input class="input" type="text" name="leftovertwo" size="60" value="<%=RecSet("leftovertwo")%>">
		<textarea cols="45" rows="12" name="lefttwo"><%=RecSet("lefttw")o%></textarea>
		<input type="text" name="leftoverthree" size="60" value="<%=RecSet("leftoverthree")%>">
		<textarea cols="45" rows="12" name="leftthree"><%=RecSet("leftthree")%></textarea>
		<input type="submit" value="Skicka">											
	</form>
	</body>
	</html>
	<%

	End If
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```

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

## #20 — Choronzon, 2002-05-18T16:57Z

Kanon med så mycket hjälp, får ett fel dock:

```
Microsoft OLE DB Provider for ODBC Drivers fel '80040e14' 

[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel i UPDATE-uttryck. 

settings.asp, rad 23
```

och rad 23 är:

```
Connect.Execute strSQL,,128
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/44005-formulär  
Nästa sida: https://www.webforum.nu/amne/asp/44005-formulär/page2.md