---
title: "Skriver inte ut???"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/105231-skriver-inte-ut"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "webbSAJTEN"
published: "2004-06-07T22:03:23.000Z"
updated: "2004-06-07T23:08:51.000Z"
replies: 4
views: 164
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/105231-skriver-inte-ut"
---

# Skriver inte ut???

## #1 — webbSAJTEN, 2004-06-07T22:03Z

Tjenare..
Kika in: <http://www.dastar.se/visa_anvandare.asp>

Där ser ni att den inte har skrivit ut något på första radenm under Nr. 
Det är mycket jobbigt..

Är det någon som vet varför det blir så, om det är ett vanligt fel!

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

## #2 — Esen, 2004-06-07T22:07Z

även sista nummret saknas, alltså 1:an...

Skulle vara lättare ifall man fick se koden...

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

## #3 — asp, 2004-06-07T22:14Z

Du måste visa KOD!!½

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

## #4 — webbSAJTEN, 2004-06-07T22:21Z

```
<% Set Connect = Server.CreateObject("Adodb.Connection") 
	Connect.Open strCon
	%>
  <% SQL = "SELECT * FROM anv ORDER by id DESC"
Set RS = Connect.Execute(SQL) %>
  <%
Do until RS.EOF
nummer = nummer + 1 
	If nummer Mod 2 = 0 then 
		color = "#627788" 
	Else 
		color = "#6D8496" 
	End If 
	%>
<table width="800" border="0" bgcolor="<%=color%>">
    <tr> 
      <td width="52"><b><%=antal%></b></td>
      <td width="113"><a href="http://www.dastar.se/minsida.asp?id=<%=RS("ID")%>" target="_blank"><%=RS("user")%></a></td>
      <td width="169" nowrap><%=RS("reggad")%></td>
      <td width="192"><%=RS("bor")%></td>
      <td width="252">
      <%
strBirth = CDate(RS("alder"))
strAge = Int(DateDiff("m", strBirth, Date)/12)

If RS("kon") = "Pojke" Then 
	Response.Write "P" & strAge
ElseIf RS("kon") = "Flicka" Then
	Response.Write "F" & strAge
Else
	Response.Write "Ej angett"
End If
%></td>
    </tr>
  </table>
  <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
  <%
Dim antal
antal = cint("0"& RS("ID")) - 19
%>
  <% RS.movenext 
loop
%>
```

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

## #5 — Nexus86, 2004-06-07T23:08Z

Du allokerar antal efter att ha använt den. Testa detta.

```
<% Set Connect = Server.CreateObject("Adodb.Connection") 
	Connect.Open strCon
	%>
  <% SQL = "SELECT * FROM anv ORDER by id DESC"
Set RS = Connect.Execute(SQL) %>
  <%
Do until RS.EOF
nummer = nummer + 1 
	If nummer Mod 2 = 0 then 
		color = "#627788" 
	Else 
		color = "#6D8496" 
	End If 

	Dim antal
	antal = cint("0" & RS("ID")) - 19
	%>
<table width="800" border="0" bgcolor="<%=color%>">
    <tr> 
      <td width="52"><b><%=antal%></b></td>
      <td width="113"><a href="http://www.dastar.se/minsida.asp?id=<%=RS("ID")%>" target="_blank"><%=RS("user")%></a></td>
      <td width="169" nowrap><%=RS("reggad")%></td>
      <td width="192"><%=RS("bor")%></td>
      <td width="252">
      <%
strBirth = CDate(RS("alder"))
strAge = Int(DateDiff("m", strBirth, Date)/12)

If RS("kon") = "Pojke" Then 
	Response.Write "P" & strAge
ElseIf RS("kon") = "Flicka" Then
	Response.Write "F" & strAge
Else
	Response.Write "Ej angett"
End If
%></td>
    </tr>
  </table>
  <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
  <% RS.movenext 
loop
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/105231-skriver-inte-ut