$fld; } mysql_free_result($res); return $retval; } function ExecSql($sql) { $retval = ''; $res = mysql_query($sql); // mysql_free_result($res); return $retval; } function GetSiteStats() { $s=''; $s.=' '; $s.=''; $s.=''; $s.=''; $s.=''; $s.=''; $s.=''; $s.='
information
'; $s.='Antal besökare:'; $s.=''.GetFieldValue('SELECT SUM(READCOUNT) as QTY FROM PROGRAMS','QTY').' st
'; $s.='Antal nedladdningar:'; $s.=''.GetFieldValue('SELECT SUM(DOWNLOADCOUNT) as QTY FROM PROGRAMS','QTY').' st
'; $s.='Antal registrerade:'; $s.=''.GetFieldValue('SELECT COUNT(IDX) as QTY FROM REGISTRANTS','QTY').' st
'; $s.='Senast registrerade:'; $p=GetFieldValue("SELECT DATE_FORMAT(PAYMENTDATE,'%Y-%m-%d') as DAT FROM REGISTRANTS ORDER BY IDX DESC LIMIT 0,1","DAT"); $s.=''.$p.'
'; $s.='Senast köpt:'; $s.=''.GetFieldValue('SELECT PROGRAMNAME as NAM FROM REGISTRANTS ORDER BY IDX DESC LIMIT 0,1','NAM').'
'; return $s; } function getnewest() { //$s = GetFieldValue('select max(PROGRAMID) as antal from PROGRAMS', 'antal'); //$i = $s - 10; $sql = "SELECT * FROM PROGRAMS ORDER BY PROGRAMID DESC LIMIT 0,10"; $res = mysql_query($sql); $tbl = ''; $tbl.=''; while ($rec = mysql_fetch_object($res)) { $tbl.= ''; $tbl.= ''; $tbl.= ''; $tbl.= ''; } $tbl.= '
'.Getsitestats().'

'.$rec->PROGRAMNAME.'

'.$rec->SHORTDESCRIPTION.'
Läs mer  Ladda hem  Köp
'; return $tbl; mysql_free_result($res); } function ShowPaymentOptionsBox() { return '
Betalsätt
'; } function ShowPicturesBox($progid) { $tbl='
Bilder
'; $sql = 'select * from SCREENSHOTS WHERE PROGRAMID='.$progid; $i=0; $res = mysql_query($sql); while ($rec = mysql_fetch_object($res)) { $tbl.=''; $tbl.='
'; $i++; } mysql_free_result($res); $tbl.='
'; if ($i!==0) { return $tbl; } else { return ''; } } function ShowProgramOptions($progid) { $sql = "SELECT * FROM PROGRAMS WHERE PROGRAMID=".$progid; $res = mysql_query($sql); $retval = ''; if ($rec = mysql_fetch_object($res)) { $retval.='
Vad vill du göra?

'; $retval.='
  • Ladda hem '.$rec->PROGRAMNAME.'
    • '; $retval.='
  • Köp '.$rec->PROGRAMNAME.'
    • '; $retval.='
    '; } mysql_free_result($res); return $retval; } function GetPaymentInfo($progid, $rec) { if ($rec->PRICE > 0) { $str = '

    '; $str.= 'Betala med kort/internetbank
    '; $str.= 'Nu kan du enkelt och snabbt betala med din internetbank. Betalningen genomförs omedelbart och upplåsningskoden får du automatiskt efter utförd betalning. '; $str.= 'Du kan också betala med de vanligaste kreditkorten, och även då får du din upplåsningskod inom några minuter. '; $str.= 'Klicka på länken nedan för att snabbt och smärtfritt få din upplåsningskod
    '; $str.= 'Betala med kort/internetbank ('.$rec->PRICE.' SEK) '; $str.= '

    '; $str.= '

    '; $str.= 'Betala med SMS
    '; $str.= 'Skicka ett SMS med texten "REGGA '.$rec->PROGRAMCODE.'" * till nummret 72550. (utan citationstecken)
    '; $str.= ' Efter ett litet tag får du ett svars-sms med en upplåsningskod som du anger i programmet.'; $str.= '
    * Meddelandet kostar '.$rec->PRICE.' SEK + ev. trafikavgifter.'; $str.= '

    '; } return $str; } function getprogram($progid) { $i = $s - 10; $sql = "SELECT * FROM PROGRAMS WHERE PROGRAMID=".$progid; $res = mysql_query($sql); $tbl = ''; while ($rec = mysql_fetch_object($res)) { $tbl.=""; $tbl.=''; $tbl.=''; $tbl.="'; } $tbl.= '
    ".$rec->PROGRAMNAME."
    '.$rec->LONGDESCRIPTION; //------------infobox $tbl.=GetPaymentInfo($progid, $rec); //------------infobox $tbl.='



    '; $tbl.=''; //$tbl.=''; $tbl.=''; $tbl.=''; $tbl.=''; $tbl.=''; $tbl.='
    '.$rec->PROGRAMNAME.'
    Version
    		'.$rec->PROGRAMVERSION.'
    Pris
    		'.$rec->PRICE.' SEK
    Nedladdat
    		'.$rec->DOWNLOADCOUNT.' ggr
    Läst
    		'.$rec->READCOUNT.' ggr

    '; //------------infobox $tbl.='    		'; $tbl.=ShowProgramOptions($progid); $tbl.='
    '; $tbl.=ShowPicturesBox($progid); $tbl.='
    '; $tbl.=ShowPaymentOptionsBox(); $tbl.='
    "; $tbl.='
    '; execSql("UPDATE PROGRAMS SET READCOUNT=READCOUNT+1 WHERE PROGRAMID=".$progid); mysql_free_result($res); return $tbl; } function getmenu($current) { $sql = " SELECT PROGRAMID, PROGRAMNAME FROM PROGRAMS WHERE (CURDATE() >= VALIDFROM AND CURDATE()<=VALIDTO) OR (VALIDTO IS NULL) ORDER BY MENUORDER"; $res = mysql_query($sql); $retval=''; if ($current=='') { $currstr = '>> '; } $retval = $retval.'  '.$currstr.'Första sidan
    '; while ($rec = mysql_fetch_object($res)) { if ($current==$rec->PROGRAMID) { $currstr='>> '; } else {$currstr='';} $retval = $retval.'  '.$currstr.''.$rec->PROGRAMNAME.'
    '; } mysql_free_result($res); return $retval; } ?> Soft.Enkeladress.Com

      Epost

      EnkelAdress.se

      Programbank.se
    Vi publicerar numer alla våra program hos Programbank.se". '

    Hos Programbank Kan du numer hitta alla möjliga sorters shareware och freeware.

    '. '

    Vi väljer att publicera alla våra program hos dem i fortsättningen då sajten erbjuder en flexibel plattform för att presentera plattformsoberoende applikationer på ett snyggt sätt.

    '. '

    Gå till Programbank.se.

    '. getnewest(); } else { $str = GetProgram($p); } print $str; ?>