---
title: "Skriva aspkod i javascriptkod - hur?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/javascript/115429-skriva-aspkod-i-javascriptkod-hur"
topic: "JavaScript"
topic_url: "https://www.webforum.nu/amne/javascript"
author: "magnusfeldth"
published: "2004-11-08T18:37:07.000Z"
updated: "2004-11-08T19:19:15.000Z"
replies: 2
views: 208
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/javascript/115429-skriva-aspkod-i-javascriptkod-hur"
---

# Skriva aspkod i javascriptkod - hur?

## #1 — magnusfeldth, 2004-11-08T18:37Z

Jag har en javascriptkod som gör att nyheter scrollas. Nu vill jag få in en vanlig aspkod som skriver ut de senaste nyheterna... hur gör jag det?

javascriptkod

```
//SET SCROLLER APPEARANCE AND MESSAGES
var myScroller1 = new Scroller(0, 0, 480, 17, 0, 0); //(xpos, ypos, width, height, border, padding)
myScroller1.setColors("#000000", "#FFFFFF", "#FFFFFF"); //(fgcolor, bgcolor, bdcolor)
myScroller1.setFont("Trebuchet MS,Arial,Helvetica", 1);
myScroller1.addItem("<b> Text 1</b>");
myScroller1.addItem("<b> Text 2</b>");
myScroller1.addItem("<b> Text 3</b>");
myScroller1.addItem("<b> Text 4</b>");
myScroller1.setSpeed(20);
```

Aspkod

```
<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("sockdb/sockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
    Visa = "SELECT top 5 * FROM sockor where Visa = 'Ja' ORDER BY TEXTID DESC"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic 
Do Until RecSet.EOF
%>
<a href="sidval.asp?textid=<% = RecSet("TextID") %>"><% =RecSet("Rubrik") %></a>
```

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

## #2 — Peeer, 2004-11-08T18:43Z

```
//SET SCROLLER APPEARANCE AND MESSAGES
var myScroller1 = new Scroller(0, 0, 480, 17, 0, 0); //(xpos, ypos, width, height, border, padding)
myScroller1.setColors("#000000", "#FFFFFF", "#FFFFFF"); //(fgcolor, bgcolor, bdcolor)
myScroller1.setFont("Trebuchet MS,Arial,Helvetica", 1);
<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("sockdb/sockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
    Visa = "SELECT top 5 * FROM sockor where Visa = 'Ja' ORDER BY TEXTID DESC"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic 
Do Until RecSet.EOF
%>
myScroller1.addItem("<a href='sidval.asp?textid=<% = RecSet("TextID") %>'><% =RecSet("Rubrik") %></a>");
<% loop %>
myScroller1.setSpeed(20);
```

Typ så?

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

## #3 — magnusfeldth, 2004-11-08T19:19Z

Tackar! Fungerar perfekt!

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

---

Tråden på webben: https://www.webforum.nu/amne/javascript/115429-skriva-aspkod-i-javascriptkod-hur