---
title: "går det att optimera detta kodstycke?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68884-går-det-att-optimera-detta-kodstycke"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "M.Cheraghi"
published: "2003-02-20T16:45:32.000Z"
updated: "2003-02-20T16:58:48.000Z"
replies: 5
views: 202
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/68884-går-det-att-optimera-detta-kodstycke"
---

# går det att optimera detta kodstycke?

## #1 — M.Cheraghi, 2003-02-20T16:45Z

tjenare.. äntligen e jag klar med login sidan! kan nån kolla igenom den o se om det finns nått som går att ändra så att behandligen av koden blir, hmm ja på nått sätt bättre :P

```
<!-- #Include File="adovbs.inc" -->
<%
user = replace(request.form("usern"),"'","''")
pass = replace(request.form("passw"),"'","''")

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/members.mdb")&";"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM members where username='"&user&"' AND password='"&pass&"'"
RS.Open SQL, Conn, adOpenStatic, adLockOptimistic

If rs.bof and rs.eof then

		response.write("nä, hittade inget")

else

Session("user") = RS("username")
session("id") = RS("id")

RS.Close

SQL = "SELECT * FROM members WHERE id=" & Session("id")
RS.Open SQL, Conn, adOpenStatic, adLockOptimistic

		RS("status") = "online"
		RS("online") = now

		RS.Update

rs.close
conn.close

end if
%>
```

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

## #2 — m_soderlund, 2003-02-20T16:49Z

Plocka bara ut nödvändiga fält från databasen, stäng öppna objekt med *Set blaha = Nothing*, använd ej Recordsett när du ska uppdatera i databasen...

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

## #3 — Cannabis_Tomten, 2003-02-20T16:51Z

> **m_soderlund skrev:**
>
> Plocka bara ut nödvändiga fält från databasen, stäng öppna objekt med *Set blaha = Nothing*, använd ej Recordsett när du ska uppdatera i databasen...

hmmm om jag inte ska andvända mej av recordset i update, vad ska jag andvända mej då? :r

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

## #4 — solbulle, 2003-02-20T16:56Z

Borde väl inte fungera sämre:

```
<%
user = replace(request.form("usern"),"'","''")
pass = replace(request.form("passw"),"'","''")

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/members.mdb")&";"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM members where username='"&user&"' AND password='"&pass&"'"
RS.Open SQL, Conn, 3, 3

If rs.bof and rs.eof then

		response.write("nä, hittade inget")
else

Session("user") = RS("username")
session("id") = RS("id")

		RS("status") = "online"
		RS("online") = now
		RS.Update

end if

rs.close
conn.close
%>
```

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

## #5 — m_soderlund, 2003-02-20T16:57Z

> **Cannabis_Tomten skrev:**
>
> > **m_soderlund skrev:**
> >
> > Plocka bara ut nödvändiga fält från databasen, stäng öppna objekt med *Set blaha = Nothing*, använd ej Recordsett när du ska uppdatera i databasen...
>
> 
> 
> 
> hmmm om jag inte ska andvända mej av recordset i update, vad ska jag andvända mej då? :r

Exempelvis är denna kod mer att föredra...

```
Conn.Execute "SET Status='Online',Online=" & Now() & " WHERE Id=" & Session("id") & ";",,128
```

..mer än denna:

```
SQL = "SELECT * FROM members WHERE id=" & Session("id")
RS.Open SQL, Conn, adOpenStatic, adLockOptimistic

		RS("status") = "online"
		RS("online") = now

		RS.Update
```

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

## #6 — Sebbe, 2003-02-20T16:58Z

Strunta i meddelandet. \*Är föt trött för att tänka\*

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/68884-går-det-att-optimera-detta-kodstycke