/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Sammentælling af en pris
Fra : John Sarby


Dato : 13-03-07 22:40

Hej.

Jeg er gået istå igen.

Sidst bad jeg om at indsætte en streg - og vupti var der straks
en der hjalp mig.
Nyt problem - nu vil jeg gerne kunne sammentælle prisen på det
jeg udvælger.
Lidt kode:
do while not rsprofit.eof
SQLfilm = "SELECT * FROM TABEL where nummer="&rs("filmnummer")&""
   set rsfilm = Connection.Execute(SQLfilm)

   If rsfilm("titel") <> intNummerGammel Then
   Response.Write "<tr>"
   Response.Write "<td colspan=5><hr></td>"
   Response.Write "</tr>"
   Response.Write "<tr>"
   Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>"
   Response.Write "</tr>"
   subto = 0
   intNummerGammel = rsfilm("titel")
   subto = subto + rsprofit("prisen")
   x = x + 1
   else
   subto = subto + rsprofit("prisen")
   End If
Response.write subto
      
      
   ialt = ialt + rsprofit("prisen")
   rsprofit.movenext
   loop

Når jeg kører programmet skriver den en streg og en titel hvilket
er perfect
Men sammentællingen af beløbet skrives mange gange.
Hvad gør jeg?????

mvh

John

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Jørn Andersen (13-03-2007)
Kommentar
Fra : Jørn Andersen


Dato : 13-03-07 23:16

On 13 Mar 2007 21:39:30 GMT, John Sarby <Playtime@post6.tele.dk> wrote:

>Nyt problem - nu vil jeg gerne kunne sammentælle prisen på det
>jeg udvælger.

Så vidt jeg kan se, ønsker du at lave en SubTotal for hver gang der
skiftes titel.
Altså under samme forhold, hvor der skrives en streg. Derfor skal den
også udskrives i samme del af If'en.
<snip>

>   If rsfilm("titel") <> intNummerGammel Then
   Response.Write "<tr>"
   Response.Write "<td colspan=5>" & subto "</td>"
   Response.Write "</tr>"
' subto nulstilles:
subto = 0

>   Response.Write "<tr>"
>   Response.Write "<td colspan=5><hr></td>"
>   Response.Write "</tr>"
>   Response.Write "<tr>"
>   Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>"
>   Response.Write "</tr>"
>   subto = 0
>   intNummerGammel = rsfilm("titel")
>   subto = subto + rsprofit("prisen")
>   x = x + 1
>   else
>   subto = subto + rsprofit("prisen")
>   End If

Denne linie skal så fjernes:
> Response.write subto
>      
>      
>   ialt = ialt + rsprofit("prisen")
>   rsprofit.movenext
>   loop
>
>Når jeg kører programmet skriver den en streg og en titel hvilket
>er perfect
>Men sammentællingen af beløbet skrives mange gange.

Den skrives "mange gange" (= 1 gang for hvert loop-gennemløb), fordi der
ikke er sat nogen begrænsninger, da den står uden for If'en.

Good luck,
Jørn

--
Jørn Andersen, Brønshøj

ALLE danske tropper HJEM fra Irak, NU
Demonstrér 17. marts: www.nejtilkrig.dk

Jørn Andersen (14-03-2007)
Kommentar
Fra : Jørn Andersen


Dato : 14-03-07 09:33

On Tue, 13 Mar 2007 23:16:13 +0100, Jørn Andersen <jorn@jorna.dk> wrote:

>Så vidt jeg kan se, ønsker du at lave en SubTotal for hver gang der
>skiftes titel.
>Altså under samme forhold, hvor der skrives en streg. Derfor skal den
>også udskrives i samme del af If'en.
><snip>

Glemte lige at tage højde for, at der ikke skal være en subtotal
*første* gang der gennemløbes - sorry!.
Det kan du løse ved at checke om intNummerGammel = det du satte den til
før loopen (din startværdi). Hvis den fx er 0, så:

>>   If rsfilm("titel") <> intNummerGammel Then
If intNummerGammel <> 0 Then
Response.Write "<tr>"
Response.Write "<td colspan=5>" & subto "</td>"
Response.Write "</tr>"
' subto nulstilles:
subto = 0
End If

