Hej igen!
Håller på med en tipskupong.
Tänkte att man kunde göra sa att tipstecknet skrivs ut efter resultaten.
Just nu ser det ut så här på tipset.asp:

<%=RecSet("ResultatFulltidHemmaLag")%>
- <%=RecSet("ResultatFulltidBortaLag")%>

Kan man inte göra nått sånt här:
IF ResultatFulltidHemmaLag > ResultatFulltidBortaLag
Tecken = 1

ELSE ResultatFulltidHemmaLag = ResultatFulltidBortaLag
Tecken = X

ELSE IF ELSE ResultatFulltidHemmaLag < ResultatFulltidBortaLag
Tecken = 2

Det som jag undar över för nu är ResultatFulltidHemmaLag och ResultatFulltidBortaLag är av datatypen "Text". Men det borde väl gå att koveratera om det till "Tal" på sidan.

Mvh Marcis

Testa:
<code>
<%
Function TipsChar(Home, Away)
Dim lngHome
Dim lngAway
IntHome = CLng(Home)
lngAway = CLng(Away)

Select Case IntHome
Case < lngAway
TipsChar = "2"
Case > lngAway
TipsChar = "1"
Case Else
TipsChar = "X"
End Select
End function

%>


<%=RecSet("ResultatFulltidHemmaLag")%> - <%=RecSet("ResultatFulltidBortaLag")%>

<%=TipsChar(RecSet("ResultatFulltidHemmaLag"), RecSet("ResultatFulltidBortaLag"))%>

</code>

Får detta fel meddelandet:

Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/wwwroot/tipset/tipset.asp, line 52
Function TipsChar(Home, Away)

Mvh Marcus

Försökte på en egen variant..

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\www\tipset.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From Matcher WHERE MatchID=2 AND MatchID=3 AND MatchID=4 AND MatchID=5 AND MatchID=7 AND ORDER BY Datum ASC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>

<%
Dim Tecken
IF cInt(ResultatFulltidHemmaLag) > cInt(ResultatFulltidBortaLag) Then
Tecken = "1"
IF cInt(ResultatFulltidHemmaLag) = cInt(ResultatFulltidBortaLag) Then
Tecken = "X"
IF cInt(ResultatFulltidHemmaLag) < cInt(ResultatFulltidBortaLag) Then
Tecken = "2"
%>

<%= Tecken %>

<%
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>

Får felmeddelande på raden "Set Connect = nothing".
"Kompileringsfel i Microsoft VBScript (0x800A03F6)
'End' förväntas."

Nån som ser vart jag gjort fel? Eller har några andra tips!

Mvh Marcus

<code>
IF cInt(ResultatFulltidHemmaLag) > cInt(ResultatFulltidBortaLag) Then
Tecken = "1"
End If
IF cInt(ResultatFulltidHemmaLag) = cInt(ResultatFulltidBortaLag) Then
Tecken = "X"
End If
IF cInt(ResultatFulltidHemmaLag) < cInt(ResultatFulltidBortaLag) Then
Tecken = "2"
End If

</code>

Funkade sådär... Alla tipstecknen blev X.

Mvh bruze

Detta funkar för mig. Moddade Andreas snygga lösning lite.

<code>
<%
Function TipsChar(Home, Away)
Dim lntHome
Dim lntAway
IntHome = CLng(Home)
lntAway = CLng(Away)

If IntHome < lntAway Then
TipsChar = "2"
End If
If IntHome > lntAway Then
TipsChar = "1"
End If
If IntHome = lntAway Then
TipsChar = "X"
End If
End function

response.write TipsChar(3, 1)
%>

</code>
//Putte

Det vill sig ändå inte...

Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/wwwroot/tipset/tipset.asp, line 57
Function TipsChar(Home, Away)

Mvh Marcus

kan du skicka med din kod så att man kan se hur du kallar på funktionen och vad du skickar in.

//Putte

Tackar för komplimangen. *Rodnar*<br>
<br>
Stödjer ASP ElseIf-Satser?
<code>
<%
Function TipsChar(Home, Away)
Dim lntHome
Dim lntAway

IntHome = CLng(Home)
lntAway = CLng(Away)

If IntHome < lntAway Then
TipsChar = "2"
ElseIf IntHome > lntAway Then
TipsChar = "1"
Else
TipsChar = "X"
End If
End function

response.write TipsChar(3, 1)
%>
</code>