---
title: "skapa en Funktion?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12467-skapa-en-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "origon"
published: "2001-11-05T19:03:00.000Z"
updated: "2001-11-05T19:43:00.000Z"
replies: 2
views: 163
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/12467-skapa-en-funktion"
---

# skapa en Funktion?

## #1 — origon, 2001-11-05T19:03Z

Hej,
det är så att jag har ett litet problem, jag vill göra en funktion av denna kod.

Och kan absolut ingenting om Funktioner.

```
If Request.Form("title1")<> "" THEN
CountM = Countm + 1
RecSet.AddNew
RecSet("title") = Request.Form("title1")
RecSet("type") = Request.Form("type1")
RecSet("user") = Request.Form("user1")
RecSet("Cd") = Request.Form("Cd1")
RecSet("Size") = Request.Form("Size1")
RecSet("quality") = Request.Form("quality1")
RecSet("dvdrip") = Request.Form("dvdrip1")
RecSet("IMDb") = Request.Form("IMDb1")
Recset("IP") = Request.ServerVariables("REMOTE_ADDR")
RecSet.Update
Connection2.Execute "UPDATE users SET Movies = Movies + 1 WHERE User='" & User & "'"
Connection4.Execute "UPDATE divxcount SET Movies = Movies + 1 WHERE ID='Divxcount'"
END IF
```

Och på ngt sätt vill jag kunna bestämma vilken siffra det ska stå i Request.Form, nu står det 1 men jag vill kunna bestämma då jag anropar funktionen vilken siffra det skall vara där.

Hoppas ni förstår mig och kan hjälpa mig.
Är tacksam för all slags hjälp ;)

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

## #2 — LarsG, 2001-11-05T19:14Z

Varför vill du ha det som en funktion (eller sub)? Jag tycker att det blir för mycket globala variabler. Om du har en loop så kan du väl läggga det direkt i loopen.

```
for item = 1 to someValue
If Request.Form("title" & item)<> "" THEN
CountM = Countm + 1
RecSet.AddNew
RecSet("title") = Request.Form("title" & item)
RecSet("type") = Request.Form("type" & item)
RecSet("user") = Request.Form("user" & item)
RecSet("Cd") = Request.Form("Cd" & item)
RecSet("Size") = Request.Form("Size" & item)
RecSet("quality") = Request.Form("quality" & item)
RecSet("dvdrip") = Request.Form("dvdrip" & item)
RecSet("IMDb") = Request.Form("IMDb" & item)
Recset("IP") = Request.ServerVariables("REMOTE_ADDR")
RecSet.Update
Connection2.Execute "UPDATE users SET Movies = Movies + 1 WHERE User='" & User & "'"
Connection4.Execute "UPDATE divxcount SET Movies = Movies + 1 WHERE ID='Divxcount'"
END IF
next
```

Varför har du olika connections?

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

## #3 — origon, 2001-11-05T19:43Z

Varför jag ville ha det till en Funktion är att, jag tänkte låta användarna bestämma hur många filmer dom vill lägga in på en gång. 

Men efter jag läst ditt inlägg och använder hjärnan lite så inser jag hur jag ska göra :) 

Tack så mkt för koden.

Jo angående att jag har olika connections, det beror på att det är olika databaser, ska slå ihop dom till en enda sen.

/ Tack än en gång...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12467-skapa-en-funktion