Jeg er i øvrigt lidt forvirret over, hvad rsfilm("titel") indeholder.
Hvis den indeholder en tekst-streng, bør din "gammel"-værdi også være en
streng - og derfor ikke hedde *int*-et-eller-andet (som antyder et tal),
men strTitelGammel (eller noget i den retning). Og du kan fx have en
start-værdi på:
strTitelGammel = ""

Bare for at sige, at det sikkert vil give problemer på et tidspunkt,
hvis du sammenligner tal og tekst.

<snip resten>

Good luck,
Jørn

--
Jørn Andersen, Brønshøj

ALLE danske tropper HJEM fra Irak, NU
Demonstrér 17. marts: www.nejtilkrig.dk

John Sarby (15-03-2007)
Kommentar
Fra : John Sarby


Dato : 15-03-07 19:26

Hej Jørn.

Tak for dit svar, desværre er der stadig et ellet galt med min kode for der
bliver hele tiden udskrevet alle de sammentællinger der foretages.
Jeg kan henvise til min side, jeg har fjernet sikkerheden, så du selv kan
se hvad mit problem er.

Adressen: www.playtimevideo.dk/avc/stat/defaulttest.asp

Jeg ønsker kun en streg og titlen og det sidst sammentalt beløb.

Eks.
Brødre beløb: 420,-

mvh

John



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Jørn Andersen (15-03-2007)
Kommentar
Fra : Jørn Andersen


Dato : 15-03-07 20:50

On 15 Mar 2007 18:26:11 GMT, John Sarby <Playtime@post6.tele.dk> wrote:

>Tak for dit svar, desværre er der stadig et ellet galt med min kode for der
>bliver hele tiden udskrevet alle de sammentællinger der foretages.
>Jeg kan henvise til min side, jeg har fjernet sikkerheden, så du selv kan
>se hvad mit problem er.
>
>Adressen: www.playtimevideo.dk/avc/stat/defaulttest.asp
>
>Jeg ønsker kun en streg og titlen og det sidst sammentalt beløb.

Du må have noget kode *uden for* If'en, som udskriver den løbende
sammentælling.
Hvis du kigger nærmere, så har de overflødige sammentællinger formatet:
<td colspan=1>42,00 DKK</td>
- så kig i din kode, hvor du har noget med "colspan=1" (som i øvrigt er
overflødigt).

Et eller andet siger mig, at du ikke har placeret udskrivningen af
sammentællingen samme sted som udskriften af <hr> og titel - ?

En anden mulighed er, at din If altid er sand - det er lidt svært at se,
når man ikke kan se koden i sammenhæng.
Prøv evt. at gemme din .asp-fil som .txt og send url'en, så vi kan se
koden i sammenhæng. (husk at skære evt. fortrolige ting ud).
(Det er nemmere at overskue end hvis du poster hele koden her, hvor der
nemt går ged i linieskift etc.)


I øvrigt kan du gøre din HTML-kildekode mere overskuelig ved at lave
nogle linieskift.
Jeg plejer at lave ét linieskift pr. <td> og to pr. <tr> - fx:

Response.Write "<tr>" & vbcrlf
Response.Write "<td> ... </td>" & vbcrlf
Response.Write "<td> ... </td>" & vbcrlf
Response.Write "</tr>" & vbcrlf & vbcrlf


Mvh. Jørn

--
Jørn Andersen, Brønshøj

ALLE danske tropper HJEM fra Irak, NU
Demonstrér 17. marts: www.nejtilkrig.dk

John Sarby (15-03-2007)
Kommentar
Fra : John Sarby


Dato : 15-03-07 21:57

Hej Jørn.

Her er hele koden:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<center>
<table border=0 width="500"
background="http://www.playtimevideo.dk/billed/bg.gif">

<%
      Response.Write "<tr>"
      stkialt = 0
   '   if Request.querystring("lev")<>"" then
   '      lev = Request.QueryString("lev")
   '   else
         lev=8
   '   end if

      
      Response.Write "<td>" &date&"</td>"

      SQLprofitDist = "SELECT * FROM Tabel1 where lev ="&lev&""
      set rsprofitDist = Connection.Execute(SQLprofitDist)
      SQLprofit = "SELECT * FROM Tabel2 where profit='*' and lev="&lev&" order by
