Jag vill alltså ha två olika variabler en för året och en för veckan...
Frågan#1
Koden för året (2002) och veckan?
Snabb och löjligt enkel fråga...
10 svar · 222 visningar · startad av trexter.com
Danke, tack, merci, thank u... hmm, är inte så bra på språk!
Jo, just det! Gracias! :)
jespO: Det finns ingen inbyggd funktion i VBScript som heter Week.
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>
Som jag sa, Week är ingen inbyggd funktion i VBScript.
Oh, det hade jag glömt bort :r. Nåja, lyssna på Erik så ska det nog funka :).
ok, tackar