XProfan

Rolf
Koch

Hi Georg,

one can I you directly betray:
Edits on pages own no Handles How You it under the Windowsprogrammierung know.
You can but by Method Get and Profans Query much achieve.
deference nachfolgender code is saualt and iF becomes me hopefully not killen, I To this Time with HTML not yet so plenty on the hat having.
here the uralte code.

Compile Mark Separation

declare query$,row$
declare user$, pass$, P1$,P2$,P3$,P4$,P5$,name$,p6$,p7$,p8$,p9$,p10$,p11$,extern$
declare u1$,u2$,u3$,u4$,u5$,u6$,u7$,u8$,u9$,u10$,u11$,namedate$,nametime$,namezeile$
declare P12$,u12$,P13$,u13$
def query(1) SubStr$(@$(1),2,=)
query$ = @GetEnv$(QUERY_STRING)           data from the Query reading, Method = GET

PROC AUSGABE

    *********** LOGDATEI *******************************
    Assign #2,C:Login.txt
    Append #2
    Print #2,USER  :,name$
    print #2,date:,@Date$ (1)
    print #2,Time  :,@time$ (0)
    print #2,***********************************
    CLOSE #2
    ****************************************************
    WriteIni E:Extern.ini,Login,name=name$
    let namedate$=ReadIni$ (C:Login.ini,name$,date)
    let nametime$=ReadIni$ (C:Login.ini,name$,Time)

    If @neq$(namedate$,)

        let Namezeile$=<center> Hello <B>,name$, - ,</B> You were on the,namedate$,circa,nametime$,watch lastly here! </center>

    Elseif @equ$(namedate$,)

        let Namezeile$=Hello <B>,name$

    EndIf

    print #1,Namezeile$
    here becomes a Dummydatei read = private.txt
    Assign #3,C:Homepage2000HeimserverPrivat.txt
    RESET #3

    WHILENOT @Eof (#3)

        input #3,row$
        print #1,row$

    wend

    CLOSE #3
    WriteIni C:Login.ini,name$,date=@date$(1)
    WriteIni C:Login.ini,name$,Time=@time$(0)

ENDPROC

Passwörter give away:
let user$ = query(substr$(query$,1,&))    first parameter reading
let pass$ = query(substr$(query$,2,&))    second parameter reading
Passwörter give away:
These could naturally plenty rather from of/ one
verschlüsselten File read go!!!
and instead of single variables rather:
Arrayvariablen!
let u1$=User1
let P1$=Tubbie
let u2$=User2
let P2$=SHAMAN
let u3$=User3
let P3$=salmon
let u4$=User4
let P4$=world
let u5$=User5
let P5$=Lenzegasse
let u6$=User6
let P6$=Zapatherm
let u7$=User7
let P7$=hero
let u8$=User8
let P8$=fish
let u9$=User9
let P9$=Nudel
let u10$=User10
let P10$=Senfdose
let u11$=User11
let P11$=Heidelbeer
let u12$=User12
let P12$=Nikolaus
let u13$=User13
let P13$=Hexe
********************************************
Assign #1,C:spending.htm                  spending preparing, which to
this Loginprogramm displayed becomes
many Opportunities
Rewrite #1
print #1,<html>
print #1,<BODY bgcolor=#0000aa></body>
print #1,<Font color=#ffffff>

If @and(@equ$(user$,u1$),@equ$(pass$,P1$))                   Password correctly. !

    name$=User1
    AUSGABE

ELSEIf @and(@equ$(user$,u2$),@equ$(pass$,P2$))                   Password correctly. !

    name$=User2
    AUSGABE

ELSEIf @and(@equ$(user$,u3$),@equ$(pass$,P3$))                   Password correctly. !

    name$=User3
    AUSGABE

ELSEIf @and(@equ$(user$,u4$),@equ$(pass$,P4$))                   Password correctly. !

    name$=User4
    AUSGABE

ELSEIf @and(@equ$(user$,u5$),@equ$(pass$,P5$))                   Password correctly. !

    name$=User5
    AUSGABE

ELSEIf @and(@equ$(user$,u6$),@equ$(pass$,P6$))                   Password correctly. !

    name$=User6
    AUSGABE

ELSEIf @and(@equ$(user$,u7$),@equ$(pass$,P7$))                   Password correctly. !

    name$=User7
    AUSGABE

ELSEIf @and(@equ$(user$,u8$),@equ$(pass$,P8$))                   Password correctly. !

    name$=User8
    AUSGABE

ELSEIf @and(@equ$(user$,u9$),@equ$(pass$,P9$))                   Password correctly. !

    name$=User9
    AUSGABE

ELSEIf @and(@equ$(user$,u10$),@equ$(pass$,P10$))                   Password correctly. !

    name$=User10
    AUSGABE

ELSEIf @and(@equ$(user$,u11$),@equ$(pass$,P11$))                   Password correctly. !

    name$=User11
    AUSGABE

ELSEIf @and(@equ$(user$,u12$),@equ$(pass$,P12$))                   Password correctly. !

    name$=User12
    AUSGABE

ELSEIf @and(@equ$(user$,u13$),@equ$(pass$,P13$))                   Password correctly. !

    name$=User13
    AUSGABE

ELSEIF @and(@equ$(pass$,),@equ$(user$,))

    print #1,
    print #1,<center>
    print #1,Please everything fill out!!!<BR>
    print #1,user$,pass$

ELSEIF @equ$(pass$,)

    print #1,
    print #1,<center>
    print #1,no Password association!!!<BR>

ELSEIF @equ$(user$,)

    print #1,
    print #1,<center>
    print #1,no Username indicated!!!<BR>
    Else                                       Password wrong !
    print #1,
    print #1,<center>
    print #1,falser Username or Password !!!<BR>

Endif

print #1,</font>
print #1,</html>
close #1

@Georg:

a) Yes - the goes.
b) From Shop To Shop müsstest You under Umständen a completely others engineering utilize.
c) If it your eigener Shop is: zero trouble - simply a interface create.
d) If it one Fremdshop is: fingers lane! Derartige automatic inquire are fundamentally not allows.

What exactly have You to?

GDL

Erstmal thanks,

I have one Lagerprogramm, which to 10maligem Unterschreiten of/ one Sollmenge verschiedener item a order by FAX outputs.
there here but no Artikelprüfung stattfindet and the Delivery integral longer lasts, I had time so ne idea.
I wisely but from unserem Hochregallagerverwaltungsprogramm, that a direct automatic Onlinebestellung with Artikelprüfung possible is.

wished eigendlich only time know whether too with Profan something like possible is, or whether this Own Lieferantenschnittstellen are.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

Both went sure

GDL

then I will me time with Conrad schlau make. Perhaps there there too so a manner dataus File, How at Homebanking, The then sent becomes.

with the Dataus goes it too. I buche directly from of my application Lastschriften ex.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]