Skriver inte ut???

ASPur ASP

4 svar · 159 visningar · startad av webbSAJTEN 7 juni 2004

webbSAJTENMedlem sedan jan. 2002992 inlägg

Frågan7 juni 2004 22:03#1

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!

EsenMedlem sedan mars 20024 456 inlägg

7 juni 2004 22:07#2

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

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

aspMedlem sedan aug. 2002733 inlägg

7 juni 2004 22:14#3

Du måste visa KOD!!½

webbSAJTENMedlem sedan jan. 2002992 inlägg

7 juni 2004 22:21#4

<% 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
%>

Nexus86Medlem sedan okt. 20023 030 inlägg

7 juni 2004 23:08#5

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
%>