---
title: "Snabb och löjligt enkel fråga..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/48217-snabb-och-löjligt-enkel-fråga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "trexter.com"
published: "2002-07-19T11:01:23.000Z"
updated: "2002-07-19T13:21:08.000Z"
replies: 10
views: 245
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/48217-snabb-och-löjligt-enkel-fråga"
---

# Snabb och löjligt enkel fråga...

## #1 — trexter.com, 2002-07-19T11:01Z

Koden för året (2002) och veckan?

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

## #2 — trexter.com, 2002-07-19T11:01Z

Jag vill alltså ha två olika variabler en för året och en för veckan...

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

## #3 — jepsO, 2002-07-19T11:06Z

Du plockar dem från Now()-funktionen.

```
ar = Year(Now)
vecka = Week(Now)
```

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

## #4 — trexter.com, 2002-07-19T11:07Z

Danke, tack, merci, thank u... hmm, är inte så bra på språk!
Jo, just det! Gracias!  :)

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

## #5 — Erik Juhlin, 2002-07-19T11:09Z

```
Year(Now)
DatePart("ww", Now, 2, 2)
```

 :)

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

## #6 — Erik Juhlin, 2002-07-19T11:11Z

jespO: Det finns ingen inbyggd funktion i VBScript som heter Week.

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

## #7 — Erik Juhlin, 2002-07-19T11:13Z

Men man kan ju göra en egen.

```
Function Week(dDate)
	Week = DatePart("ww", dDate, 2, 2)
End Function
```

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

## #8 — trexter.com, 2002-07-19T11:13Z

Det blir fel när jag använder din kod Jesper. 

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'Week' 

/admin/veckanshemsida_t.asp, line 9 

```
<%
Response.Buffer = TRUE

If Session("inloggning") <> "admin" Then
Response.Redirect "default.asp"
End If

ar = Year(Now)
vecka = Week(Now)
%>
<html>
<!-- #include virtual="../inc/adovbs.inc" -->
<%
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\main.mdb" 
	
	
	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Addera = "SELECT * FROM hemsidor"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
Recset("Namn") = Request.Form("namn")
Recset("Adress") = Request.Form("adress")
Recset("Text") = Request.Form("text")
Recset("Ar") = ar
Recset("Vecka") = vecka

	RecSet.Update
	RecSet.Close
	Connect.Close
Response.Redirect "http://www.trexter.com/admin/inloggad.asp"
%> 
</HTML>

<html>
<body link=orange alink=orange vlink=orange>
<font size=6 face="verdana">
!!! Admin Area !!!
</font>
<font size=1 face="verdana">
<FORM NAME="form">
<SELECT NAME="site" size=1 onChange="javascript:jumpBox()" style="color: #000000; font-family: Verdana; font-weight: bold; font-size: 10px;  border: 1 #000000 solid; width: 285px;">
<OPTION selected>Välj vad du vill göra!
<OPTION VALUE="">- - - - - - - - - - - - - -
<OPTION VALUE="veckanshemsida.asp">Modifiera veckans hemsida.
<OPTION VALUE="bannerrotation.asp">Modifiera bannerrotatorn.
<OPTION VALUE="design.asp">Skriva en tutorial i Photoshop.
<OPTION VALUE="omrostning.asp">Modifiera omröstningen.
<OPTION VALUE="lankarkiv.asp">Modifiera länkarkivet.
<OPTION VALUE="scripts.asp">Lägg till ett script.
<OPTION VALUE="downloads.asp">Ladda upp en fil.
<OPTION VALUE="nyheter.asp">Modifiera nyheter.
<OPTION VALUE="guider.asp">Skriva en guide.
</SELECT>
</FORM>
<br>
Modifiera veckans hemsida.
<br>
<br>
<form ACTION="veckanshemsida_t.asp" method="post" name=formule>
<INPUT TYPE="TEXT" VALUE="Namn på hemsidan" NAME="namn" SIZE="44">
<br>
<INPUT TYPE="TEXT" VALUE="Hemsidans adress" NAME="adress" SIZE="44" MAXLENGTH="40">
<br>
<TEXTAREA name=text cols=33 rows=5> 
Beskrivning av hemsidan!
</TEXTAREA>
<br>
<INPUT TYPE="submit" VALUE="Skicka"><INPUT TYPE="reset" VALUE="Sudda">
</form>
</font>
```

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

## #9 — Erik Juhlin, 2002-07-19T11:14Z

Som jag sa, Week är ingen inbyggd funktion i VBScript.

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

## #10 — jepsO, 2002-07-19T11:19Z

Oh, det hade jag glömt bort  :r. Nåja, lyssna på Erik så ska det nog funka :).

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

## #11 — trexter.com, 2002-07-19T13:21Z

ok, tackar

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/48217-snabb-och-löjligt-enkel-fråga