---

Hej,

Jeg er ved at lave et film reservations system, og har fået lavet
en søgefunktion der udskriver søgeresultaterne. Men hvordan kan
jeg gøre så brugeren kan vælge de forskellige søgeresultater ud
som de vil reservere? Jeg kan ikke lige gennemskue det, håber der
er nogen der kan hjælpe.

Koden til søgefunktionen er:

<%
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)


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;"
& "<b>Antal i alt:</b>" & " " & rs("Antal total") &
"&nbsp;&nbsp;&nbsp;" & "<b>Antal hjemme: </b>" & " " & rs("På
hylde") & "<br>"
rs.MoveNext

Loop While Not rs.EOF

Else

Session("search") = "Nej"
Session.Timeout = 30
Response.write "<h4><font COLOR=mediumblue face=verdana>Søgningen
gav intet resultat </font></h4>"
Response.write "<p><a href='res004.asp'>Ny Søgning</a></p>"

End If
Conn.Close: set conn = Nothing

%>

MVH Sandra

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

---

Sandra wrote in news:a62ejl$99b$1@sunsite.dk:

> Jeg er ved at lave et film reservations system, og har fået lavet
> en søgefunktion der udskriver søgeresultaterne. Men hvordan kan
> jeg gøre så brugeren kan vælge de forskellige søgeresultater ud
> som de vil reservere? Jeg kan ikke lige gennemskue det, håber der
> er nogen der kan hjælpe.
>
> <%
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath("VDB.mdb")
> Conn.Open DSN
>

jeg kan se, at du fik det til at virke med DSN-less forbindelse :)

> strSQL = "Select * from Sortiment where Titel = '" &

jeg vil foreslå, at du ikke anvender *-angivelsen ved udtræk fra din
database. Hvis du eksplicit nævner dine felter i din SQL-streng, så
kan du i koden se, hvilke felter du henter ud. Så skal du ikke først
have fat i din tabel for at se, hvilke felter du kan lege med :)

Jeg vil også foreslå, at du i din database - hvis du ikke allerede
har et sådant - laver et unikt ID for hver række. Dette ID kan du
nemlig få brug for, når du skal referere til en bestemt række i din
tabel.

Metoden til det du gerne vil er følgende:

Læg ind udskrift af rækker ind i en form. For hver række du udskriver,
laver du en checkbox, der har det unikke ID for den enkelte række som
værdi.

Dvs noget a'la dette:

<form ...>
   <%
   If rs.eof = False then
       Do
           response.write rs("Field1") & " " & rs("field2") &_
           " <input type='checkbox' name='resFilm'" &_
           " value='" & rs("ID") & "'/>"
       rs.MoveNext
       Loop While Not rs.EOF
   end if
   %>
<input type='submit'>
</form>

Så vil det give som resultat:

Film1 Year1 <input type='checkbox' name='resFilm' value='3432' />
Film2 Year2 <input type='checkbox' name='resFilm' value='3466' />
Film3 Year3 <input type='checkbox' name='resFilm' value='8685' />

Når du så submitter din form, så vil de valgte film kunne hentes i komma-
separeret form med

request.form("resFilm")

--
Jesper Stocholm
http://stocholm.dk
http://asp.stocholm.dk
Svar til gruppen og ikke til mig privat pr. email :|

---

Hej igen,

Hvad skal være "action" så være inden i formen?

<form method="post" action="???"> <--- ??
<%
If rs.eof = False then
Do
response.write rs("VareID") & " " & rs("Kategori") &_
" <input type='checkbox' name='resFilm'" &_
" value='" & rs("nr") & "'/>"
rs.MoveNext
Loop While Not rs.EOF

end if
%>

<input type='submit'>
</form>

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 <studiner2002@yahoo.dk> wrote in news:a64nvc$p9g$1@sunsite.dk:

> Hej igen,
>
> Hvad skal være "action" så være inden i formen?
>
><form method="post" action="???"> <--- ??

din action vælger du så en eller anden ny ASP-fil, hvori du så kan lave
de videre manipulationer med dine data. Hvis den fx hedder filmRes.asp,
så vil den kode du behøver nogenlunde se således ud:

<%@Language=VBScript%>
<%
   option explicit
   dim strFilms
   strFilms = request.form("resFilm") <-- navnet på dine checkboxe.
%>

Du kan så lave det mere avanceret med udskrift til brugeren. Du vil få
dine data således fra dit request-object:

523, 352, 346, 63

<%
   dim arFilms
   dim i
   response.write "Du vil reservere følgende:<br>"
   arFilms = split(strFilms,", ")
   for i = 0 to ubound(arFilms)
       response.write arFilms(i) & "<br>"
   next
%>

:)

--
Jesper Stocholm
http://stocholm.dk

---

Jeps, det funger :)

Endnu engang tak for hjælpen..



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