---
title: "syntaxfel... :("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38900-syntaxfel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Cactuz"
published: "2002-03-03T17:16:13.000Z"
updated: "2002-03-09T21:05:59.000Z"
replies: 23
views: 412
page: 1
pages: 2
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/38900-syntaxfel"
---

# syntaxfel... :(

_Sida 1 av 2._

## #1 — Cactuz, 2002-03-03T17:16Z

det ska vara nått fel på if satsen

```
do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td><font  face='Verdana' size='1'>" & objRs( "Namn" ) & "</td>" &_
  if not isnull(ar) and not isnull(manad) and not isnull(dag) then
    "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "" & DiffADate(DateSerial(ar,manad,dag)) & "</td></tr>"
  else
    "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "</td></tr>"
  end if
  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop
```

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

## #2 — @nders, 2002-03-03T17:18Z

```
do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td><font  face='Verdana' size='1'>" & objRs( "Namn" ) & "</td>" 
  if not isnull(ar) and not isnull(manad) and not isnull(dag) then
    strContents = strContents & "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "" & DiffADate(DateSerial(ar,manad,dag)) & "</td></tr>"
  else
    strContents = strContents & "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "</td></tr>"
  end if
  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop
```

Mvh,

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

## #3 — LarsG, 2002-03-03T17:19Z

```
do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td><font  face='Verdana' size='1'>" & objRs( "Namn" ) & "</td>" 
  if not isnull(ar) and not isnull(manad) and not isnull(dag) then
    strcontest = strContents & "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "" & DiffADate(DateSerial(ar,manad,dag)) & "</td></tr>"
  else
    strcontest = strContents & "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "</td></tr>"
  end if
  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop
```

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

## #4 — Jesper T, 2002-03-03T17:29Z

Dubbelarbete  :e

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

## #5 — Cactuz, 2002-03-03T18:56Z

nu ska ni få nått att tugga på :)

\[KOD\]
do while not objRs.eof and intCurrentPost \< objRs.pagesize
  strContents = strContents &\_
    "\<tr\>\<td\>\<font  face='Verdana' size='1'\>" & objRs( "Namn" ) & "\</td\>" 
  if not isnull(ar) and not isnull(manad) and not isnull(dag) then
dag = objrs("Alder_dag")
manad = objrs("Alder_manad")
ar = objrs("Alder_ar")
    strcontest = strContents & "\<td\>\<font  face='Verdana' size='1'\>" & objRs( "kon" ) & "" & DiffADate(DateSerial(ar,manad,dag)) & "\</td\>\</tr\>"
  else
    strcontest = strContents & "\<td\>\<font  face='Verdana' size='1'\>" & objRs( "kon" ) & "\</td\>\</tr\>"
  end if
  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop
\[KOD\]

Feltyp:
Körningsfel i Microsoft VBScript (0x800A005E)
Ogiltig användning av Null: 'dag'

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

## #6 — @nders, 2002-03-03T19:01Z

Flytta ner if-satsen till efter det att du tilldelar variablerna dess värden.

Mvh,

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

## #7 — LarsG, 2002-03-03T19:01Z

dag = objrs("Alder_dag") 
manad = objrs("Alder_manad") 
ar = objrs("Alder_ar") 
if not isnull(ar) and not isnull(manad) and not isnull(dag) then

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

## #8 — Cactuz, 2002-03-03T19:07Z

nu skriver den bara ut namnen...

hela koden

```
<%
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from anvandare Order by id asc"

Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

strConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &_
  Server.MapPath("/") & "/data/db.mdb"

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorlocation = 3 'adUseClient
  .open strSQL, strConString 'öppnar databasen och hämtar info.
  .pagesize = 50 'bestämmer hur många poster per sida.
  .absolutepage = intPageId 'bestämmer vilken sida som skall visas.
end with

intPages = cint( objRs.pagecount ) 'Kollar hur många sidor som finns i recordsettet.
intCurrentPost = 0 'Nollställer räknaren som skall hålla kolla på vilken post vi är på.

do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td><font  face='Verdana' size='1'>" & objRs( "Namn" ) & "</td>" 
dag = objrs("Alder_dag") 
manad = objrs("Alder_manad") 
ar = objrs("Alder_ar")
  if not isnull(ar) and not isnull(manad) and not isnull(dag) then
    strcontest = strContents & "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "" & DiffADate(DateSerial(ar,manad,dag)) & "</td></tr>"
  else
    strcontest = strContents & "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "</td></tr>"
  end if
  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop

function getFirstLink()
  getFirstLink = " <a href='?id=com/users&pageid=1'>Första sidan</a> "
end function

function getPreviousLink( intPageId )
  if intPageId > 1 then
    getPreviousLink = " <a href='?id=com/users&pageid=" & intPageId - 1 & "'>&lt;&lt;</a> "
  end if
end function

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?id=com/users&pageid=" & i & "'>" & i & "</a>"
next

function getNextLink( intPageId, intPageCount )
  if cint( intPageId ) < cint( intPageCount ) then
    getNextLink = " <a href='?id=com/users&pageid=" & intPageId + 1 & "'>&gt;&gt;</a> "
  end if
end function

function getLastLink( intPageCount )
  getLastLink = " <a href='?id=com/users&pageid=" & intPageCount & "'>Sista sidan</a> "
end function

function getPageInfo( intPageId, intPageCount )
  getPageInfo = " Antal sidor: " & intPageCount & ", nuvarande sida: " & intPageId & " "
end function
%>

<b><%=response.write("" & getPageInfo(intPageId, intPages) & "") %></b>
<br>
<table cellpadding="7" width="100%">
   <tr>
	<td>

<%
response.write "<table>" & strContents & "</table>"

response.write ("<br><table><tr><td><font  face='Verdana' size='1'><b>" & getFirstLink() & "</b>&#160;&#160;" & getPreviousLink(intPageId) & "")

response.write ("" & strNavigation & "")

response.write ("" & getNextLink(intPageId, intPages) & "&#160;&#160;<b>" & getLastLink(intPages) & "</b></td></tr></table>") 
%>

</font>
</td>
</tr>
</table>
</td>
</tr>
</table>
```

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