filmnummer"
      set rsprofit = Connection.Execute(SQLprofit)
      LevNavn = rsprofitDist("Navn")      

      Response.Write "<td>Dist: "&LevNavn&"</td>"

      Response.Write "</tr>"


      Response.Write "<table border=0>"
      Response.Write "<tr>"
      dtmDagenIdag = Now()
      tid = FormatDateTime(dtmDagenIdag, vbShortTime)
      Response.Write "<td width='10 %'>Filmnummer</td>"
      Response.Write "<td width='40 %'>Titel</td>"
      Response.Write "<td width='20 %'>Udlejet</td>"
      Response.Write "<td width='10 %'>Tid</td>"
      Response.Write "<td width='20 %'>Beløbet</td>"
      Response.Write "</tr>"
      

      
      intNummerGammel = 0
      subto = 0
      do while not rsprofit.eof
      SQLfilm = "SELECT * FROM Tabel3 where nummer="&rsprofit("filmnummer")&""
      set rsfilm = Connection.Execute(SQLfilm)

      If rsfilm("titel") <> intNummerGammel Then
      Response.Write "<tr>"
      Response.Write "<td colspan=5><hr></td>"
      Response.Write "</tr>"
      Response.Write "<tr>"
      Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>"
      Response.Write "</tr>"
      subto = 0
      intNummerGammel = rsfilm("titel")
      subto = subto + rsprofit("prisen")
      x = x + 1
      else
            subto = subto + rsprofit("prisen")
      End If
      Response.Write "<tr>"
      Response.write "<td>" & formatnumber(subto,2) & " DKK</td>"
      Response.Write "</tr>"
      
      
      ialt = ialt + rsprofit("prisen")
      rsprofit.movenext
      loop
      set rsfilm = nothing
      Response.Write "<tr>"
      Response.write "<td colspan=4 align=right>IALT : (Incl. Moms)</td>"
      Response.write "<td colspan=1>" & formatnumber(ialt,2) & " DKK</td>"
      Response.Write "</tr>"

set rs = nothing
set rsm = nothing
set rsfilm = nothing
set rsmovie = nothing
set rsprofit = nothing
set rsprofitDist = nothing

%>

</BODY>
</HTML>

Jeg ved godt at udskrivningen af beløbet ligger udenfor if sætningen, men jeg
kan ikke få det til at virke, når jeg prøver at lægge den andre steder.

mvh

John

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Jørn Andersen (16-03-2007)
Kommentar
Fra : Jørn Andersen


Dato : 16-03-07 00:47

On 15 Mar 2007 20:56:55 GMT, John Sarby <Playtime@post6.tele.dk> wrote:

>Her er hele koden:
<snip>

Fejlen er, at du udskriver subto uden for If'en. Det betyder, at den vil
blive udskrevet i hvert gennemløb.

>      intNummerGammel = 0
>      subto = 0
>      do while not rsprofit.eof

Her er du inde i loopen

>      SQLfilm = "SELECT * FROM Tabel3 where nummer="&rsprofit("filmnummer")&""
>      set rsfilm = Connection.Execute(SQLfilm)
>
>      If rsfilm("titel") <> intNummerGammel Then

Her er du inde i If'ens True-gren

>      Response.Write "<tr>"
>      Response.Write "<td colspan=5><hr></td>"
>      Response.Write "</tr>"
>      Response.Write "<tr>"
>      Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>"
>      Response.Write "</tr>"
>      subto = 0
>      intNummerGammel = rsfilm("titel")
>      subto = subto + rsprofit("prisen")
>      x = x + 1
>      else

Her er du inde i If'ens Else-gren

>            subto = subto + rsprofit("prisen")
>      End If

Her er du igen ude af If'en - og det er først her, du udskriver:
>      Response.Write "<tr>"
>      Response.write "<td>" & formatnumber(subto,2) & " DKK</td>"
>      Response.Write "</tr>"


Erstat det ovenstående med:

   If rsfilm("titel") <> intNummerGammel Then
' Denne del af If'en "aktivers" kun, når der skiftes titel

' Her udskriver du subto
' Men da den ikke skal udskrives første gang,
' pakker vi den ind i en If
If intNummerGammel <> 0 Then
Response.Write "<tr>" & vbcrlf
Response.write "<td>" & formatnumber(subto,2) & " DKK</td>" & vbcrlf
Response.Write "</tr>" & vbcrlf & vbcrlf
End If

