Ok.. detta kan verka rätt flummigt.. men jag har EN .asp sida.. i den finns en if/elseIf/elseif/else.. i else fallet som är normal fallet, så visas beroende på infon i databasen ett antal rader.. där kan du välja att printa ut alla dessa rutor / eller dom du själv vill skriva ut.. När man gjort sitt val trycker man på en knapp som gör en submit på sidan.. och efter som det är "print" man vill göra så går den in i nedanstående elseif.. allt detta funkar bra... Sen dyker windows standard "skriv ut" ruta upp och då trycker man bara på Skriv ut... då skriver den jäveln ;) ut information som fanns där tidigare, dvs normal fallet... why? How? Vad missar jag?? LÖST!!!!!!!!Varför skriver den ut informationen som [LÖST!]
(klippte bara ut en del av funktionen, vill ni se hela får ni maila mig)
<code>
ElseIf Request("todo") = "print" Then
Dim bColor
bColor = True
Response.Write("</head>") & vbCrLf
Response.Write("<body bgcolor=""#ffffff"" marginheight=""0"" marginwidth=""0"" topmargin=""0"" leftmargin=""0"">") & vbCrLf
Response.Write("<span class=""small"">") & vbCrLf
Response.Write("<table cellspacing=""0"" cellpadding=""0"" border=""0"" width=""96" & "%" & """>") & vbCrLf
Response.Write("<tr>") & vbCrLf
Response.Write("<td>Från serienr.</td>") & vbCrLf
Response.Write("<td>Från artikelnr.</td>") & vbCrLf
Response.Write("<td>Antal</td>") & vbCrLf
Response.Write("</tr>") & vbCrLf
For a = 1 To Request("loop")
b = a*6
If Request("ch" & b) = "on" Then
If bColor Then
Response.Write("<tr bgcolor=""#dddddd"" height=""18"">") & vbCrLf
Response.Write("<td class=""small"">" & Request("fromseriesno" & a) & "</td>") & vbCrLf
Response.Write("<td class=""small"">" & Request("FromItemNo" & a) & "</td>") & vbCrLf
Response.Write("<td class=""small"">" & Request("Qty" & a) & "</td>") & vbCrLf
Response.Write("</tr>") & vbCrLf
bColor = false
Else
Response.Write("<tr bgcolor=""#ffffff"" height=""18"">") & vbCrLf
Response.Write("<td class=""small"">" & Request("fromseriesno" & a) & "</td>") & vbCrLf
Response.Write("<td class=""small"">" & Request("FromItemNo" & a) & "</td>") & vbCrLf
Response.Write("<td class=""small"">" & Request("Qty" & a) & "</td>") & vbCrLf
Response.Write("</tr>") & vbCrLf
bColor = true
End If
End If
Next
Response.Write("</table>") & vbCrLf
Response.Write("</span>") & vbCrLf
Response.Write("<script language=""javascript"">") & vbCrLf
Response.Write("parent.right.focus();") & vbCrLf
Response.Write("parent.right.print();") & vbCrLf
Response.Write("</script>") & vbCrLf
Response.Write("</body>") & vbCrLf
Response.Write("</html>") & vbCrLf
Else
</code>Sv: Varför skriver den ut informationen som fanns tidigare på
<code>
ElseIf Request("todo") = "print" Then
Dim bColor
bColor = True
%>
<script language="javascript">
function printOut() {
parent.right.focus();
parent.right.print();
}
</script>
</head>
<body bgcolor="#ffffff" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" onLoad="printOut();">
<span class="small">
<table cellspacing="0" cellpadding="0" border="0" width="96%">
<tr>
<td>Från Serienr.</td>
<td>Från Artikelnr.</td>
<td>Antal</td>
</tr>
<%
For a = 1 To Request("loop")
b = a*6
If Request("ch" & b) = "on" Then
If bColor Then
%>
<tr bgcolor="#dddddd" height="18">
<td class="small"><%= Request("fromseriesno" & a)%></td>
<td class="small"><%= Request("FromItemNo" & a)%></td>
<td class="small"><%= Request("Qty" & a)%></td>
</tr>
<%
bColor = False
Else
%>
<tr bgcolor="#ffffff" height="18">
<td class="small"><%= Request("fromseriesno" & a)%></td>
<td class="small"><%= Request("FromItemNo" & a)%></td>
<td class="small"><%= Request("Qty" & a)%></td>
</tr>
<%
bColor = True
End If
End If
Next
%>
</table>
</span>
</body>
</html>
<%
</code>