Jag har en kalender i databasen, och så vill jag att användare skall kunna klicka på olika datum som lägger sig i deras profil. Så man kan se vilka datum dom skall göra någet speciellt på. I almenacka finns det bara datum/tillfällen som redan är inlagda.

Jag gjorde så att ja skapade datum i databasen, där ja la lagid & tavid. Så den vet då bådas id. Min tanke är att lägga en kryss ruta efter varje händelse som varje person kan kryssa i o sen spara. Men hur får jag det att funka, att det känner av vilka datum man har prickat in??

här e koden ja försökt göra.

<%
SET RStemp = MinCon.Execute("SELECT * FROM kalender ORDER BY datum_sort")
Do While NOT RStemp.EOF
Set RS=MinCon.Execute("Select id,lagid,tavid From pb_lag_tavlingar Where lagid='" & Request.QueryString("lag") & "' order by id DESC")
%>

<TR onMouseOut="this.style.backgroundColor='';" onMouseOver="this.style.backgroundColor='#EBFCEC';" bgcolor="#FFFFFF">
<TD WIDTH="133" HEIGHT="20"><FONT SIZE="1" face="Verdana"><IMG SRC="../bilder/x.gif" WIDTH="4">" TARGET="info"> <%=add(RStemp("tavling"))%></TD>
<TD WIDTH="120" HEIGHT="20"><FONT SIZE="1" face="Verdana"><%=RStemp("datum")%></TD>
<TD WIDTH="100" HEIGHT="20"><FONT SIZE="1" face="Verdana"><%=RStemp("ort")%></TD>
<TD WIDTH="68" HEIGHT="20"><FONT SIZE="1" face="Verdana"><%=RStemp("land")%></TD>
<TD WIDTH="92" HEIGHT="20">
<form method="POST" action="--WEBBOT-SELF--">
<p>
&tavid=<%=RStemp("id")%>" onClick="return confirm('Vill du verkligen lägga till?');">Lägg till</b></b> </p>
<%If RS("tavid") = RStemp("ID") Then%>
hej
<%end if%>
</TD>
</TR>

<TR>
<TD HEIGHT="1" BACKGROUND="../bilder/streck_2.gif" COLSPAN="5"></TD>
</TR>

<%
RStemp.MoveNext
Loop
%>

JAg rekomenderar dig att använda CSS.

<%
Function SQLText(Value)
   If Len(Value) > 0 Then
       SQLText = "'" & Replace(Value, "'", "''") & "'"
   Else
       SQLText = "Null"
   End If
End Function 

    lagid = Request.QueryString("lag")
    strSQL = "SELECT kalender.ID, kalender.tavling, kalender.datum, (pb_lag_tavlingar.ID Is Not Null) AS Selected" & vbCrLf & _
             "FROM kalender LEFT JOIN " & vbCrLf & _
             "    pb_lag_tavlingar ON (kalender.ID = pb_lag_tavlingar.tavid) AND ("  & SQLText(lagid) & " = pb_lag_tavlingar.lagid)" & vbCrLf & _
             "ORDER BY datum_sort"

    Set rs = MinCon.Execute(strSQL)

    Do Until RStemp.EOF
%>
<TR>
<TD>" TARGET="info"> <%=Ser ver.HTMLEncode(rs("tavling"))%></TD>
<TD><%=Server.HTMLEncode(rs("datum"))%></TD>
<TD><%=Server.HTMLEncode(Rs("ort"))%></TD>
<TD><%=Server.HTMLEncode("land"))%></TD>
<TD>
<%
        If rs("Selected") Then
%>
" >Ta bort</TD>
</TR>
<%
        Else
%>
" >Lägg till</TD>
</TR>
<%
        End If
        rs.MoveNext
    Loop
    rs.Close
%> 

jag har lagt in koden, och när jag försökte öppna så står den o laddar sidan skit länge! va kan vara fel? kommer aldrig in.