'- og sætter en ny "gammelværdi"
intNummerGammel = rsfilm("titel")
'- og nulstiller subto
subto = 0

' Her kommer skille-stregen
Response.Write "<tr>" & vbcrlf
Response.Write "<td colspan=5><hr></td>" & vbcrlf
Response.Write "</tr>" & vbcrlf & vbcrlf

' Her kommer så den nye titel
Response.Write "<tr>" & vbcrlf
Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>" & vbcrlf
Response.Write "</tr>" & vbcrlf & vbcrlf

'- og den nye pris
subto = subto + rsprofit("prisen")
x = x + 1
Else
subto = subto + rsprofit("prisen")
End If

<snip resten>

>Jeg ved godt at udskrivningen af beløbet ligger udenfor if sætningen, men jeg
>kan ikke få det til at virke, når jeg prøver at lægge den andre steder.

Det er formentlig fordi du nulstiller subto, inden du opdaterer den.


Good luck,
Jørn

--
Jørn Andersen, Brønshøj

ALLE danske tropper HJEM fra Irak, NU
Demonstrér 17. marts: www.nejtilkrig.dk

John Sarby (16-03-2007)
Kommentar
Fra : John Sarby


Dato : 16-03-07 19:46

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> On 15 Mar 2007 20:56:55 GMT, John Sarby <Playtime@post6.tele.dk> wrote:
>
> >Her er hele koden:
> <snip>
>
> Fejlen er, at du udskriver subto uden for If'en. Det betyder, at den vil
> blive udskrevet i hvert gennemløb.
>
> >      intNummerGammel = 0
> >      subto = 0
> >      do while not rsprofit.eof
>
> Her er du inde i loopen
>
> >      SQLfilm = "SELECT * FROM Tabel3 where nummer="&rsprofit("filmnummer")&""
> >      set rsfilm = Connection.Execute(SQLfilm)
> >
> >      If rsfilm("titel") <> intNummerGammel Then
>
> Her er du inde i If'ens True-gren
>
> >      Response.Write "<tr>"
> >      Response.Write "<td colspan=5><hr></td>"
> >      Response.Write "</tr>"
> >      Response.Write "<tr>"
> >      Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>"
> >      Response.Write "</tr>"
> >      subto = 0
> >      intNummerGammel = rsfilm("titel")
> >      subto = subto + rsprofit("prisen")
> >      x = x + 1
> >      else
>
> Her er du inde i If'ens Else-gren
>
> >            subto = subto + rsprofit("prisen")
> >      End If
>
> Her er du igen ude af If'en - og det er først her, du udskriver:
> >      Response.Write "<tr>"
> >      Response.write "<td>" & formatnumber(subto,2) & " DKK</td>"
> >      Response.Write "</tr>"
>
>
> Erstat det ovenstående med:
>
>    If rsfilm("titel") <> intNummerGammel Then
> ' Denne del af If'en "aktivers" kun, når der skiftes titel
>
> ' Her udskriver du subto
> ' Men da den ikke skal udskrives første gang,
> ' pakker vi den ind i en If
> If intNummerGammel <> 0 Then
> Response.Write "<tr>" & vbcrlf
> Response.write "<td>" & formatnumber(subto,2) & " DKK</td>" & vbcrlf
> Response.Write "</tr>" & vbcrlf & vbcrlf
> End If
>
> '- og sætter en ny "gammelværdi"
> intNummerGammel = rsfilm("titel")
> '- og nulstiller subto
> subto = 0
>
> ' Her kommer skille-stregen
> Response.Write "<tr>" & vbcrlf
> Response.Write "<td colspan=5><hr></td>" & vbcrlf
> Response.Write "</tr>" & vbcrlf & vbcrlf
>
> ' Her kommer så den nye titel
> Response.Write "<tr>" & vbcrlf
> Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>" & vbcrlf
> Response.Write "</tr>" & vbcrlf & vbcrlf
>
> '- og den nye pris
> subto = subto + rsprofit("prisen")
> x = x + 1
> Else
> subto = subto + rsprofit("prisen")
> End If
>
> <snip resten>
>
> >Jeg ved godt at udskrivningen af beløbet ligger udenfor if sætningen, men jeg
> >kan ikke få det til at virke, når jeg prøver at lægge den andre steder.
>
> Det er formentlig fordi du nulstiller subto, inden du opdaterer den.
>
>
> Good luck,
> Jørn
>
> --
> Jørn Andersen, Brønshøj
>
> ALLE danske tropper HJEM fra Irak, NU
> Demonstrér 17. marts: www.nejtilkrig.dk

