---
title: "ASP i textfil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9217-asp-i-textfil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2001-05-01T10:12:00.000Z"
updated: "2001-05-01T12:11:00.000Z"
replies: 3
views: 252
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/9217-asp-i-textfil"
---

# ASP i textfil

## #1 — aleborg, 2001-05-01T10:12Z

Försöker skapa en textfil med ASP kod, men hur ska man göra för att koden inte ska köras?

```
filetxt.WriteLine("<%")
filetxt.WriteLine("Set adsConn = Server.CreateObject("ADODB.Connection")")
filetxt.WriteLine("adsConn.Open "WebShowAds"")
filetxt.WriteLine("Session.LCID = 1053")
filetxt.WriteLine("If Request.QueryString("showad")<>"" Then")
filetxt.WriteLine("SQLmy="Select * From Banners Where Kategori="& namn("KategoriID") &" And Shows >'0' Or Ends <=" & date & """)
filetxt.WriteLine("RStemp = UBOUND(adsConn.Execute(SQLmy).GetRows(),2)+1")
filetxt.WriteLine("Randomize")
filetxt.WriteLine("post = Int(RND*RStemp)")
filetxt.WriteLine("Set RS3 = adsConn.Execute(SQL)")
filetxt.WriteLine("For s = 1 to post")
filetxt.WriteLine("RS3.MoveNext")
filetxt.WriteLine("Next")
filetxt.WriteLine("SQLmt="Select * From Users Where AnnonsorID='"& RS3("Tillhor") &"'"")
filetxt.WriteLine("Set view=adsConn.Execute(SQLmt)")
filetxt.WriteLine("SQLmr="Update Banners Set Visad=Visad+1"")
filetxt.WriteLine("adsConn.Execute(SQLmr)")
filetxt.WriteLine("If RS3("Shows")>"0" then")
filetxt.WriteLine("SQLmu="Update Banners Set Shows=Shows-1"")
filetxt.WriteLine("adsConn.Execute(SQLmu)")
filetxt.WriteLine("End If")
filetxt.WriteLine("%>")
filetxt.WriteLine("<a href='<%=view("Url")%>' target='_blank'><img src='<%=view("BannerUrl")%>' width='<%=view("Width")%>' height='<%=view("Height")%>' border='<%=view("Border")%>'></a>")
filetxt.WriteLine("<%")
filetxt.WriteLine("RS3.Close")
filetxt.WriteLine("view.close")
filetxt.WriteLine("End If")
filetxt.WriteLine("adsConn.Close")
filetxt.WriteLine("%>")
```

Problemet är alla "

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

## #2 — SPiN, 2001-05-01T11:47Z

Alla **%** får du byta ut mot characters. T.ex. raden **filetxt.WriteLine("\<%")** blir -\> **filetxt.WriteLine("\<" & Chr(37))**.

Sen skare funka... :)

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

## #3 — aleborg, 2001-05-01T12:00Z

men det största problemet är väl " som tex:
filetxt.WriteLine("Set adsConn = Server.CreateObject("ADODB.Connection")")

det var nog det första som det klagades på!

Fick för mig att kopiera istället:

```
dim filesys, demofile
set filesys = CreateObject ("Scripting.FileSystemObject")
set demofile = filesys.CreateTextFile ("E:\www\banner\kat-"& namn("KategoriID") &".asp", false)
set demofile = filesys.GetFile("E:\www\banner\kat-"& namn("KategoriID") &".asp")
demofile.Copy("E:\www\adshow.asp")
```

men det slutar med att båda filerna blir 0 byte!!!???

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

## #4 — Vide, 2001-05-01T12:11Z

Du måste "escapa" varje " som skall ut i HTML (eller fil)...

filetxt.WriteLine("Set adsConn = Server.CreateObject(""ADODB.Connection"")")

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9217-asp-i-textfil