/ 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
Optællings løkke
Fra : Sandra


Dato : 18-03-02 10:48

Hej,

Jeg er ved at lave et filmudlejnings reservations system og vil
gerne have mit script til at gennemgå basen og "tælle" hvor mange
af en given vare der er hjemme.

Jeg har prøvet a hjemmestrikke lidt kode, men det virker ikke som
det skal. Er der nogen der ved hvordan man gør?

Min kode ser således ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("VDB.mdb")
Conn.Open DSN

strSQL = "Select * from Sortiment where Titel ='" &
Request.Form("search") & "'"
set rs=Conn.Execute(strSQL)


SQL = "Select * from Butik where Butiksnavn='" &
Session("filial") &"'"
Set tr=Conn.Execute(SQL)

P = "Select * from " & tr("ButiksID") & " where VareID='"&
rs("VareID") & "'"
set pt=Conn.Execute(P)

%>

<form method="post" action="filmRes.asp">
<%

For antal_hjemme = 0 To Step ' <---- her skal den tælle op
for hvergang pt("hjemme") = true

If pt("Hjemme") = true then

next

End if


If rs.eof = False then

Do

response.write "<font COLOR=mediumblue face=verdana
size=2><b>Titel:</b>" & " " & rs("Titel") & "&nbsp;&nbsp;&nbsp;"
& "<b>Format: </b>" & " " & rs("Format") & "&nbsp;&nbsp;&nbsp;" &
"<b>Kategori: </b>" & " " & rs("Kategori") & "&nbsp;&nbsp;&nbsp;"
& "&nbsp;&nbsp;&nbsp;" & "<b>Antal hjemme: </b>" & " " & i & "" &
"<input type='checkbox' name='resFilm'" & " value='" &
rs("Titel") & " på " & rs("Format") & "'/>" & "<br>"
response.write "<font COLOR=mediumblue
face=verdana>____________________________________________________
____________________________________</font>" & "<br>"
rs.MoveNext

Loop While Not rs.EOF

På forhånd tak :)

Sandra

--
KONKURRENCE PÅ HTML.dk:
fortæl hvordan din drømmeeditor ser ud
og vind luksus webhoteller fra Wannafind
KLIK HER! => http://www.html.dk/editor

 
 
Kaj Nicolaisen (18-03-2002)
Kommentar
Fra : Kaj Nicolaisen


Dato : 18-03-02 17:48

Hvorfor ikke medtage kriteriet i SQL forespørgslen og spare løkken!?

P = "Select count(*) as myHome from " & tr("ButiksID") & " where VareID='"&
rs("VareID") & "' And Hjemme='True'"
set pt=Conn.Execute(P)

antal_hjemme = pt("myHome")

Venlig hilsen
Kaj

"Sandra" <Studiner2002@yahoo.dk> skrev i en meddelelse
news:a74d3k$isv$1@sunsite.dk...
> Hej,
>
> Jeg er ved at lave et filmudlejnings reservations system og vil
> gerne have mit script til at gennemgå basen og "tælle" hvor mange
> af en given vare der er hjemme.
>
> Jeg har prøvet a hjemmestrikke lidt kode, men det virker ikke som
> det skal. Er der nogen der ved hvordan man gør?
>
> Min kode ser således ud:
>
> <%
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath("VDB.mdb")
> Conn.Open DSN
>
> strSQL = "Select * from Sortiment where Titel ='" &
> Request.Form("search") & "'"
> set rs=Conn.Execute(strSQL)
>
>
> SQL = "Select * from Butik where Butiksnavn='" &
> Session("filial") &"'"
> Set tr=Conn.Execute(SQL)
>
> P = "Select * from " & tr("ButiksID") & " where VareID='"&
> rs("VareID") & "'"
> set pt=Conn.Execute(P)
>
> %>
>
> <form method="post" action="filmRes.asp">
> <%
>
> For antal_hjemme = 0 To Step ' <---- her skal den tælle op
> for hvergang pt("hjemme") = true
>
> If pt("Hjemme") = true then
>
> next
>
> End if
>
>
> If rs.eof = False then
>
> Do
>
> response.write "<font COLOR=mediumblue face=verdana
> size=2><b>Titel:</b>" & " " & rs("Titel") & "&nbsp;&nbsp;&nbsp;"
> & "<b>Format: </b>" & " " & rs("Format") & "&nbsp;&nbsp;&nbsp;" &
> "<b>Kategori: </b>" & " " & rs("Kategori") & "&nbsp;&nbsp;&nbsp;"
> & "&nbsp;&nbsp;&nbsp;" & "<b>Antal hjemme: </b>" & " " & i & "" &
> "<input type='checkbox' name='resFilm'" & " value='" &
> rs("Titel") & " på " & rs("Format") & "'/>" & "<br>"
> response.write "<font COLOR=mediumblue
> face=verdana>____________________________________________________
> ____________________________________</font>" & "<br>"
> rs.MoveNext
>
> Loop While Not rs.EOF
>
> På forhånd tak :)
>
> Sandra
>
> --
> KONKURRENCE PÅ HTML.dk:
> fortæl hvordan din drømmeeditor ser ud
> og vind luksus webhoteller fra Wannafind
> KLIK HER! => http://www.html.dk/editor