Jeg takker for din indsats, deværre har det ikke løst mit problem, jeg ønsker kun
at det sidste beløb bliver udskrevet - det volder mig store problemer.

mvh

John


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

John Sarby (17-03-2007)
Kommentar
Fra : John Sarby


Dato : 17-03-07 09:29

John Sarby wrote in dk.edb.internet.webdesign.serverside.asp:
> Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> > On 15 Mar 2007 20:56:55 GMT, John Sarby <Playtime@post6.tele.dk> wrote:
> >
> > >Her er hele koden:
> > <snip>
> >
> > Fejlen er, at du udskriver subto uden for If'en. Det betyder, at den vil
> > blive udskrevet i hvert gennemløb.
> >
> > >      intNummerGammel = 0
> > >      subto = 0
> > >      do while not rsprofit.eof
> >
> > Her er du inde i loopen
> >
> > >      SQLfilm = "SELECT * FROM Tabel3 where nummer="&rsprofit("filmnummer")&""
> > >      set rsfilm = Connection.Execute(SQLfilm)
> > >
> > >      If rsfilm("titel") <> intNummerGammel Then
> >
> > Her er du inde i If'ens True-gren
> >
> > >      Response.Write "<tr>"
> > >      Response.Write "<td colspan=5><hr></td>"
> > >      Response.Write "</tr>"
> > >      Response.Write "<tr>"
> > >      Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>"
> > >      Response.Write "</tr>"
> > >      subto = 0
> > >      intNummerGammel = rsfilm("titel")
> > >      subto = subto + rsprofit("prisen")
> > >      x = x + 1
> > >      else
> >
> > Her er du inde i If'ens Else-gren
> >
> > >            subto = subto + rsprofit("prisen")
> > >      End If
> >
> > Her er du igen ude af If'en - og det er først her, du udskriver:
> > >      Response.Write "<tr>"
> > >      Response.write "<td>" & formatnumber(subto,2) & " DKK</td>"
> > >      Response.Write "</tr>"
> >
> >
> > Erstat det ovenstående med:
> >
> >    If rsfilm("titel") <> intNummerGammel Then
> > ' Denne del af If'en "aktivers" kun, når der skiftes titel
> >
> > ' Her udskriver du subto
> > ' Men da den ikke skal udskrives første gang,
> > ' pakker vi den ind i en If
> > If intNummerGammel <> 0 Then
> > Response.Write "<tr>" & vbcrlf
> > Response.write "<td>" & formatnumber(subto,2) & " DKK</td>" & vbcrlf
> > Response.Write "</tr>" & vbcrlf & vbcrlf
> > End If
> >
> > '- og sætter en ny "gammelværdi"
> > intNummerGammel = rsfilm("titel")
> > '- og nulstiller subto
> > subto = 0
> >
> > ' Her kommer skille-stregen
> > Response.Write "<tr>" & vbcrlf
> > Response.Write "<td colspan=5><hr></td>" & vbcrlf
> > Response.Write "</tr>" & vbcrlf & vbcrlf
> >
> > ' Her kommer så den nye titel
> > Response.Write "<tr>" & vbcrlf
> > Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>" & vbcrlf
> > Response.Write "</tr>" & vbcrlf & vbcrlf
> >
> > '- og den nye pris
> > subto = subto + rsprofit("prisen")
> > x = x + 1
> > Else
> > subto = subto + rsprofit("prisen")
> > End If
> >
> > <snip resten>
> >
> > >Jeg ved godt at udskrivningen af beløbet ligger udenfor if sætningen, men jeg
> > >kan ikke få det til at virke, når jeg prøver at lægge den andre steder.
> >
> > Det er formentlig fordi du nulstiller subto, inden du opdaterer den.
> >
> >
> > Good luck,
> > Jørn
> >
> > --
> > Jørn Andersen, Brønshøj
> >
> > ALLE danske tropper HJEM fra Irak, NU
> > Demonstrér 17. marts: www.nejtilkrig.dk
>
> Jeg takker for din indsats, deværre har det ikke løst mit problem, jeg ønsker kun
> at det sidste beløb bliver udskrevet - det volder mig store problemer.
>
> mvh
>
> John

