---
title: "Html - ASP Converter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45874-html-asp-converter"
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: 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/45874-html-asp-converter"
---

# Html - ASP Converter

_Sida 1 av 2._

## #1 — Jesper T, 2002-06-13T23:59Z

Lat som jag är så har jag snickrat ihop en html-asp konverterare som skall konvertera htmlkod till aspkod. Funkar ganska hyffsat tycker jag men ibland så buggar den.

1\.) Jag har en listbox där jag vill att man ska kunna använda en radbrytningsfunktion efter si och så många tecken men den funkar inte om jag byter ut "100" emot "totalchar".

2\.) I vissa fall när den bryter rad så blir det konstigt tex så här: color='#000000'&g"&\_
I stället för:
color='#000000'\>"&\_

Hur göra?

```
<% 
textfield=request.form("textfield")
send=request.querystring("send")
[red]totalchar=FormatNumber(request("totalchar"))[/red]
response.write " <html><head"&_
"><title>HTML-ASPConverter Ver 1.0</title> <meta http-equiv='Content-Type' content='text/"&_
"html; charset=iso-8859-1'></head><body bgcolor='#FFFFFF' text='#000000'>" 
response.write "<br><b>HTML - ASP Converter 1.0</b><br><br>Htmlcode<form name='form1' method='post' action='translate.asp?send=yes'>"&_
"<textarea name='textfield'></textarea><br><input type='submit' name='Submit' value='Translate'><INPUT TYPE='button' VALUE='Reset form' onClick=""top.location='translate.asp'""><br>"&_
"<br>Characters before linefeed<br>[red]<select name='totalchar'><option>50</option><option>100</option><option>150</option> <option>200</option></select>[/red]"&_
"</form><br>--------------------------------------------------------------------------------------------------------<br><br>"

'bryter av raden efter ett visst antal tecken
Function br(str)
	Dim antal, tecken, count
	antal = [red]100 'Antal tecken som raden skall vara.[totalchar][/red]

	for tecken = 1 to len(str)
	     count = count + 1
	     Response.Write Mid(str, tecken, 1)
	     If count > antal Then Response.Write "<font color='#993333'>&quot;</font><font color='#000000'>&amp;_</font><BR><font color='#993333'>&quot;</font>": count = 0
	next
End Function
asptext = replace(textfield,"""","'")
asptext = replace(replace(asptext, "<","&lt;"),">","&gt;")
text="<b>ASP:</b><br><br><font color='#993333'>&lt;% response.write &quot; </font><font color='#009900'>"& asptext &"</font>"
if send ="yes" then
if len(text)>200 then
response.write br(text)
else
response.write text
end if
Response.write "<font color='#993333'>""</font><font color='#993333'> %&gt;</font><br><br><b>&copy; Inovart 2002</b>"
end if
Response.write "</body></html>"
%>
```

 

Är det någon mot förmodan som vill använda detta script så är det bara varsågod.

MVH Jesper

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

## #2 — cupy, 2002-06-14T00:15Z

Jag ville testa den men fick den här:
Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/asp/n4/zzzz/test/jesper.asp, line 21, column 62
If count \> antal Then Response.Write "\<font color='#993333'\>"\</font\>\<font color='#000000'\>&\_\</font\>\<BR\>\<font color='#993333'\>"\</font\>": count = 0
\-------------------------------------------------------------^

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

## #3 — Jesper T, 2002-06-14T00:28Z

du måste döpa filen till translate.asp :)

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

## #4 — cupy, 2002-06-14T00:31Z

nej, jag får samma.

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

## #5 — Jesper T, 2002-06-14T00:34Z

...

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

## #6 — cupy, 2002-06-14T00:49Z

nu funkar det så här: 
\<% 
textfield=request.form("textfield")
send=request.querystring("send")
totalchar=FormatNumber(request("totalchar"))
response.write " \<html\>\<head"&\_
"\>\<title\>HTML-ASPConverter Ver 1.0\</title\> \<meta http-equiv='Content-Type' content='text/"&\_
"html; charset=iso-8859-1'\>\</head\>\<body bgcolor='#FFFFFF' text='#000000'\>\<br\>" 
response.write "\<b\>HTML - ASP Converter 1.0\</b\>\<br\>\<br\>Htmlcode\<form name='form1' method='post' action='translate.asp?send=yes'\>"
response.write"\<textarea name='textfield'\>\</textarea\>\<br\>\<input type='submit' name='Submit' value='Translate'\>\<br\>"
response.write"\<br\>Characters before linefeed\<br\>\<select name='totalchar'\>\<option\>50\</option\>\<option\>100\</option\>\<option\>150\</option\> \<option\>200\</option\>\</select\>"
response.write"\</form\>\<br\>--------------------------------------------------------------------------------------------------------\<br\>\<br\>"

