---

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

---

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

---

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

---

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)

---

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