## #9 — Cactuz, 2002-03-04T17:01Z

varför funkar inte den här koden?

```
do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td><font  face='Verdana' size='1'>" & objRs( "Namn" ) & " <b>" & objRs( "kon" ) & "</b></td>" 
  if not isnull(ar) and not isnull(manad) and not isnull(dag) then
dag = objrs("Alder_dag") 
manad = objrs("Alder_manad") 
ar = objrs("Alder_ar")
    strAlder = strAlder & "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "" & DiffADate(DateSerial(ar,manad,dag)) & "</td></tr>"
  else

  end if
  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop
```

Feltyp:
Körningsfel i Microsoft VBScript (0x800A005E)
Ogiltig användning av Null: 'dag'

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

## #10 — LarsG, 2002-03-05T10:12Z

```
do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td><font  face='Verdana' size='1'>" & objRs( "Namn" ) & " <b>" & objRs( "kon" ) & "</b></td>" 

dag = objrs("Alder_dag") 
manad = objrs("Alder_manad") 
ar = objrs("Alder_ar")

  if not isnull(ar) and not isnull(manad) and not isnull(dag) then
strAlder = strAlder & "<td><font  face='Verdana' size='1'>" & objRs( "kon" ) & "" & DiffADate(DateSerial(ar,manad,dag)) & "</td></tr>"
  else

  end if
  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop
```

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

## #11 — Cactuz, 2002-03-06T20:20Z

ok... nu skriver den iaf ut kon... men åldern räknas inte ut

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

## #12 — LarsG, 2002-03-06T20:32Z

Då är det problem med det data du hämtar från databasen.

Någon eller några av kolumnerna Alder_dag, Alder_manad,  
Alder_ar innehåller null.

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

## #13 — Cactuz, 2002-03-06T20:38Z

innehåller null? :OO

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

## #14 — Cactuz, 2002-03-06T21:26Z

ingen av av kolumnerna Alder_dag, Alder_manad, 
Alder_ar är tomma

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

## #15 — Cactuz, 2002-03-08T14:30Z

jag behöver verkligen få ordning på d här :(

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

## #16 — @nders, 2002-03-08T14:38Z

Om du skriver ut värdena innan if-satsen, hur ser det ut då?

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

## #17 — Cactuz, 2002-03-08T20:35Z

vilka värden? :)

strAlder?

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

## #18 — Cactuz, 2002-03-09T12:50Z

nu har jag löst det  :)

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

## #19 — Cactuz, 2002-03-09T13:06Z

nu har jag ett annat problem... jag vill att den ska skriva ut den här koden men det bli problem med \<% och med "

```
  strContents = strContents &_
    "<tr bgcolor="<%=bgcolor%>">
   <td><% IF rs("Online") = "Ja" THEN %><img src="com/online.gif" border="0">
<% ELSE %><img src="com/offline.gif" border="0"><% END IF %><% IF NOT rs("bild") = "" THEN %>&#160;<img src="com/bild.gif" border="0">
<% ELSE %><% END IF %></td>
   <td><font  face="Verdana" size="1"><a href="default.asp?id=com/user_info&userid=" & objRs( "Namn" ) & "">" & objRs( "Namn" ) & " <b>" & objRs( "kon" ) & "" & DiffADate(DateSerial(ar,manad,dag)) & "</b></a></td>
</tr>"
```

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

## #20 — solbulle, 2002-03-09T13:13Z

Är tanken att hela harangen skall vara i variabeln strContents ?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38900-syntaxfel  
Nästa sida: https://www.webforum.nu/amne/asp/38900-syntaxfel/page2.md