---
title: "Början av ett inlägg?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7496-början-av-ett-inlägg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fjuri"
published: "2000-12-22T12:08:00.000Z"
updated: "2000-12-22T23:39:00.000Z"
replies: 5
views: 200
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/7496-början-av-ett-inlägg"
---

# Början av ett inlägg?

## #1 — fjuri, 2000-12-22T12:08Z

Hej.. hur ser den kompletta koden ut för att visa... säg 70 tecken, ur ett inlägg från en databas?
Kolumnen i databasen heter "Text".

Tack!

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

## #2 — Razor, 2000-12-22T12:21Z

Hej!

Dim TextAttVisa
TextAttVisa = Left(rsObj("Text"), 70)

Koden ovan plockar ut de 70 första tecknen i en cell ur kolumnen "Text" och lagrar tecknen i variabeln TextAttVisa. 

Koden för att hämta datan ur databasen är inte inkluderad i exemplet!

Mvh Razor

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

## #3 — fjuri, 2000-12-22T22:42Z

Hej, och tack för hjälpen!
Men jag har inte fått det att funka ändå... är det för att jag har en loop? Vet inte ens ifall själva kodandet är rätt, har inte lekt tillräckligt med "Dim" grejjset än :)
Så här ser ivarje fall koden ut, du kanske kan hjälpa mig?

```
<%
Dim TextAttVisa

set conn=server.createobject("adodb.connection")
path="DBQ=" & server.mappath("admin/news.mdb")
conn.open "driver={microsoft access driver (*.mdb)}; " & path,"name","name"

sql = "select * from News order by ID DESC"
set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql, conn, 3, 3 

TextAttVisa = Left(rsObj("Text"), 70)

i = "1" 
Do until rs.eof or i = "5" 
%> <br>
            <br>
            <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font face="Georgia, Times New Roman, Times, serif" color="#FFFFFF"><%=rs("topic")%></font></b><font face="Georgia, Times New Roman, Times, serif" color="#FFFFFF"><br>
            <%= TextAttVisa %></font></font><A HREF="#" onClick="MyWi=window.open('news_win.asp?ID=<%=rs("ID")%>','Nyheter','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizeable=no,width=400,height= 450')"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">...</font> 
            <img src="images/arrow_black.gif" width="9" height="9" border="0"><br>
            </a>
            <br>
            <% i = i +1
		rs.movenext
		loop
		rs.close
		conn.close %>
```

Fel meddelandet jag får är:
Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'rsObj' 

Tack på förhand!

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

## #4 — CoolDude, 2000-12-22T23:14Z

**fjuri:**
Du har missat att knyta in ditt Record Set med ***Razors*** kodsnutt!

Ändra rsObj mot RS
Och har du tabellent "Text" i din db?

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

## #5 — fjuri, 2000-12-22T23:37Z

oh.. thanks!
hmm, verkar vara lite skumt. Den visar lite text, fast det ser ut som en utav rubrikerna..
Koloumnen heter "Text" ja

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

## #6 — fjuri, 2000-12-22T23:39Z

Löste sig.. tack för hjälpen!!!!!!!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7496-början-av-ett-inlägg