---
title: "Bättre kod?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11377-bättre-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Steveking"
published: "2001-08-29T21:43:00.000Z"
updated: "2001-08-29T21:53:00.000Z"
replies: 1
views: 195
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/11377-bättre-kod"
---

# Bättre kod?

## #1 — Steveking, 2001-08-29T21:43Z

Hejsan!.

Jag har ett script där man lägger till text och länkar. 
Koden jag använder för att ta emot infon som skrivs i textfälten ser ut såhär.

```

<%

name = Request.form("name")
subject = Request.form("subject")
text = Request.form("text")

		set Conn=server.createobject("adodb.connection")
	        path="DBQ=" & server.mappath("DB.mdb")
	        conn.open "driver={microsoft access driver (*.mdb)}; " & path," ",""
	        SQL = "Select * from pages"
	        set Rs = Server.CreateObject("ADODB.Recordset")
	        Rs.Open sql, conn, 3, 3
       
        
	 
        Rs.Addnew
                
                
        Rs("datum") = date
        Rs("name") = name
	Rs("subject") = subject
        Rs("text") = text
        
		
        Rs.Update

		Rs.close
		Conn.close

		Response.write("Du har nu lagt till en sida.")

	End if
%>
```

Nu undrar jag ifall detta är ett bra sätt att göra det på ?

Känns som att det blir ganska mycket kod om man har väldigt många forms att fylla i.

Går det att lösa på ett smidigare sätt? och framförallt snabbare/bättre
Istället för att behöva skriva

```

name = Request.form("name")

och Rs("name") = name
```

till varje form som ska in.

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

## #2 — emission, 2001-08-29T21:53Z

```
<%

name = Replace(Request.form("name"),"'","''")
subject = Replace(Request.form("subject"),"'","''")
text = Replace(Request.form("text"),"'","''")

set Conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.mappath("DB.mdb")

SQL="INSERT INTO Pages ([Name],[Datum],[Subject],[Text]) VALUES('" & name & "',date(),'" & subject & "','" & text & "')"

conn.Execute SQL
Conn.close

Response.write("Du har nu lagt till en sida.")

End if
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11377-bättre-kod