---
title: "html i asp-kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/140443-html-i-asp-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2006-01-06T13:06:53.000Z"
updated: "2006-01-07T12:02:45.000Z"
replies: 7
views: 358
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/140443-html-i-asp-kod"
---
# html i asp-kod
## #1 — devotion, 2006-01-06T13:06Z
Hejsan! :)
Har en sida där jag inte använder någon "ren" html-kod utan använder response.write för att skriva ut html.
Tycker dock att ett sådant här kodblock blir klumpigt och oöverskådligt:
```
If iAccessLevel = 1 then
Response.write "| E-nr | Benämning | Enhet | Solar | Storel | Ahlsell | Lägst | Antal | Lägg till |
"
Else
Response.write "| E-nr | Benämning | Enhet | Solar | Storel | Ahlsell | Lägst |
"
End if
```
Hur ska man göra för at det ska bli så bra och tydligt som möjligt?
Förslag tas tacksamt emot...
Mvh
henrik
Permalänk: https://www.webforum.nu/p/140443
## #2 — Danny, 2006-01-06T13:15Z
såhär kanske:
```
If iAccessLevel = 1 then
Response.write "
| E-nr |
Benämning |
Enhet |
Solar |
Storel |
Ahlsell |
Lägst |
Antal |
Lägg till |
"
Else
Response.write "
| E-nr |
Benämning |
Enhet |
Solar |
Storel |
Ahlsell |
Lägst |
"
End if
```
Bara separera lite och göra lite luftigare. Sedan om du använder ett vettigt program att koda med som färgar de olika grejjerna så ser man ännu bättre.
Permalänk: https://www.webforum.nu/p/1739370
## #3 — lilja, 2006-01-06T13:15Z
ASP är inte direkt känt för att vara ett språk som separerar HTML-kod och serverkod utan det blir mer så kallad spagghettikod :P
Jag tycker annars det ser okej ut det du gjort. Ett annat sätt är att köra If-sattsen i ASP och sen gå ur ASP koden och skriva vanlig HTML. Smaken är som baken...
```
<% If iAccessLevel = 1 then %>
|
E-nr
|
Benämning
|
Enhet
|
Solar
|
Storel
|
Ahlsell
|
Lägst
|
Antal
|
Lägg till
|
<% Else %>
...
<% End if %>
```
Om du vill ha mer separerad kod kan du byta till ett annat språk. Om inte det är något alternativ så kanske du kan trixa lite mer med css-mallar för att ner storleken på koden...
Om man verkligen vill separerar kan man skriva funktioner, printHeaderTable() som skriver ut tabellhuvudet, men det tycker jag bara krånglar till koden...
edit// äsh, för sen igen och med lite sämmre ide :P
Permalänk: https://www.webforum.nu/p/1739372
## #4 — devotion, 2006-01-06T13:25Z
Hej! :)
> Bara separera lite och göra lite luftigare. Sedan om du använder ett vettigt program att koda med som färgar de olika grejjerna så ser man ännu bättre.
Jo, det är ju klart.... Jag använder mig av dreamweaver 8 när jag kodar, och då fungerar inte färgkodningen....
och använder jag mig av switchar för aspkoden så fungerar ju dreamweavers funktioner bäst i wysiwg-läget...
Jag brukar använda mig av switchar för det mest, men iblnad kan det vara en fördel att skriva "ren" asp-kod...
Men att göra det lite "luftigare" ökar ju läsbarheten markant..
Men, kan man göra radbrytningar hursomhelst efter en response.write
Mvh
henrik
Permalänk: https://www.webforum.nu/p/1739375
## #5 — SannyW, 2006-01-07T05:12Z
Tja!
Får två olika varianter.
```
If iAccessLevel = 1 then
Response.write ""&_
""&_
"| E-nr | "&_
"Benämning | "&_
"Enhet | "&_
"Solar | "&_
"Storel | "&_
"Ahlsell | "&_
"Lägst | "&_
"Antal | "&_
"Lägg till | "&_
"
"&_
"
"
Else
Response.write ""
""&_
"| E-nr | "&_
"Benämning | "&_
"Enhet | "&_
"Solar | "&_
"Storel | "&_
"Ahlsell | "&_
"Lägst | "&_
"
"&_
"
"
End if
```
Eller något likande....
```
<%
If iAccessLevel = 1 then
strTableValue = "class='tabellRam' width='750' border='0' cellspacing='0' cellpadding='0'"
Call TableHead("8", strTableValue)
Else
strTableValue = "class='tabellRam' width='640' border='0' cellspacing='0' cellpadding='0'"
Call TableHead("2", strTableValue)
End if
Sub TableHead(byVal str, byVal str2)
Dim sPrint, vPrint, vPrint2, i, j
sPrint = "width='60' height='18':E-nr,"&_
"width='250 : Benämning,"&_
"width='45' : Enhet,"&_
"width='75' : Solar,"&_
"width='75' : Storel,"&_
"width='75' : Ahlsell,"&_
"width='60' : Lägst,"&_
"width='60' : Antal,"&_
"width='50' : Lägg till"
vPrint = Split(sPrint, ",")
Response.Write ""
For i = 0 To UBound(vPrint)
If i =< Clng(str-1) Then
v2Print = Split(vPrint(i), ":")
For j = 0 To UBound(v2Print) step 2
value1 = Trim(v2Print(0))
value2 = Trim(v2Print(1))
Response.Write "| "& value2 &" | "
Next 'i
End if
Next 'i
Response.Write "
"
End Sub
%>
```
Permalänk: https://www.webforum.nu/p/1739700
## #6 — devotion, 2006-01-07T11:30Z
:)
Ser fint ut!
Kan man alltid ersätta "" med ' ?
Mvh
henrik
Permalänk: https://www.webforum.nu/p/1739739
## #7 — voigtann1, 2006-01-07T11:30Z
man kan alltid ersätta "" med ' ja :e när det gäller HTML iallafall :e
Permalänk: https://www.webforum.nu/p/1739741
## #8 — devotion, 2006-01-07T12:02Z
Okidoki! :)
Henrik
Permalänk: https://www.webforum.nu/p/1739746
---
Tråden på webben: https://www.webforum.nu/amne/asp/140443-html-i-asp-kod