---

Kan ikke lige gennemskue mit problem, så jeg kaster den lige ud i æteren.

Jeg har to comboboxe, som henter data i en MySQL-DB - så langt så godt.

Men når jeg vælger de emner jeg ønsker og klikker på submit-knappen sker der
ikke en hatfis

Jeg prøver at få vist værdien, ud fra boxen's navn, men nix - virker ikke.
(jeg har haft det kørende på en ACC2K-DB, hvor det virkede og har nu smidt
det over i en MySQL og ændret lidt på forbindelsen via ODBC - men det er
også det hele.)

Det er som om at værdien i comboboxen ikke læses - I den nederste del, hvor
jeg laver check på om der er valgt en person i CB-boxen vil den hænge, hvis
jeg fjerner IF-sætningen eller f.eks. ændrer det til RSInit = " " eller <>
""

Er der en der kan gennemskue mit problem

--------------
dim adoConn
dim RSInit
dim RSDate

set adoConn = Server.CreateObject("ADODB.Connection")
set RSInit = server.createobject("adodb.recordset")
set RSDate = server.createobject("adodb.recordset")

adoConn.Open "DSN=skema"
RSInit.ActiveConnection = adoConn
.......
SQL-Sætninger til Comboxe......bla.bla
.......
<% DropDownInit=request.form("DropDownInit") %>
<form action="<%= request.servervariables("script_name") %>" method="post">
<Select name="DropDownInit" size="1">
<% do while Not RSInit.EOF %>
<option value="<% = RSInit("m-meda_id") %>"> <%= RSInit("initialer") %> -
<%=RSInit("efternavn")%>, <% = RSInit("fornavn") %></option>
<% RSInit.movenext %>
<% loop %></Select>

<% DropDownDate=request.form("DropDownDate") %>
<form action="<%= request.servervariables("script_name") %>" method="post">
<Select name="DropDownDate" size="1">
<% do while Not RSDate.EOF %>
<option value="<% = RSDate("STARTDATO") %>"> <%=
RSDate("VISNINGSFORMAT_UGE")%></option>
<% RSDate.movenext %>
<% loop %></Select><br>


<input type="submit" value="Vis Skema">
</form>
</form>

</p>

<% if DropDownInit = "" then %>
Vælg den bruger du ønsker at skema for<br>
<% else %>
<%= dropdowninit %> er den valgte bruger.<BR>

<%= DropDownDate %> er første dag i den valgte uge<BR>
<% end if %>

---

Nå er kommet lidt videre i fejlfindingen.

Jeg har fundet frem til hvor koden kommer til at hænge. Efter jeg har lavet
SQL-sætning der henter data i DB'en skal de vises på web-siden med følgende
kode.
Det er så i løkken den hænger, men hvorfor den gør dette er mig virkelig en
gåde, når det virkede på min Access-DB og ikke i MySQL-DB'en

Håber stadig der sidder en venlig sjæl derude.
----
<%
dim rs
dim conn

set Conn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("adodb.recordset")

Conn.Open "DSN=skema"