'bryter av raden efter ett visst antal tecken
Function br(str)
	Dim antal, tecken, count
	antal = 100 '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 "\<font color='#993333'\>\</font\>\<font color='#000000'\>\</font\>\<BR\>\<font color='#993333'\>\</font\>": count = 0
	next
End Function
asptext = replace(textfield,"""","'")
asptext = replace(replace(asptext, "\<","&lt;"),"\>","&gt;")
text="\<b\>ASP:\</b\>\<br\>\<br\>\<font color='#993333'\>&lt;%" 
response.write " \</font\>\<font color='#009900'\>"& asptext &"\</font\>"
if send ="yes" then
Response.write br(text)
Response.write "\<font color='#993333'\>""\</font\>\<font color='#993333'\> %&gt;\</font\>\<br\>\<br\>\<b\>© Inovart 2002\</b\>"
end if
Response.write "\</body\>\</html\>"
%\>

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

## #7 — Jesper T, 2002-06-14T00:51Z

Vad gjorde du?

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

## #8 — cupy, 2002-06-14T00:54Z

den raden var fel:
text="\<b\>ASP:\</b\>\<br\>\<br\>\<font color='#993333'\>&lt;% response.write " \</font\>\<font color='#009900'\>"& asptext &"\</font\>"

i övrigt jag vet inte om det funkar riktigt funktionelt men nu får jag inte felmedelande

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

## #9 — Jesper T, 2002-06-14T00:59Z

Nej, den är ju inte helt smidig men jag man slipper ju i alla fall ta bort dubbelfnuttar och annat! :)

**Problemet med totalchar kvarstår dock...**

Jag har även tagit bort "formatNumber" utan resultat!

MVH Jesper

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

## #10 — Jesper T, 2002-06-14T08:18Z

Någon som vet?

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

## #11 — Jesper T, 2002-06-14T16:05Z

Någon som vet?

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

## #12 — solbulle, 2002-06-14T17:03Z

Vad ska det där scriptet eg göra?
Tycker inte det händer så mycket när jag testar det.
Red. njo, det gör det väl iofs... men...

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

## #13 — Jesper T, 2002-06-14T17:59Z

> Vad ska det där scriptet eg göra? 
> Tycker inte det händer så mycket när jag testar det. 
> Red. njo, det gör det väl iofs... men...

 

Jo, scriptet skall generera response.write-kod ifrån html.
Ta bort, dubbelfnuttar osv... Det jag vill kunna ändra är antal tecken innan det blir radbryt med &\_
Hoppas att du fattar?!

Och ibland så blir det fel när den byter rad i stället för \> så blir det &-gt;

MVH Jesper

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

## #14 — solbulle, 2002-06-14T18:31Z

Hur skall egentligen denna rad se ut:

```
If count > antal Then Response.Write "<font color='#993333'>"</font><font color='#000000'>&_</font><BR><font color='#993333'>"</font>": count = 0
```

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

## #15 — Jesper T, 2002-06-15T11:23Z

> Hur skall egentligen denna rad se ut:

Vad menar du? :q Den ser väl ut som den skall eller? :OO 
Om antalet tecken är fler än 100 så skriv: "&\_\<BR\>" :bire

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

## #16 — solbulle, 2002-06-15T11:45Z

Jag får felmeddelande på den raden, tycker det ser ut som om fnuttarna sitter fel!?!

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

## #17 — Jesper T, 2002-06-15T12:15Z

Oj, det skall se ut så här (utan\_): 

```
If count > antal Then Response.Write "<font color='#993333'>&_quot;</font><font color='#000000'>&_amp;_</font><BR><font color='#993333'>&_quot;</font>": count = 0
```

 

 :)

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

## #18 — Jesper T, 2002-06-15T12:19Z

Det blir ju lite fel när man vill skriva &\_quot; osv. i detta forum! :r

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

## #19 — solbulle, 2002-06-15T15:40Z

Grej nummer ett är att jag hade nog kört med: 

```
totalchar=request("totalchar")
antal = cint(totalchar)
```

På så sätt får man med sig talet i alla fall, sen delar den ju lite konstigt men det är nästa problem...

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

## #20 — solbulle, 2002-06-15T15:44Z

Så som jag ser det måste du få funktionen att inte dela mit i ett ord så att säga, eller rättare sagt mitt i en html-tagg.

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

---

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