---
title: "Hur gör man !"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/76827-hur-gör-man"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ragnared"
published: "2003-05-13T17:48:03.000Z"
updated: "2003-05-13T21:49:47.000Z"
replies: 6
views: 227
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/76827-hur-gör-man"
---

# Hur gör man !

## #1 — ragnared, 2003-05-13T17:48Z

Jag har gjort en skytteliga där den sortera efter hur många mål man gjort. hur gör jag ett script så att den skriver ut nummer efter varje så man ser vad han har för placering.

1: Johan Nord   5 mål
2: Peter Johansson 4 mål
3: osv

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

## #2 — @nders, 2003-05-13T17:50Z

För det första; snälla, skriv en rubrik som är relaterad till inlägget.
För det andra: ge oss mer information. Vi kan inte gissa hur dina databastabeller är upplagda, och vilken kod du har i övrigt.

Mvh

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

## #3 — ragnared, 2003-05-13T17:55Z

Detta är scriptet

Så här ser scriptet ut idag !

\<html\>

\<head\>
\<meta http-equiv="Content-Language" content="sv"\>
\<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"\>
\<meta name="GENERATOR" content="Microsoft FrontPage 5.0"\>
\<meta name="ProgId" content="FrontPage.Editor.Document"\>
\<title\>Fotbollssnack.com - Inom Kronoberg\</title\>

\<style\>

A:Link {color:000000;text-decoration:none;}

A:Visited {color:000000;text-decoration:none;}

A:Hover {color:000000;text-decoration:none;}

\</style\>
\<link rel="stylesheet" href="style.css" type="text/css"\>
\<script src="src.js"\>\</script\>
\<!--#INCLUDE File="texter.asp" --\>
\</head\>
\<!--#INCLUDE File="bakgrund.asp" --\>

\<div align="center"\>
  \<table border="0" width="762" height="53" cellspacing="0" cellpadding="0"\>
    \<tr\>
      \<td width="633" height="53" valign="top"\>
      
          \<table border="0" width="633" height="851" bgcolor="#000000" cellspacing="1" cellpadding="0"\>
    \<tr\>
      \<td width="633" height="83" valign="top" bgcolor="#FFFFFF" background="top.gif"\>\<!--#INCLUDE File="top.asp" --\>\</td\>
    \</tr\>
    \<tr\>
      \<td width="633" height="18" valign="middle" bgcolor="#DEDEDE"\>\<font size="2" face="Verdana"\>\<!--#INCLUDE File="meny.asp" --\>\</font\>\</td\>
    \</tr\>
    \<tr\>
      \<td width="633" height="745" valign="top" bgcolor="#FFFFFF" background="bg_front.gif"\>
      

      \<!--#INCLUDE File="hej.asp" --\>
      
        \<table border="0" width="621" height="369"\>
    \<tr\>
      \<td width="6" height="21" valign="top"\>
      
      
      
      
      
      
           
      
      
      
      
      
      
      \</td\>
      \<td width="521" height="33" valign="top" rowspan="2"\>
      
      
      
      
      
      
           
      
  \<%
set conn=server.createobject("adodb.connection")
dsn="DBQ=" & Server.Mappath("databaser/main.mdb") & ";Driver={Microsoft Access Driver (\*.mdb)};" 
conn.open dsn 
set rs=conn.execute("SELECT \* FROM skyttetopp order by pdate desc")
If rs.EOF OR rs.BOF Then
Response.Write"\<br\>\<br\>\<br\>\<font face='Verdana' size='-1'\>Hos detta lag kanske det inte finns match under denna kategori. Prova någon annan kategori.\<br\>\<br\>  \<a href='javascript:history.back(1)'\>\<b\>Till föregående sida.\</b\>\</a\>"
Else
TotalRecs = rs.recordcount

   %\>    
      
      
      
      
      \<p\>\<font size="2" face="Verdana"\>Här kan ni följa målskyttar från 
      Allsvenskan till Division 6 herrar i Kronoberg. Det är bara dom 30 bästa 
      som kommer att synas på sidan.\<b\>&nbsp; \</b\>För att bara kolla på ditt lag 
      klicka på laget här nedanför.
      Skytteligan uppdaterad \<b\>\<%= rs("pdate")%\>\</b\>\</font\>\</td\>
      \<td width="77" height="33" valign="top" rowspan="2"\>
      
      \<%end if%\>
      
      \</td\>
    \</tr\>
    \<tr\>
      \<td width="6" height="33" valign="top" rowspan="2"\>
      

      
      
      \</td\>
    \</tr\>
    \<tr\>
      \<td width="599" height="534" valign="top" rowspan="2" colspan="2"\>
      
      

    
  \<table BORDER=0 width="551" height="17" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111"\>
\<tr\>

\<td width="173" height="17"\>\<b\>\<font face="Verdana" size="1"\>Namn:\</font\>\</b\>\</td\>

\<td width="178" height="17"\>\<b\>\<font face="Verdana" size="1"\>Klubb:\</font\>\</b\>\</td\>

\<td width="152" height="17"\>\<b\>\<font face="Verdana" size="1"\>Division:\</font\>\</b\>\</td\>

\<td width="35" height="17"\>
\<p align="center"\>\<b\>\<font face="Verdana" size="1"\>Mål\</font\>\</b\>\</td\>

