syntaxfel... :(

23 svar · 405 visningar · startad av Cactuz 3 mars 2002

CactuzMedlem sedan okt. 2001670 inlägg

3 mars 2002 17:16#1

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

@ndersMedlem sedan juni 200032 969 inlägg

3 mars 2002 17:18#2

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,

LarsGMedlem sedan dec. 200012 464 inlägg

3 mars 2002 17:19#3

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

Jesper TMedlem sedan nov. 20017 144 inlägg

3 mars 2002 17:29#4

Dubbelarbete :e

CactuzMedlem sedan okt. 2001670 inlägg

3 mars 2002 18:56#5

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'

@ndersMedlem sedan juni 200032 969 inlägg

3 mars 2002 19:01#6

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

Mvh,

LarsGMedlem sedan dec. 200012 464 inlägg

3 mars 2002 19:01#7

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

CactuzMedlem sedan okt. 2001670 inlägg

3 mars 2002 19:07#8

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>

CactuzMedlem sedan okt. 2001670 inlägg

4 mars 2002 17:01#9

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'

LarsGMedlem sedan dec. 200012 464 inlägg

5 mars 2002 10:12#10

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

CactuzMedlem sedan okt. 2001670 inlägg

6 mars 2002 20:20#11

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

LarsGMedlem sedan dec. 200012 464 inlägg

6 mars 2002 20:32#12

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.

CactuzMedlem sedan okt. 2001670 inlägg

6 mars 2002 20:38#13

innehåller null? :OO

CactuzMedlem sedan okt. 2001670 inlägg

6 mars 2002 21:26#14

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

CactuzMedlem sedan okt. 2001670 inlägg

8 mars 2002 14:30#15

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

@ndersMedlem sedan juni 200032 969 inlägg

8 mars 2002 14:38#16

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

CactuzMedlem sedan okt. 2001670 inlägg

8 mars 2002 20:35#17

vilka värden? :)

strAlder?

CactuzMedlem sedan okt. 2001670 inlägg

9 mars 2002 12:50#18

nu har jag löst det :)

CactuzMedlem sedan okt. 2001670 inlägg

9 mars 2002 13:06#19

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

solbulleMedlem sedan mars 20015 287 inlägg

9 mars 2002 13:13#20

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