html i asp-kod

såhär kanske:

	If iAccessLevel = 1 then

		Response.write "<table class=""tabellRam"" width=""750"" border=""0"" 
		  cellspacing=""0"" cellpadding=""0"">

		<tr>
		  <td width=""60""  height=""18"" class=""tabellhuvud"">E-nr</td>
		  <td width=""250"" class=""tabellhuvud"">Benämning</td>
		  <td width=""45""  class=""tabellhuvud"">Enhet</td>
		  <td width=""75""  class=""tabellhuvud"">Solar</td>
		  <td width=""75""  class=""tabellhuvud"">Storel</td>
		  <td width=""75""  class=""tabellhuvud"">Ahlsell</td>
		  <td width=""60""  class=""tabellhuvud"">Lägst</td>
		  <td width=""60""  class=""tabellhuvud"">Antal</td>
		  <td width=""50""  class=""tabellhuvud"">Lägg till</td>
		</tr>"

	Else

		Response.write "<table class=""tabellRam"" width=""640"" border=""0""
		  cellspacing=""0"" cellpadding=""0"">

		<tr>
		  <td width=""60""  height=""18"" class=""tabellhuvud"">E-nr</td>
		  <td width=""250"" class=""tabellhuvud"">Benämning</td>
		  <td width=""45""  class=""tabellhuvud"">Enhet</td>
		  <td width=""75""  class=""tabellhuvud"">Solar</td>
		  <td width=""75""  class=""tabellhuvud"">Storel</td>
		  <td width=""75""  class=""tabellhuvud"">Ahlsell</td>
		  <td width=""60""  class=""tabellhuvud"">Lägst</td>
		</tr>"

	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.

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 %>
		<table class="tabellRam" width="750" border="0" cellspacing="0" cellpadding="0">
			<tr>
				<td width="60" height="18" class=""tabellhuvud"">
					E-nr
				</td>
				<td width=""250"" class=""tabellhuvud"">
					Benämning
				</td>
				<td width=""45"" class="tabellhuvud">
					Enhet
				</td>
				<td width="75" class="tabellhuvud">
					Solar
				</td>
				<td width="75" class="tabellhuvud">
					Storel
				</td>
				<td width="75" class="tabellhuvud">
					Ahlsell
				</td>
				<td width="60" class="tabellhuvud">
					Lägst
				</td>
				<td width="60" class="tabellhuvud">
					Antal
				</td>
				<td width="50" class="tabellhuvud">
					Lägg till
				</td>
			</tr>
	<% 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

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

Tja!

Får två olika varianter.

If iAccessLevel = 1 then
  Response.write "<table class='tabellRam' width='750' border='0' cellspacing='0' cellpadding='0'>"&_
  "<tr>"&_
  "<td width='60' height='18' class='tabellhuvud'>E-nr</td>"&_
  "<td width='250' class='tabellhuvud'>Benämning</td>"&_
  "<td width='45' class='tabellhuvud'>Enhet</td>"&_
  "<td width='75' class='tabellhuvud'>Solar</td>"&_
  "<td width='75' class='tabellhuvud'>Storel</td>"&_
  "<td width='75' class='tabellhuvud'>Ahlsell</td>"&_
  "<td width='60' class='tabellhuvud'>Lägst</td>"&_
  "<td width='60' class='tabellhuvud'>Antal</td>"&_
  "<td width='50' class='tabellhuvud'>Lägg till</td>"&_
  "</tr>"&_
  "</table>"
Else
  Response.write "<table class='tabellRam' width='640' border='0' cellspacing='0' cellpadding='0'>"
  "<tr>"&_
  "<td width='60' height='18' class='tabellhuvud'>E-nr</td>"&_
  "<td width='250' class='tabellhuvud'>Benämning</td>"&_
  "<td width='45' class='tabellhuvud'>Enhet</td>"&_
  "<td width='75' class='tabellhuvud'>Solar</td>"&_
  "<td width='75' class='tabellhuvud'>Storel</td>"&_
  "<td width='75' class='tabellhuvud'>Ahlsell</td>"&_
  "<td width='60' class='tabellhuvud'>Lägst</td>"&_
  "</tr>"&_
  "</table>"
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 "<table "& str2 &"><tr>"

  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 "<td "& value1 &" class='tabellhuvud'>"& value2 &"</td>"
      Next 'i
    End if
  Next 'i

  Response.Write "</tr></table>"
End Sub
%>

:)
Ser fint ut!

Kan man alltid ersätta "" med ' ?

Mvh
henrik

man kan alltid ersätta "" med ' ja :e när det gäller HTML iallafall :e

Okidoki! :)

Henrik