sql = "SELECT [tblskema].[ansettelsesforhold_meda_id],
[tblskema].[skemabegivenheder_dato],
[tblskema].[skemabegivenheder_lektionsnr], [tblskolefag].[kort_betegnelse],
[tblaktiviteter].[aktivitet], [tblskema].[skemabegivenheder_starttid],
[tblskema].[skemabegivenheder_sluttid], [tbllokaler].[loka_lokalenr] FROM
tblskolefag INNER JOIN (tbllokaler INNER JOIN (tblaktiviteter INNER JOIN
tblskema ON [tblaktiviteter].[akti_id]=[tblskema].[aktiviteter_akti_id]) ON
[tbllokaler].[loka_loka_id]=[tblskema].[lokaler_loka_id]) ON
[tblskolefag].[skfa_id]=[tblskema].[skolefag_skfa_id] WHERE
((([tblskema].[ansettelsesforhold_meda_id])='369') ORDER BY
tblskema.skemabegivenheder_dato, tblskema.skemabegivenheder_lektionsnr"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

----------------------------------------------------------------------------
----------------------------------------------------------
''''''''''''''''''''''' DET ER HER DEN HÆNGER - Hvis jeg fjerner løkken
løber koden færdig, men der bliver ikke vist nogen data. '''''''''''''
----------------------------------------------------------------------------
----------------------------------------------------------
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("ansettelsesforhold_meda_id").V
alue)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("skemabegivenheder_dato").Value
)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("skemabegivenheder_lektionsnr")
..Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("kort_betegnelse").Value)%><BR>
</FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("aktivitet").Value)%><BR></FONT
></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("skemabegivenheder_starttid").V
alue)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("skemabegivenheder_sluttid").Va
lue)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("loka_lokalenr").Value)%><BR></
FONT></TD>


</TR>
<%
rs.MoveNext
loop%>

---

"Jørgen Staun" <js@thor.hgmf.dk> skrev i en meddelelse
news:3ddb9269$0$18437$edfadb0f@dread12.news.tele.dk...
> --------------------------------------------------------------------------
--
> ----------------------------------------------------------
> ''''''''''''''''''''''' DET ER HER DEN HÆNGER - Hvis jeg fjerner løkken
> løber koden færdig, men der bliver ikke vist nogen data. '''''''''''''
> --------------------------------------------------------------------------
--
> ----------------------------------------------------------
> <%
> On Error Resume Next
> rs.MoveFirst
> do while Not rs.eof
> %>
> <TR VALIGN=TOP>
> <TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
>
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("ansettelsesforhold_meda_id").V
> alue)%><BR></FONT></TD>
> <TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=2 FACE="Arial"
>
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("skemabegivenheder_dato").Value
> )%><BR></FONT></TD>
> <TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=2 FACE="Arial"
>
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("skemabegivenheder_lektionsnr")
> .Value)%><BR></FONT></TD>
> <TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
>
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("kort_betegnelse").Value)%><BR>
> </FONT></TD>
> <TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
>
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("aktivitet").Value)%><BR></FONT
> ></TD>
> <TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
>
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("skemabegivenheder_starttid").V
> alue)%><BR></FONT></TD>
> <TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
>
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("skemabegivenheder_sluttid").Va
> lue)%><BR></FONT></TD>
> <TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial"
>
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("loka_lokalenr").Value)%><BR></
> FONT></TD>
>
>
> </TR>
> <%
> rs.MoveNext
> loop%>
>

Prøv lige at fjerne rs.MoveFirst ( den er nu heller ikke nødvendig...)


Chrisser

---

Jørgen Staun skrev:

> On Error Resume Next

Prøv at fjerne (udkommentere) linjen herover.

> rs.MoveFirst

Det bør ikke være nødvendigt at indlede med en .movefirst. Prøv at
fjerne den også.


Ovenstående er mine forslag til at afhjælpe fejlen. Derudover har
jeg et par stilkommentarer til din kode (brug det efter behag).

<%=Server.HTMLEncode(rs.Fields("ansettelsesforhol
> d_meda_id").V alue)%>

rs.Fields("feltnavn").Value kan også skrives: rs("feltnavn").
Det er ikke nogen fejl at gøre det andet - det fylder bare mere.

Tilsvarende er der ikke grund til at lave server.htmlencode på
andet end tekstfelter.



> <TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=2 FACE="Arial"
> COLOR=#000000>

Endelig kan din html-kode optimeres en del hvis du benytter css i
stedet for direkte definerede egenskaber. Spørg i .html-gruppen
hvis du er interesseret.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Tak for hintene.
SNIP

> > On Error Resume Next
>
> Prøv at fjerne (udkommentere) linjen herover.
>
> > rs.MoveFirst
>
> Det bør ikke være nødvendigt at indlede med en .movefirst. Prøv at
> fjerne den også.
>
SNIP

Har prøvet men uden held

SNIP
> Ovenstående er mine forslag til at afhjælpe fejlen. Derudover har
> jeg et par stilkommentarer til din kode (brug det efter behag).
>
> <%=Server.HTMLEncode(rs.Fields("ansettelsesforhol
> > d_meda_id").V alue)%>
>
> rs.Fields("feltnavn").Value kan også skrives: rs("feltnavn").
> Det er ikke nogen fejl at gøre det andet - det fylder bare mere.
>
SNIP

Det vil jeg da også lige prøve, når jeg har fundet fejlen.

Har prøvet at køre min SQL-Sætning i hånden fra en MySQL-prompt og tror det
er her jeg har fået fejlen - læs indlæg

SQL-sætning fra ACC2K til MySQL