---
title: "Html - ASP Converter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45874-html-asp-converter/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2002-06-13T23:59:20.000Z"
updated: "2002-06-16T13:48:38.000Z"
replies: 22
views: 658
page: 2
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/45874-html-asp-converter"
---
# Html - ASP Converter
_Sida 2 av 2._
## #21 — Jesper T, 2002-06-15T16:15Z
Tack så länge!!
:)
Permalänk: https://www.webforum.nu/p/698089
## #22 — Jesper T, 2002-06-15T16:31Z
```
<%
textfield=request.form("textfield")
send=request.querystring("send")
totalchar=request("totalchar")
response.write " HTML-ASPConverter Ver 1.1 "
response.write "HTML - ASP Converter 1.1
Htmlcode
--------------------------------------------------------------------------------------------------------
"
'bryter av raden efter ett visst antal tecken
Function br(str)
Dim antal, tecken, count
antal = cint(totalchar) 'Antal tecken som raden skall vara.[totalchar]
for tecken = 1 to len(str)
count = count + 1
Response.Write Mid(str, tecken, 1)
If count > antal Then Response.Write ""&_
"": count = 0
next
End Function
asptext = replace(textfield,"""","'")
asptext = replace(replace(asptext, "<","<"),">",">")
asptext = replace(asptext,"å","å")
asptext = replace(asptext,"ä","ä")
asptext = replace(asptext,"ö","ö")
asptext = replace(asptext,"Å","Å")
asptext = replace(asptext,"Ä","Ä")
asptext = replace(asptext,"Ö","Ö")
text="ASP:
<% Response.write ""& asptext &""
if send ="yes" then
if len(text)>200 then
response.write br(text)
else
strbryt = Replace(text, vbCrLf, "<br>")
response.write strbryt
end if
Response.write "<!--// © Inovart 2002 -->"" %>
© Inovart 2002"
end if
Response.write "