---
title: "Historiken"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122333-historiken"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hallmert"
published: "2005-02-13T15:47:30.000Z"
updated: "2005-02-13T21:25:43.000Z"
replies: 26
views: 544
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/122333-historiken"
---

# Historiken

_Sida 1 av 2._

## #1 — hallmert, 2005-02-13T15:47Z

Hejsan!

Håller på med ett script där historiken i en gästbok skall skrivas ut. Vad är det för fel på följande kod?

```

<div class="rubrik">Historik</div>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("db/fanclub.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * from gb where (id='" & Request.Querystring("id") & "' and fromID='" & Session("id") & "') or (id='" & Session("id") & "' and fromID='" & Request.Querystring("id") & "') order by datum desc"

RecSet.Open Addera, Connect, 1, 2

Do Until RecSet.EOF %>

<%=RecSet("datum")%><br>
<%=RecSet("text")%><p><br>

<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
```

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

## #2 — hallmert, 2005-02-13T15:47Z

Felmeddelande:

Error Type:
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/arbeten/charmtroll/provar.asp, line 10

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

## #3 — LarsG, 2005-02-13T15:51Z

```
Addera = "Select * from gb where (id=" & _
Request.Querystring("id") & " and fromID=" & _
Session("id") & ") or (id=" & Session("id") & _
" and fromID=" & Request.Querystring("id") & _
 ") order by datum desc"
```

Please, lägg in radbrytningar så jag slipper scrolla i sidled.

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

## #4 — @nders, 2005-02-13T15:52Z

När det handlar om numeriska fält ska du inte ha apostrofer runt värdena i SQL-frågan.

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

## #5 — hallmert, 2005-02-13T15:55Z

Hm, det fungerade, men den ville inte skriva ut något :/

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

## #6 — LarsG, 2005-02-13T16:05Z

Då finns inget data som uppfyller villkoren.

Gör en utskrift av frågan och kontrollera att variablerna innehåller de värden du förväntar dig.

En annan sak är du skall enbart ange de kolumner du vill hämta och inte använda select \*

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

## #7 — hallmert, 2005-02-13T16:06Z

Hur gör man en utskrift av de då? :P

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

## #8 — LarsG, 2005-02-13T16:07Z

```
response.write "SQL:" & addera
response.end
```

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

## #9 — hallmert, 2005-02-13T16:10Z

Den skrev ut följande:

Select \* from gb where (id=224 and fromID=183) or (id=183 and fromID=224) order by datum desc

Jag kollade direkt i databasen, och posten ID=224 har inlägg med fromID=183 och ID=183 har poster med inlägg från fromID=224, mkt märkligt?

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

## #10 — LarsG, 2005-02-13T16:18Z

1) Byt namn på kolumnen text till något annat eftersom det är ett reserverat ord i Jet SQL.

Är den av typen PM? 

I så fall måste den anges sist i select-listan

dvs

```
select datum,<dittNyaNamnPåTextKolumn> ...
```

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

## #11 — hallmert, 2005-02-13T16:22Z

Nejdu...

```
<div class="rubrik">Historik</div><%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("db/fanclub.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * from gb where (id=" & Request.Querystring
("id") & " and fromID=" & Session("id") & ") or (id=" & Session("id") & " and fromID=" & Request.Querystring("id") & ") order by datum desc"

RecSet.Open Addera, Connect, 1, 2

Do Until RecSet.EOF %>

<%=RecSet("datum")%><br>
<%=RecSet("inlagg")%><p><br>

<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
```

Bytte namn till "inlagg", det ville icke heller fungera.

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

## #12 — LarsG, 2005-02-13T16:31Z

Jag sade aldrig att namnbytet var tillräckligt.

> I så fall måste den anges sist i select-listan

Du måste ändra i select-satsen också

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

## #13 — hallmert, 2005-02-13T16:32Z

Uhm, vart någonstanns då?

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

## #14 — LarsG, 2005-02-13T16:42Z

Byt

```
Addera = "Select *
```

till

```
Addera = "Select datum,inlagg
```

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

## #15 — hallmert, 2005-02-13T16:44Z

Hehe, det fungerar fortfarande inte.

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

## #16 — LarsG, 2005-02-13T16:46Z

Vad får du ut om du kör frågan direkt i Access?

Vad har kolumnen datum för typ?

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

## #17 — hallmert, 2005-02-13T16:49Z

"datum" är typen "Datum/Tid" 
"inlagg" är f.ö. "PM".

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

## #18 — LarsG, 2005-02-13T16:53Z

Du kan ju lägga till en test för att se om du får något resultat från frågan

Byt 

```
RecSet.Open Addera, Connect, 1, 2

Do Until RecSet.EOF %>

<%=RecSet("datum")%><br>
<%=RecSet("inlagg")%><p><br>

<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
```

till

```
RecSet.Open Addera, Connect, 1, 2

if  RecSet.EOF then
    response.write "Det finns ingen historik <br>"
else
    Do Until RecSet.EOF %>

<%=RecSet("datum")%><br>
<%=RecSet("inlagg")%><p><br>

<%
        RecSet.MoveNext
    Loop
end if
RecSet.Close
Connect.Close
%>
```

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

## #19 — hallmert, 2005-02-13T16:56Z

Okej, den skriver ut att det faktiskt inte finns några inlägg. Men det GÖR det ju, jävligt konstigt?!

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

## #20 — LarsG, 2005-02-13T17:03Z

Gör du connect mot rätt databas? 

Du kanske kör direkt mot en lokal databas och ditt skript kör mot en annan databas på ett web-hotell.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/122333-historiken  
Nästa sida: https://www.webforum.nu/amne/asp/122333-historiken/page2.md