Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Tipstecken.

Postades av 2002-06-11 19:45:42 - Marcus Brunzell, i forum asp - allmänt, Tråden har 9 Kommentarer och lästs av 845 personer

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


Svara

Sv: Tipstecken.

Postades av 2002-06-11 21:16:00 - Andreas Hillqvist

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>


Svara

Sv: Tipstecken.

Postades av 2002-06-11 23:43:28 - Marcus Brunzell

Får detta fel meddelandet:

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

Mvh Marcus


Svara

Sv: Tipstecken.

Postades av 2002-07-16 16:38:25 - Marcus Brunzell

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


Svara

Sv: Tipstecken.

Postades av 2002-07-16 17:22:00 - Ulf Elfving

<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>


Svara

Sv: Tipstecken.

Postades av 2002-07-17 00:09:33 - Marcus Brunzell

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

Mvh bruze


Svara

Sv: Tipstecken.

Postades av 2002-07-17 02:12:09 - Patrik Andersson

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


Svara

Sv: Tipstecken.

Postades av 2002-07-17 11:30:30 - Marcus Brunzell

Det vill sig ändå inte...

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

Mvh Marcus


Svara

Sv: Tipstecken.

Postades av 2002-07-17 12:31:15 - Patrik Andersson

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

//Putte


Svara

Sv: Tipstecken.

Postades av 2002-07-17 12:50:26 - Andreas Hillqvist

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>


Svara

Nyligen

  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 915
27 965
271 779
9 298
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies