---
title: "Behöver lite hjälp här utan er experter:"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/118693-behöver-lite-hjälp-här-utan-er-experter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Megaman"
published: "2004-12-26T02:10:06.000Z"
updated: "2004-12-29T09:56:45.000Z"
replies: 26
views: 893
page: 1
pages: 2
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/118693-behöver-lite-hjälp-här-utan-er-experter"
---

# Behöver lite hjälp här utan er experter:

_Sida 1 av 2._

## #1 — Megaman, 2004-12-26T02:10Z

Jag har lite kod som ser ut så här vad den skall göra är att visa som senaste inloggade på ett forum men jag får ett fel meddelande och jag kan inte se vad som är fel på koden så därför vänder jag mig till er här!!!

```
<%
Dim MyCheck 'As Boolean
Dim intDay,intMonth,intYear 'As Integer
Dim dtmDate, dtmTempDate 'As datetime
  dtmDate = now()
  If strTimeOffSet = "+" Then
   dtmTempDate = DateAdd("h", + intTimeOffSet, dtmDate)
  ElseIf strTimeOffSet = "-" Then
   dtmTempDate = DateAdd("h", - intTimeOffSet, dtmDate)
  End If
  'Seprate the date into differnet strings
  intDay = CInt(Day(dtmTempDate))
  intMonth = CInt(Month(dtmTempDate))
  intYear = CInt(Year(dtmTempDate))
MyCheck = False
strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit "
strSQL = strSQL & ",DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit) AS FFGG "
strSQL = strSQL & "FROM tblAuthor "
strSQL = strSQL & "where day(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intDay & " and month(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intMonth & " and year(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intYear & " "
strSQL = strSQL & "ORDER BY FFGG DESC;"

rsCommon.Open strSQL, adoCon
Response.Write "<b>Det har loggat " & rsCommon.RecordCount & " medlemmar idag.</b><br><br>"
Response.Write "Medelemmar som har loggat in idag är:  "
Do Until rsCommon.eof
 If MyCheck = True then
  Response.Write ",  "
 Else
  MyCheck = True
 End If 
 Response.Write "<a class=""smlink"" href=""JavaScript:openWin('pop_up_profile.asp?PF=" & rsCommon("Author_ID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scroll bars=1,resizable=1,width=590,height=425')"">"
 Response.Write rsCommon("Username") <- - -  På denna rad är det fel på
 Response.Write "</a>"
 rsCommon.MoveNext
Loop 
%>
```

Och felmedelandet jag får är följande: 

Microsoft JET Database Engine fel '80040e10' 

Det har inte angetts något värde för en eller flera nödvändiga parametrar. 

Jag kan inte se vad som jag tydligen har missat...

MVH Megaman

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

## #2 — @nders, 2004-12-26T07:28Z

Jag skulle tro att de ställen du använt:

```
DateAdd(hh,
```

 i din sql-fråga, ska vara:

```
DateAdd('h',
```

I övrigt, det stämmer nog inte att det är 

```
Response.Write rsCommon("Username")
```

det är fel på. Jag sätter en tia på att det är denna rad som felmeddelandet pekar på:

```
rsCommon.Open strSQL, adoCon
```

 mvh

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

## #3 — Megaman, 2004-12-26T21:06Z

Jo det har jag förståt också men det är något knas där anropar detta tidigare i dokumentet och där funkar det men inte just här..

Och jag hittar inte vad felet är

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

## #4 — @nders, 2004-12-27T09:37Z

Vad är det för skillnad på koden som fungerar och den som inte fungerar då?

Felmeddelandet betyder egentligen "du har i din SQL-fråga använt ett tabell- eller fältnamn som inte finns", så det är i SQL-frågan felet ligger.

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

## #5 — Megaman, 2004-12-28T04:24Z

Det är det som är det löjliga i det hela tabllen finns och heter: tblAuthor

Och fälten heter: Username, Author_ID, Group_ID och  Last_visit, 

Username = Andvändarnamnet
Author_ID = ID på andvändaren
Group_ID = vilken grupp den tillhör
Last_visit = Senaste besöket på sidan

Som du ser så finns tabellen och gruppen

Du ser inte så mycket här men detta är ett exempel på hur det har anropats tidihare i filen

