---
title: "datum = manad & Year"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88514-datum-manad-year"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tank82"
published: "2003-10-14T23:04:09.000Z"
updated: "2003-10-15T01:54:08.000Z"
replies: 5
views: 296
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/88514-datum-manad-year"
---

# datum = manad & Year

## #1 — tank82, 2003-10-14T23:04Z

```
Microsoft VBScript runtime error '800a01a8' 
Object required: '' 

sort.asp, line 11
```

Får detta felmeddleande när jag kör följande kod, koden har jag mer eller minder "klippt och klistrat" ihop själv så jag förstår om någon får ett och annat skratt   :birp 

Den funktionen jag eftersöker är att man ska kunna sortera efter "månad" och "år" (tex. index.asp?page=sort&manad=3&aret=2003) och då om inget finns så ska det stå en text, tex Inget denna månad.

Kan någon vänlig själ fixa till min kod så vore det kanon! :)

```
<%
strSQL = "SELECT* FROM nyhetartikel WHERE typ = 'nyhet' OR typ = 'artikel' ORDER BY datum DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
Set objRS = objCon.Execute(strSQL)
%>

<table cellpadding="0" cellspacing="0" width="100%" border="0">

<%If Request.QueryString("manad") <> "" Then %>
<% Set objRS=Conn.Execute("Select * From nyhetartikel WHERE typ = 'nyhet' OR typ = 'aktivitet' OR Month(datum)='" & Request.QueryString("manad") & "' And Year(datum)='" & Request.QueryString("aret") & "'Order By [datum] desc")%>
<%If objRS.EOF Then%>
<tr>
<td colspan="3"><b>Här var det tomt..</b></td>
</tr>
<%Else
Do Until objRS.EOF%>
	<tr>
	<td width="20%" valign="top"><%=FormatDateTime(objRS("datum"),2)%>
	</td>
	<td width="80%"><a href="index.asp?avdelning=dok&ID=<%=objRS("ID")%>"><%If Len(objRS("rubrik")) > 60 Then%><%=Left(objRS("rubrik"),60)%>...<%Else%><%=objRS("rubrik")%><%End If%></a>
	</td>
	</tr>
<%objRS.MoveNext
Loop
End If
End If%>
</table>
```

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

## #2 — Peeer, 2003-10-14T23:10Z

Låter som du saknar ett av dina invärden. prova att skriva ut din sql-sats istället för att exekvera den. Då ser du lätt om det är så att en av dina querystrings saknar värde. :)

```
Response.write "Select * From nyhetartikel WHERE typ = 'nyhet' OR typ = 'aktivitet' OR Month(datum)='" & Request.QueryString("manad") & "' And Year(datum)='" & Request.QueryString("aret") & "'Order By [datum] desc"
response.end
'istället för
Set objRS=Conn.Execute("Select * From nyhetartikel WHERE typ = 'nyhet' OR typ = 'aktivitet' OR Month(datum)='" & Request.QueryString("manad") & "' And Year(datum)='" & Request.QueryString("aret") & "'Order By [datum] desc")
```

/r solbulles svar är nog mer korrekt :}

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

## #3 — solbulle, 2003-10-14T23:16Z

Du använder först objektet objCon, sen använder du dig av Conn utan att vad jag kan se skapa det.

Ska det verkligen vara två db-öppningar? Det verkar lite tokigt.

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

## #4 — tank82, 2003-10-14T23:39Z

? Jag är helt "lost". (som vanligt)
Som sagt jag har inte en susnig om detta fungerar eller inte :)
Någon får mer än gärna fixa till denna kod så den fungerar.

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

## #5 — solbulle, 2003-10-15T00:38Z

Kanske så här:

```
<table cellpadding="0" cellspacing="0" width="100%" border="0">
<%
If Request.QueryString("manad") <> "" Then
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
Set objRS=objCon.Execute("Select * From nyhetartikel WHERE typ = 'nyhet' OR typ = 'aktivitet' OR Month(datum)='" & Request.QueryString("manad") & "' And Year(datum)='" & Request.QueryString("aret") & "' Order By [datum] desc")
If objRS.EOF Then
%>
<tr>
<td colspan="3"><b>Här var det tomt..</b></td>
</tr>
<%Else
Do Until objRS.EOF%>
	<tr>
	<td width="20%" valign="top"><%=FormatDateTime(objRS("datum"),2)%>
	</td>
	<td width="80%"><a href="index.asp?avdelning=dok&ID=<%=objRS("ID")%>"><%If Len(objRS("rubrik")) > 60 Then%><%=Left(objRS("rubrik"),60)%>...<%Else%><%=objRS("rubrik")%><%End If%></a>
	</td>
	</tr>
<%
objRS.MoveNext
Loop
End If
objRS.Close
objCon.Close
End If
%>
</table>
```

Iofs osäker på vad du vill plocka fram med den där sql-frågan, ska det vara OR ( = Eller ) där?

Typ: plocka fram poster av typen nyhet  Eller typen aktivitet Eller månaden Och året...

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

## #6 — tank82, 2003-10-15T01:54Z

solbulle du är en klippa, det var nära nog för att jag skulle klara av det. TACK! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88514-datum-manad-year