\</tr\>
\<%
set conn=server.createobject("adodb.connection")
dsn="DBQ=" & Server.Mappath("databaser/main.mdb") & ";Driver={Microsoft Access Driver (\*.mdb)};" 
conn.open dsn 
set rs=conn.execute("SELECT \* FROM skyttetopp order by poang desc,division,namn")
If rs.EOF OR rs.BOF Then
Response.Write"\<br\>\<br\>\<font face='Verdana' size='-1'\>\<b\>Skytteligan drar igång vid serie starten...\</b\>"
Else
TotalRecs = rs.recordcount
x = 0
For x = 1 to 30
	If rs.eof then
		Exit For
	Else

   %\>

 \<tr\>

\<td width="173" height="15"\>\<a href="skytteligan_klubbar.asp?ar=\<% =Year(Now) %\>&lag=\<% = RS("lag")%\>" target="\_parent"\>\<font face="verdana" size="1"\>\<%= rs("namn")%\>\</font\>\</td\>

\<td width="178" height="15"\>\<a href="skytteligan_klubbar.asp?ar=\<% =Year(Now) %\>&lag=\<% = RS("lag")%\>" target="\_parent"\>\<font face="verdana" size="1"\>\<%= rs("lag")%\>\</font\>\</td\>

\<td width="152" height="15"\>\<a href="skytteligan_klubbar.asp?ar=\<% =Year(Now) %\>&lag=\<% = RS("lag")%\>" target="\_parent"\>\<font face="verdana" size="1"\>\<%= rs("division")%\>\</font\>\<font face="Verdana" size="1"\>&nbsp;\<b\>\<%= rs("kon")%\>\</b\>\</font\>\</td\>

\<td width="35" height="15"\>
  \<p align="center"\>\<a href="skytteligan_klubbar.asp?ar=\<% =Year(Now) %\>&lag=\<% = RS("lag")%\>" target="\_parent"\>\<b\>
  \<font face="Verdana" size="1"\>\<%= rs("poang")%\>\</font\>\</b\>\</td\>

\</tr\>
\<%
rs.MoveNext
End If
Next%\>

\</table\>
      
      \<%end if%\>

      &nbsp;
      
      
           
      
      
      
      
      
      
      \<p\>\<font size="2" face="Tahoma"\>Har ni synpunkter på denna lista, kontakta 
      oss på e-post: \<b\>\<a href="mailto:info@fotbollssnack.com"\>
      <info@fotbollssnack.com>\</a\>.\</b\>\</font\>\</td\>
    \</tr\>
    \<tr\>
      \<td width="6" height="505" valign="top"\>
      
      
      
      
      
      
           
      
      
      
      
      
      
      \</td\>
    \</tr\>
  \</table\>
      
      &nbsp;
      
      
      \</td\>
    \</tr\>
      \</table\>
      
      \</td\>
      \<td width="4" height="53" valign="top"\>
        \<p align="left"\>\<font size="2" face="Verdana"\>\<br\>
        \</font\>
        \</td\>
      \<td width="120" height="53" valign="top"\>
           \<font size="2" face="Verdana"\>
           \<!--#INCLUDE File="reklam/banner.asp" --\>
           \</font\>
 \</td\>
    \</tr\>
  \</table\>
\</div\>

\</html\>

Men jag vill att den ska skriva ut vilken placering dom har automatiskt efter vad dom är placerade i skytteligan.

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

## #4 — Peeer, 2003-05-13T18:00Z

Re: Detta är scriptet

För det tredje: Snälla använd \[.kod\]-taggarna

```
TotalRecs = rs.recordcount
x = 0
For x = 1 to 30
	If rs.eof then
		Exit For
	Else
   %>
 <tr>
<td width="173" height="15"><a href="skytteligan_klubbar.asp?ar=<% =Year(Now) %>&lag=<% = RS("lag")%>" target="_parent"><font face="verdana" size="1">[b]<%=x &". "& rs("namn")%>[/b]</font></td>

<td width="178" height="15"><a href="skytteligan_klubbar.asp?ar=<% =Year(Now) %>&lag=<% = RS("lag")%>" target="_parent"><font face="verdana" size="1"><%= rs("lag")%></font></td>

<td width="152" height="15"><a href="skytteligan_klubbar.asp?ar=<% =Year(Now) %>&lag=<% = RS("lag")%>" target="_parent"><font face="verdana" size="1"><%= rs("division")%></font><font face="Verdana" size="1">&nbsp;<b><%= rs("kon")%></b></font></td>

<td width="35" height="15">
  <p align="center"><a href="skytteligan_klubbar.asp?ar=<% =Year(Now) %>&lag=<% = RS("lag")%>" target="_parent"><b>
  <font face="Verdana" size="1"><%= rs("poang")%></font></b></td>

</tr>
<%
rs.MoveNext
End If
Next%>
```

?

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

## #5 — crisse6, 2003-05-13T21:11Z

kan man lagga en End If mellan rs.movenext och Next?

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

## #6 — Jesper T, 2003-05-13T21:15Z

Ja, visst.
Han skriver ju If rs.eof then, några rader innan :)

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

## #7 — crisse6, 2003-05-13T21:49Z

ja visst javlar! ser daligt har i usa.... eller? :D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/76827-hur-gör-man