```
Do While NOT rsCommon.EOF

'Place the moderators username into the string
strModeratorsList = strModeratorsList & " <a href=""members.asp?GID=" & rsCommon("Group_ID") & """ class=""smLink"">" & rsCommon("Username") & "</a>"
		
'Move to the next record
rsCommon.MoveNext
```

 

Måste säga att detta är inte mitt script utan det är en funktion som jag försöker att lägga in på ett gratis forum...

MVH Megaman

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

## #6 — @nders, 2004-12-28T07:52Z

Och det hände ingenting när du ändrade *hh* till *'h'*?

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

## #7 — Megaman, 2004-12-28T12:05Z

Nopp nada det blev ingen skillnad han klagade i alla fall inte på något utav varken

DateAdd(hh,
DateAdd('h',

Jag vet faktiskt inte vad jag skall göra, det får väl vila så länge tills att någon annan har en bra ide hur det skall lösas...

Inget ont mot dig @nders Jag är väldigt tacksam för att du har försökt att hjälpa mig!!!

Jag klarar mig ändå utan det men det vore en kul sak om det funkade!

Vad det är tänkt att den skall göra är att skriva ut andvändare som har varit inloggade varje dag

idag har 2 varit inloggade st
Andvändare som har varit inloggade idag är: Megaman, @nders, osv

plus att man kan klicka på personens namn och kolla på hans profil.

MVH Megaman

MVH Megaman

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

## #8 — emission, 2004-12-28T19:15Z

Skriv ut innehållet i strSQL  så får vi se

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

## #9 — Megaman, 2004-12-28T19:38Z

Nu är jag nog lite trög här var det detta du menade???

strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit "
strSQL = strSQL & ",DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit) AS FFGG "
strSQL = strSQL & "FROM tblAuthor "
strSQL = strSQL & "where day(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intDay & " and month(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intMonth & " and year(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intYear & " "
strSQL = strSQL & "ORDER BY FFGG DESC;"

MVH Megaman

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

## #10 — @nders, 2004-12-28T19:43Z

emission menar att du ska skriva ut strSQL till webbläsaren med response.write så man ser hur den *färdiga* SQL-frågan ser ut.

Edit: en sak som jag ser nu kan vara fel (också) är följande:

```
ORDER BY FFGG DESC
```

I Access kan man inte ange ett alias i order by, utan man ska ange ordningsnumret som tillhör det fält / värde man vill sortera på. I detta fall borde det alltså vara:

```
ORDER BY 5 DESC
```

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

## #11 — Megaman, 2004-12-28T20:08Z

Detta fick jag ut när jag skrev ut strSQL:

SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit ,DateAdd(h, +0, tblAuthor.Last_visit); FROM tblAuthor where day(DateAdd(h, +0, tblAuthor.Last_visit)) = 28 and month(DateAdd(hh, +0, tblAuthor.Last_visit)) = 12 and year(DateAdd(hh, +0, tblAuthor.Last_visit)) = 2004 ORDER BY 5 DESC; 

MVH Megaman

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

## #12 — @nders, 2004-12-29T07:14Z

Och när du bytt ut *h* och *hh* i dina DateAdd-kall i SQL-frågan, hur ser det ut då, och vad får du för felmeddelande då?

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

## #13 — Megaman, 2004-12-29T08:30Z

Med bara ett enkelt h som du rekomenderar så ser det ut så här:

SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit ,DateAdd(h, +0, tblAuthor.Last_visit) AS FFGG FROM tblAuthor where day(DateAdd(h, +0, tblAuthor.Last_visit)) = 29 and month(DateAdd(hh, +0, tblAuthor.Last_visit)) = 12 and year(DateAdd(hh, +0, tblAuthor.Last_visit)) = 2004 ORDER BY FFGG DESC; 

MVH Megaman...

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

## #14 — Megaman, 2004-12-29T08:37Z

Med bara ett enkelt h som du rekomenderar så ser det ut så här:

Detta var med ORDER BY FFGG DESC

```
SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit ,DateAdd(h, +0, tblAuthor.Last_visit) AS FFGG FROM tblAuthor where day(DateAdd(h, +0, tblAuthor.Last_visit)) = 29 and month(DateAdd(hh, +0, tblAuthor.Last_visit)) = 12 and year(DateAdd(hh, +0, tblAuthor.Last_visit)) = 2004 ORDER BY FFGG DESC;
```

 

Och detta med ORDER BY 5 DESC

```
SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit ,DateAdd(h, +0, tblAuthor.Last_visit) AS 5 FROM tblAuthor where day(DateAdd(h, +0, tblAuthor.Last_visit)) = 29 and month(DateAdd(hh, +0, tblAuthor.Last_visit)) = 12 and year(DateAdd(hh, +0, tblAuthor.Last_visit)) = 2004 ORDER BY 5 DESC;
```

 

MVH Megaman......

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

## #15 — @nders, 2004-12-29T08:38Z

1) det skall vara apostrofer runt h i alla dateadd-anrop, som jag skrev i mitt första inlägg. Inte dubbla h, inte enkla h för sig själv. Apostrofer.

2) Som jag skrev i mitt andra inlägg, du kan inte ange ett alias i ORDER BY, utan måste ange ordningsnumret.

Är jag verkligen så otydlig?

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

## #16 — Megaman, 2004-12-29T08:47Z

Nej det var du inte men jag testade bara några alternativ

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

## #17 — Megaman, 2004-12-29T08:52Z

Nu med apostrofer runt alla dateadd

SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit ,DateAdd('h', +0, tblAuthor.Last_visit) AS 5 FROM tblAuthor where day(DateAdd('h', +0, tblAuthor.Last_visit)) = 29 and month(DateAdd(hh, +0, tblAuthor.Last_visit)) = 12 and year(DateAdd(hh, +0, tblAuthor.Last_visit)) = 2004 ORDER BY 5 DESC;

MVH Megaman

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

## #18 — @nders, 2004-12-29T08:54Z

Hur definierar du *alla* :q

Du har ju bara ändrat på två av fem ställen?

Edit: Det är *bara* i ORDER BY du inte kan ange alias. Du kan gott ta tillbaka aliaset FFGG i SELECT-delen.

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

## #19 — Megaman, 2004-12-29T09:00Z

Dim MyCheck 'As Boolean
Dim intDay,intMonth,intYear 'As Integer
Dim dtmDate, dtmTempDate 'As datetime
  dtmDate = now()
  If strTimeOffSet = "+" Then
   dtmTempDate = DateAdd('h', + intTimeOffSet, dtmDate) '\<-- om jag ändrar här får jag fel mess

Kompileringsfel i Microsoft VBScript fel '800a03ea' 

Syntaxfel 

/idp/forum/default.asp, rad 792 

dtmTempDate = DateAdd('h', + intTimeOffSet, dtmDate)
\------------------------^

likadant på andra stället sedan så finns det bara fyra ställen med h i scriptet

```
  ElseIf strTimeOffSet = "-" Then
   dtmTempDate = DateAdd('h', - intTimeOffSet, dtmDate)
  End If
  'Seprate the date into differnet strings
  intDay = CInt(Day(dtmTempDate))
  intMonth = CInt(Month(dtmTempDate))
  intYear = CInt(Year(dtmTempDate))
MyCheck = False

rsCommon.Open strSQL, adoCon
strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit "
strSQL = strSQL & ",DateAdd('h', " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit) AS 5 "
strSQL = strSQL & "FROM tblAuthor "
strSQL = strSQL & "where day(DateAdd('h', " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intDay & " and month(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intMonth & " and year(DateAdd(h, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intYear & " "
strSQL = strSQL & "ORDER BY 5 DESC;"

Response.Write "<b>There have been " & rsCommon.RecordCount & " members that have logged in today.</b><br><br>"
Response.Write "Members that have logged in:  "
Do Until rsCommon.eof
 If MyCheck = True then
  Response.Write ",  "
 Else
  MyCheck = True
 End If 
 Response.Write "<a class=""smlink"" href=""JavaScript:openWin('pop_up_profile.asp?PF=" & rsCommon("Author_ID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scroll bars=1,resizable=1,width=590,height=425')"">"
 Response.Write rsCommon("Username") 
 Response.Write "</a>"
 rsCommon.MoveNext
Loop
```

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

## #20 — Megaman, 2004-12-29T09:06Z

Sorry du hade inte fel @nders det var 5 i den

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/118693-behöver-lite-hjälp-här-utan-er-experter  
Nästa sida: https://www.webforum.nu/amne/asp/118693-behöver-lite-hjälp-här-utan-er-experter/page2.md