Hej Jørn.
Jeg takker for din hjælp, har fået løst problemet.

Udskrivningen af subto skulle lægges ind før

Response.write "<td>" & formatnumber(subto,2) & " DKK</td>"


> > Response.Write "<tr>"
> > Response.Write "<td colspan=5><hr></td>"
> > Response.Write "</tr>"
så kom det til at virke.

mvh

John



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Jørn Andersen (18-03-2007)
Kommentar
Fra : Jørn Andersen


Dato : 18-03-07 06:06

On 17 Mar 2007 08:28:58 GMT, John Sarby <Playtime@post6.tele.dk> wrote:

>Jeg takker for din hjælp, har fået løst problemet.

Det lyder godt.


>Udskrivningen af subto skulle lægges ind før
>
>Response.write "<td>" & formatnumber(subto,2) & " DKK</td>"

>> > Response.Write "<tr>"
>> > Response.Write "<td colspan=5><hr></td>"
>> > Response.Write "</tr>"
>så kom det til at virke.

Var det ikke også det, jeg foreslog?

Sådan til opfølgning, så tror jeg du vil få meget ud af at lære lidt om
fejlfindings-rutioner.

Nogle gange hjælper det selvfølgelig at gå sit script igennem et par
ekstra gange og se, om der er ting, der springer i øjnene som fejl.
Men ofte er det svært at overskue, måske fordi der er mange variable i
spil, og det er svært at holde styr på, hvad indholdet af de enkelte
variable er på et givet tidspunkt.

Her hjælper det tit at *udskrive* sine variable undervejs for at sikre
sig, at de faktisk indeholder det, man forventer.
Se hvordan det gøres her:
<url: http://www.asp-faq.dk/article/?id=41>

Hvis man (midlertidigt) indsætter nogle Response.Write undervejs, kan
man fx let finde ud af, om en If bliver aktiveret:
If a = b Then
c = a * 7
Response.Write "If er sand<br>" & vbcrlf
Response.Write "c er: " & c & "<br>" & vbcrlf
End If

Hvis man får en fejlmeddelelse undervejs, så vil den ofte forhindre
afvikling af scriptet - og dermed også test-udskriften. Det kan man
komme ud over ved at indføje en Response.End umiddelbart efter sin
Response.Write (og før den linie, der fejler) for fx at finde ud af, om
det er indholdet af en variabel., der får scriptet til at fejle.

Får man fx fejl i linie 20 (fx en afvikling af en SQL-forespørgsel), så
kan man indsætte i linie 19:
Response.Write "SQL-streng: " & strSql & "<br>" & vbcrlf
Response.End

Så får man udskrevet sin SQL-streng og kan se, om den ser rigtig ud og
indeholder de variable, man forventer. Evt. kan man kopiere SQL-strengen
over i sit database-program og se, om den virker der.

Et andet tip: Brug 'Option Explicit' til at sikre, at du ikke har stavet
variable forkert - det kommer vi alle til en gang imellem. Se:
<url: http://www.asp-faq.dk/article/?id=9>

Ellers: Spørg endelig videre i gruppen.

Og tag lige et kig på min signatur: Der er ingen grund til at citere
snesevis af linier for at komme med et 5-10 liniers svar.

Mvh. Jørn

PS: Gider du tage et kig på:
<url: http://www.usenet.dk/netikette/citatteknik.html>

--
Jørn Andersen,
Brønshøj

John Sarby (19-03-2007)
Kommentar
Fra : John Sarby


Dato : 19-03-07 22:37

Hej Jørn.

Tak for dine tips, jeg skal nok prøve at efterleve reglerne, men jeg skal
lige lære lidt omkring det.

Når man går istå og det driller lidt, kan det godt være svært, at holde
tingene helt adskilt.

Tusind tak for din hjælp.

mvh

John

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408924
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste