7 svar · 514 visningar · startad av devotion
Hej! :)
Har följande kod som med hjälp av response.write skriver ut html:
response.write "<table><thead><tr><th>Artikelbenämning</th><th>Enhet</th>"
for each iSupplierId in sSuppliers
set oSupplier=sSuppliers(iSupplierId)
response.write "<th>" & oSupplier.Name & "</th>"
next
response.write "</tr></thead><tbody>"
for each sArticle in sArticles
set oArticle=sArticles(sArticle)
response.write "<tr><td>" & sArticle & "</td><td>" & oArticle.Unit & "</td>"
for each iSupplierId in sSuppliers
set oSupplier=sSuppliers(iSupplierId)
response.write "<td>"
sKey=iSupplierId & vbTab & sArticle
if not sSupplierArticles.Exists(sKey) then
response.write " "
else
'Här ska priserna loopas ut
'*******************************
response.write "<div id='result'><ul>"
for each sSupplierarticle in sSupplierarticles(sKey)
set oSupplierarticle=sSupplierarticles(sKey)(sSupplierarticle)
Response.Write "<li><span onclick=""changeValue('" & oSupplierArticle.ArticleNumber & "','" & oSupplierArticle.Price & "','" & oSupplierArticle.CategoryName & "','articleNumber')"" style=""cursor:pointer;color:blue""></span></li>"
Response.Write "test: " & oSupplierArticle.ArticleNumber & "<br>"
next
Response.write "</ul></div>"
'******************************************
end if
'Skriv ut länk
'**********************
response.write "<a href="""" onclick=""return showResults(event,this)"" style=""color:blue;text-decoration:none"">" & oArticle.CheapestSupplierArticle.ArticleNumber & " - " & oArticle.CheapestSupplierArticle.Price & " kr</a><input type=""hidden"" name=""articleNumber"" value=""" & oArticle.CheapestSupplierArticle.ArticleNumber & """>"
'**********************************
response.write "</td>"
next
response.write "</tr>"
next
response.write "</tbody></table>"
Det fungerar ju fint, men när man tittar i webläsaren, på visa källkod ser det ut så här:
<table><thead><tr><th>Artikelbenämning</th><th>Enhet</th><th>Elektroskandia</th><th>Solar</th><th>Storel</th><th>Selga</th><th>Ahlsell</th></tr></thead><tbody><tr><td>EKLK 3G1,5</td>....... osv....
Hur gör man för att radbryta och göra indrag så koden blir läsbar i webläsaren?
Mvh
Henrik
chr(10) = Ny rad
chr(9) = Tab
Finns iofs diverse vb-konstanter för dessa (vbLf, vbtab).
response.write "En rad" & chr(10) & _
"Detta hamnar på en ny rad i källkoden" & chr(10) & char(9) & _
"Detta hamnar på en ny rad samt intabbat"
...
En rad
Detta hamnar på en ny rad i källkoden
Detta hamnar på en ny rad samt intabbat
Chr(10) är bara en line feed. För att göra en windows-radbrytning så behöver man både en line feed och en carriage return. Alltså:
Chr(10) & Chr(13)
Eller lite enklare:
vbCrLf
Kanske lite OT men ändå inte. Av vilken anledning tycker du att man hellre ska använda \r\n istället för \n? Ms-beslutet en gång i tiden att köra på CrLf är snarare ett misstag än en funktionell fördel.
I vilket testfall sålänge men arbetar på webben och inte emot någon specifik tolkare fungerar \r\n men inte \n?
Kör man Internet Explorer/Notepad för att se vad som genereras så ser man line-feeds som fyrkanter när man kollar HTML-koden.
Och använder man ASP så känns det ganska naturligt att följa MS-standard.
HEJ!
Jag kör med korta variabelnamn, e, t, et, e2 ..., titta på http://www.webforum.nu/showthread.php?p=1122355#post1122355.
Anledningen till att jag ville få ut tabbar och radbrytningar var att jag ville "felsöka" i den utmatade html-koden.... Annars brukar jag inte bry mig så mycket. Tycker nog att det är viktigare att asp-koden är lät att förstå...
Mvh
Henrik