Sandra (19-03-2002)
Kommentar
Fra : Sandra


Dato : 19-03-02 09:48

Hej Kaj,

Tak for foreslaget, hvis jeg kører det for jeg dog fejlmeddelsen:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i
kriterieudtrykket.
/funktionalitet.asp, line 27


linie 27: set pt=Conn.Execute(P)

Sandra

--
KONKURRENCE PÅ HTML.dk:
fortæl hvordan din drømmeeditor ser ud
og vind luksus webhoteller fra Wannafind
KLIK HER! => http://www.html.dk/editor

Janus Klok Lauritsen (19-03-2002)
Kommentar
Fra : Janus Klok Lauritsen


Dato : 19-03-02 16:59

Der er en eller anden datatype der ikke kan sammenlignes med det du sender
med fra ASP og lur mig om det ikke skulle være 'True'. Det ser ud til du
kører med dansk access, så måske skal den være 'ja' eller også kunne det
være du skal bruge 1 og 0 (1 er true).
Held og lykke.
Janus
"Sandra" <studiner2002@yahoo.dk> wrote in message
news:a76tv8$ec6$1@sunsite.dk...
> Hej Kaj,
>
> Tak for foreslaget, hvis jeg kører det for jeg dog fejlmeddelsen:
>
> Fejltype:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
> [Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens
i
> kriterieudtrykket.
> /funktionalitet.asp, line 27
>
> linie 27: set pt=Conn.Execute(P)



Sandra (20-03-2002)
Kommentar
Fra : Sandra


Dato : 20-03-02 12:58

Hmm.. nu har jeg leget lidt med det og fundet ud af, at det ikke er datatypen
der er noget galt med, men simpelthen fordi den ikke ved hvad "Hjemme" er.

Den tager tr("ButiksID") og rs("VareID") fra de andre sætninger, men ved ikke
hvad Hjemme er fordi, den ikke kan finde ud af at compile sætningen med
"count(*) as myHome "-delen.

Ps= "Select * from " & tr("ButiksID") & " where VareID='" & rs("VareID") & "'"
Pb = "Select count(*) as myHome from " & tr("ButiksID") & " where VareID='" &
rs("VareID") & "'"
set qt=Conn.Execute(Ps)
set pt=Conn.Execute(Pb)

response.write qt("VareID") kan den godt skrive ud (Ps-sætningen), men
response.write qt("VareID") kan giver fejlmeddelse (Pb-sætningen).

Så det er altså count(*) as myHome, den er galt med, men der er da skrevet
rigtigt er den ikke?

Sandra


--
KONKURRENCE PÅ HTML.dk:
fortæl hvordan din drømmeeditor ser ud
og vind luksus webhoteller fra Wannafind
KLIK HER! => http://www.html.dk/editor

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

Månedens bedste
Årets bedste
Sidste års bedste