Tjenare!!

Jag fick hjälp tidigare med denna funktion och nu skulle jag behöva hjälp med att utveckla den lite. Tanken är att jag ska kunna använda den vid tre olika tillfällen på en dag. Då behöver jag kunna plocka ut tre olika bakgrundsfärger i samma funktion. Är detta möjligt?? Har provat att gör som följer men det funkar inte riktigt.

<code>
Function vardag
Dim varDate

If IsDate(Request.Querystring("date")) then
varDate = CDate(Request.Querystring("date"))
Select Case Weekday(CDate(varDate),vbMonday)
Case 1, 2, 3, 4, 5
formiddag=Response.Write "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CACACA'>"
eftermiddag=Response.Write "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='ACACAC'>"
kvall=Response.Write "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CCCCCC'>"
End select
End If

End function
</code>

Tackar på förhand

En funktion skall returnera någonting och då gör du enligt följande:

<%
Function vardag
Dim varDate

If IsDate(Request.Querystring("date")) then
varDate = CDate(Request.Querystring("date"))
Select Case Weekday(CDate(varDate),vbMonday)
Case 1, 2, 3, 4, 5
svar= "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CACACA'>"
svar="<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='ACACAC'>"
svar="<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CCCCCC'>"
End select

vardag = Svar

End If

End function
%>

Sedan i din asp-kod

<%
Response.Write Vardag
%>

Men om jag vill att den ska returnera tre olika värden hur bär jag mig åt då??
Ungefär så här menar jag:
<code>
<%
Function vardag
Dim varDate, svar1, svar2, svar3, formiddag, eftermiddag, kvall

If IsDate(Request.Querystring("date")) then
varDate = CDate(Request.Querystring("date"))
Select Case Weekday(CDate(varDate),vbMonday)
Case 1, 2, 3, 4, 5
svar1= "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CACACA'>"
svar2="<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='ACACAC'>"
svar3="<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CCCCCC'>"
End select

Formiddag = Svar1
Eftermiddag = Svar2
Kvall = Svar3

End If

End function
%>
<%'Vill kunna anropa så här ungefär
Response.Write Vardag(formiddag)
Response.Write Vardag(eftermiddag)
Response.Write Vardag(kvall)
%>
</code>

<code>
<%
Const Formiddag = 1
Const Eftermiddag = 2
Const Kvall = 3


Function Vardag(Value)
Dim varDate
If IsDate(Request.Querystring("date")) then
varDate = CDate(Request.Querystring("date"))
Select Case Weekday(CDate(varDate),vbMonday)
Case 1, 2, 3, 4, 5
Select Case Value
Case Formiddag
Vardag = "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CACACA'>"
Case Eftermiddag
Vardag = "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='ACACAC'>"
Case Kvall
Vardag = "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CCCCCC'>"
End Select
End Select
End If
End function

'Anropa så här

Response.Write Vardag(formiddag)
Response.Write Vardag(eftermiddag)
Response.Write Vardag(kvall)

%>

Tror att jag provat det mesta nu, men jag kan inte få den att skriva ut strängarna. Får dock inga felmeddelanden så funktionen fungerar men den skriver inte ut.

Kontrollera värdena. Lagt till elssatser:
<code>
<%
Const Formiddag = 1
Const Eftermiddag = 2
Const Kvall = 3


Function Vardag(Value)
Dim varDate
If IsDate(Request.Querystring("date")) then
varDate = CDate(Request.Querystring("date"))
Select Case Weekday(CDate(varDate),vbMonday)
Case 1, 2, 3, 4, 5
Select Case Value
Case Formiddag
Vardag = "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CACACA'>"
Case Eftermiddag
Vardag = "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='ACACAC'>"
Case Kvall
Vardag = "<TR><TD ALIGN='CENTER' HEIGHT='14' WIDTH='45' BGCOLOR='CCCCCC'>"
Case Else
Vardag = "Value är: " & Value
End Select
Case Else
Vardag = "Weekday är: " & Weekday(CDate(varDate),vbMonday)
End Select
End If
End function

'Anropa så här

Response.Write Vardag(formiddag)
Response.Write Vardag(eftermiddag)
Response.Write Vardag(kvall)

%>
</code>

Jepp, där fungerade den. Som vanligt tackar jag mjukast, men vad är skillnaden på dom olika versionerna.