Sv: Datum och kalender fråga

Datum och kalender fråga

Postades av 2003-06-24 11:03:49 - Niclas Silverstolpe, i forum asp - allmänt, Tråden har 6 Kommentarer och lästs av 482 personer

Försöker att göra en enkel kalender med bokningsfunktion. Försöker göra en funktion som automatiskt visar aktuell månad, men även att man kan välja månad i "FAST_SELECT" funktionen. Men jag får inte detta att funka.





<FORM NAME="FAST_SELECT" ACTION="visa2.asp" METHOD="GET">

<SELECT NAME="month" onChange="javascript:document.FAST_SELECT.submit();">

<%
For i = 1 to 12
Response.Write("<OPTION ")
if (i = month(Date)) then
Response.Write("SELECTED ")
end if
Response.Write("VALUE=""" & i & """>" & MonthName(i) & vbNewLine)
next
%>
</SELECT>
</FORM>

<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM kalender2003 WHERE manad = '"&Trim(Request.Form("FAST_SELECT"))&"' order by dag"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%>

<table width="782" border="1" cellspacing="1" cellpadding="1">
<tr bgcolor="#CCCCFF">
<td width="27"><font size="2" face="Arial, Helvetica, sans-serif"> dag</font></td>
<td width="176"><font size="2" face="Arial, Helvetica, sans-serif">Stora konf.
rum plan 3</font></td>
<td width="168"><font size="2" face="Arial, Helvetica, sans-serif">Lilla konf.
rum</font></td>
<td width="173"><font size="2" face="Arial, Helvetica, sans-serif">Bärbar
PC</font></td>
<td width="210"><font size="2" face="Arial, Helvetica, sans-serif">Projektor</font></td>
</tr>
<% Do Until RecSet.EOF %>
<tr>
<td> <font size="2" face="Arial, Helvetica, sans-serif">
<% =RecSet("dag") %>/<% =RecSet("manad") %>
</font></td>
<td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif"><b> " ></b> 
<% =RecSet("rum1") %>
<br>
</font></td>
<td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif"><b>" >
</b>
<% =RecSet("rum2") %>
</font></td>
<td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif"><b>" ></b>
<% =RecSet("pc") %>
</font></td>
<td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif"><b>" ></b>
<% =RecSet("projektor") %>
</font></td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
%>

Svara

Sv: Datum och kalender fråga

Postades av 2003-06-24 11:43:56 - Andreas Hillqvist

Du kan testa med:
<code>
<FORM NAME="FAST_SELECT" ACTION="visa2.asp" METHOD="GET">
<SELECT NAME="month" onChange="javascript:document.FAST_SELECT.submit();">
<%
Dim CurrentMonth
Dim MonthOptions
CurrentMonth = Month(Date())
MonthOptions = "<OPTION value=""1"">Januari</OPTION>" & vbCrLf & _
"<OPTION value=""2"">Februari</OPTION>" & vbCrLf & _
"<OPTION value=""3"">Mars</OPTION>" & vbCrLf & _
"<OPTION value=""4"">April</OPTION>" & vbCrLf & _
"<OPTION value=""5"">Maj</OPTION>" & vbCrLf & _
"<OPTION value=""6"">Juni</OPTION>" & vbCrLf & _
"<OPTION value=""7"">Juli</OPTION>" & vbCrLf & _
"<OPTION value=""8"">Augusti</OPTION>" & vbCrLf & _
"<OPTION value=""9"">September</OPTION>" & vbCrLf & _
"<OPTION value=""10"">Oktober</OPTION>" & vbCrLf & _
"<OPTION value=""11"">November</OPTION>" & vbCrLf & _
"<OPTION value=""12"">December</OPTION>"
Response.Write Replace(MonthOptions, "value=""" & CurrentMonth & """", "value=""" & CurrentMonth & """ selected")
%>
</SELECT>
</FORM>
</code>

Svara

Sv: Datum och kalender fråga

Postades av 2003-06-24 11:58:13 - Niclas Silverstolpe

Hur plockar jag då den valad månaden och lägger din i min Connect sats? Nu laddas sidan men utan resultat.

Frågan är om jag kan skriva
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM kalender2003 WHERE manad = '"&Trim(Request.Form("FAST_SELECT"))&"' order by dag"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%>

och att den då kan plocka info från formuläret ovan ? Nu laddas sidan utan utan fel och utan att någon information hämtas från databasen.

Svara

Sv: Datum och kalender fråga

Postades av 2003-06-24 21:30:48 - Andreas Hillqvist

Om du vill ha mer komplett kod:
<code>




<FORM NAME="FAST_SELECT" ACTION="" METHOD="GET">
<SELECT NAME="month" onChange="javascript:document.FAST_SELECT.submit();">
<%
Dim CurrentMonth
Dim MonthOptions
CurrentMonth = Trim(Request.QueryString("month"))
Select Case CurrentMonth
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"
Case Else
CurrentMonth = Month(Date())
End Select
MonthOptions = "<OPTION value=""1"">Januari</OPTION>" & vbCrLf & _
"<OPTION value=""2"">Februari</OPTION>" & vbCrLf & _
"<OPTION value=""3"">Mars</OPTION>" & vbCrLf & _
"<OPTION value=""4"">April</OPTION>" & vbCrLf & _
"<OPTION value=""5"">Maj</OPTION>" & vbCrLf & _
"<OPTION value=""6"">Juni</OPTION>" & vbCrLf & _
"<OPTION value=""7"">Juli</OPTION>" & vbCrLf & _
"<OPTION value=""8"">Augusti</OPTION>" & vbCrLf & _
"<OPTION value=""9"">September</OPTION>" & vbCrLf & _
"<OPTION value=""10"">Oktober</OPTION>" & vbCrLf & _
"<OPTION value=""11"">November</OPTION>" & vbCrLf & _
"<OPTION value=""12"">December</OPTION>"
Response.Write Replace(MonthOptions, "value=""" & CurrentMonth & """", "value=""" & CurrentMonth & """ selected")
%>
</SELECT>
</FORM>
<table width="782" border="1" cellspacing="1" cellpadding="1">
<tr bgcolor="#CCCCFF">
<td width="27"><font size="2" face="Arial, Helvetica, sans-serif"> dag</font></td>
<td width="176"><font size="2" face="Arial, Helvetica, sans-serif">Stora konf.
rum plan 3</font></td>
<td width="168"><font size="2" face="Arial, Helvetica, sans-serif">Lilla konf.
rum</font></td>
<td width="173"><font size="2" face="Arial, Helvetica, sans-serif">Bärbar
PC</font></td>
<td width="210"><font size="2" face="Arial, Helvetica, sans-serif">Projektor</font></td>
</tr>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM kalender2003 WHERE manad = " & CurrentMonth & " ORDER BY dag"
RecSet.Open Visa, Connect
Do Until RecSet.EOF
%>
<tr>
<td> <font size="2" face="Arial, Helvetica, sans-serif">
<% =RecSet("dag") %>/<% =RecSet("manad") %>
</font></td>
<td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif"> " > 
<% =RecSet("rum1") %>
<br>
</font></td>
<td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif">" >

<% =RecSet("rum2") %>
</font></td>
<td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif">" >
<% =RecSet("pc") %>
</font></td>
<td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif">" >
<% =RecSet("projektor") %>
</font></td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
%>
</code>

Svara

Sv: Datum och kalender fråga

Postades av 2003-06-25 08:56:49 - Niclas Silverstolpe

Tack för hjälpen än en gång Anders. tyvärr så kommer detta upp, har du en bra lösning? Ska försöka göra någonting själv. Men som sagt Tack!

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/db/boka/visa3.asp, line 48

Svara

Sv: Datum och kalender fråga

Postades av 2003-06-25 11:03:52 - Terje Isaksen

Hej,

Jag gissar på att du har manad som textfält i din tabell och därför
använd samma SQL som du hade själv:

Visa = "SELECT * FROM kalender2003 WHERE manad = '"&Trim(Request.Form("FAST_SELECT"))&"' order by dag"

/Terje

Svara

Sv: Datum och kalender fråga

Postades av 2003-06-25 12:02:04 - Andreas Hillqvist

Vilka datatyper har du för månadsfältet. Tal bör lagras som tal. Vilket är snabbare att jämföra än strängar.

Svara

Datum och kalender fråga

Sv: Datum och kalender fråga

Sv: Datum och kalender fråga

Sv: Datum och kalender fråga

Sv: Datum och kalender fråga

Sv: Datum och kalender fråga

Sv: Datum och kalender fråga

Nyligen

Sidor

Statistik

Kontakta oss