Category : Communication (modem) tools and utilities
Archive   : PRCMSCRP.ZIP
Filename : PROFSCH.ASP

; search of Genie User Profile database
; Aspect script for Procomm
;
; Stephen Decarie 11 - 03 -92
; Gemail = S.Decarie

; define user_id " , "
define entry "7"
proc main;
string interest,fname,lname,gemail,compny,city,state,country
integer varlen

interest =$null
fname =$null
lname =$null
gemail =$null
compny =$null
city =$null
state =$null
country =$null

clear
box 3 15 17 55 41
atsay 4 21 41 "GEnie User Profile Search"
atsay 6 21 41 "Select Search Criteria:"
atsay 8 18 41 "1. Interest :"
atsay 9 18 41 "2. First Name :"
atsay 10 18 41 "3. Last Name :"
atsay 11 18 41 "4. GEmail Address :"
atsay 12 18 41 "5. Company Name :"
atsay 13 18 41 "6. City :"
atsay 14 18 41 "7. State :"
atsay 15 18 41 "8. Country :"

atget 8 38 41 12 interest
atget 9 38 41 12 fname
atget 10 38 41 12 lname
atget 11 38 41 12 gemail
atget 12 38 41 12 compny
atget 13 38 41 12 city
atget 14 38 41 12 state
atget 15 38 41 12 country
if CONNECTED
goto begn
endif
clear ; clear screen
locate 0 0 ; locate cursor at 0,0
box 0 0 4 22 14 ; draw box
atsay 2 2 14 "Logging onto GENIE." ; put message in box
locate 6 0 ; cursor to row 6
pause 1 ;
dial entry ; if directory changes this does too!
transmit "HHH" ;
waitfor "#=" 30 ;
set duplex full ;

;transmit USER_ID ;
metakey 9 ; user id , password stored in meta key 9

transmit "^M" ; followed by a carriage return
set duplex half ; restore screen display
waitfor "continue?" 120;
pause 1;
transmit " ^M" ; a carriage return
waitfor "?" ;

box 1 30 3 58 79 ; display logon time
fatsay 2 32 41 " logged on at %s " $time0

pause 5;
begn:
transmit "M203" ;
transmit " ^M" ; a carriage return
waitfor "203?" 30
transmit "1" ; select search profiles
transmit " ^M" ; a carriage return

strlen interest varlen
if varlen > 1
waitfor "?" 30 ; entering search criteria
transmit "1" ; select search profiles
transmit " ^M" ; a carriage return
waitfor "?" forever ; entering search criteria
transmit interest ;
transmit " ^M" ; a carriage return
endif

strlen fname varlen
if varlen > 1
waitfor "?" 30 ; entering search criteria
transmit "2" ; select search profiles
transmit " ^M" ; a carriage return
waitfor "?" 30 ; entering search criteria
transmit fname ;
transmit " ^M" ; a carriage return
endif

strlen lname varlen
if varlen > 1
waitfor "?" 30 ; entering search criteria
transmit "3" ; select search profiles
transmit " ^M" ; a carriage return
waitfor "?" 30 ; entering search criteria
transmit lname ;
transmit " ^M" ; a carriage return
endif

strlen gemail varlen
if varlen > 1
waitfor "?" 30 ; entering search criteria
transmit "4" ; select search profiles
transmit " ^M" ; a carriage return
waitfor "?" 30 ; entering search criteria
transmit gemail ;
transmit " ^M" ; a carriage return
endif

strlen compny varlen
if varlen > 1
waitfor "?" 30 ; entering search criteria
transmit "5" ; select search profiles
transmit " ^M" ; a carriage return
waitfor "?" 30 ; entering search criteria
transmit compny ;
transmit " ^M" ; a carriage return
endif

strlen city varlen
if varlen > 1
waitfor "?" 30 ; entering search criteria
transmit "6" ; select search profiles
transmit " ^M" ; a carriage return
waitfor "?" 30 ; entering search criteria
transmit city ;
transmit " ^M" ; a carriage return
endif

strlen state varlen
if varlen > 1
waitfor "?" 30 ; entering search criteria
transmit "7" ; select search profiles
transmit " ^M" ; a carriage return
waitfor "?" forever ; entering search criteria
transmit state ;
transmit " ^M" ; a carriage return
endif

strlen country varlen
if varlen > 1
waitfor "?" forever ; entering search criteria
transmit "8" ; select search profiles
transmit " ^M" ; a carriage return
waitfor "?" forever ; entering search criteria
transmit country ;
transmit " ^M" ; a carriage return
endif
waitfor "?" 30 ; execute search
log open "search.txt"
transmit "9" ; select search profiles
transmit " ^M" ; a carriage return

waitfor "continue" 30
if waitfor
transmit "Y" ; this is incase we get question to continue
transmit " ^M" ; a carriage return
endif
waitquiet 20
transmit "Q" ;
transmit " ^M" ; a carriage return

waitfor "203?" 30
transmit "TOP" ; get out of pay genie
transmit " ^M" ; a carriage return
log close ;

execute "GENSTART.ASX"
endproc