#INCLUDE "AlnStandard.Inc"
FUNCTION MainProgram () AS LONG
DEFSNG a-z
DIM x AS INTEGER
DIM gg AS INTEGER
DIM w AS SINGLE
DIM h AS SINGLE
DIM r AS SINGLE
10 nam$="":gg%=0
20 DIM pn$(20),pd$(20),pw$(20),ph$(20)
100 STDOUT "Content-type: text/html
101 STDOUT
102 STDOUT "Pictures/Floor Plans
103 STDOUT "
120 'g$=http_cookie()
125 'if left$(g$,8)<>"user=LOC" then stdout "You must sign in to ALN properly. Click here to continue":end
130 'user$=mid$(g$,17,30):li$=mid$(g$,9,8)
131 'pl$=mid$(g$,47,2):nl$=mid$(g$,49,1):so$=mid$(g$,50,1):acct$=mid$(g$,51,8)+" ":acct$=left$(acct$,8)
132 'acct1$=acct$
133 'if right$(acct1$,1)<=" " and len(acct1$)>1 then acct1$=left$(acct1$,len(acct1$)-1):goto 133
134 'acct1$=acct1$+".sch"
150 l1$=ReadCGI():l2$=l1$
SQLResult& = SQL_OpenDB ("Driver={SQL Server};Server=192.168.131.50;Database=ALNUberBob;Uid=AlnData;Pwd=dr1ver;PORT=1433")
IF SQLResult&=%SQL_ERROR THEN
STDOUT "Could not connect to database:"
STDOUT SQL_ErrorQuickOne
EXIT FUNCTION
END IF
IF LEN(l1$)>6 THEN l1$=MID$(l1$,2)
IF LEN(l1$)<6 THEN
IF VAL(LEFT$(l1$,1))>0 THEN l1$="D"+l1$ ' add a "D" if numbers only
sql$="select aptname,apthomepage,aptaddress1,aptzip,alnid,pictureid from apartments where oldalnid='"+l1$+"'"
ELSE
sql$="select aptname,apthomepage,aptaddress1,aptzip,alnid,pictureid from apartments where alnid="+FORMAT$(VAL(l1$))
END IF
SQLResult& = SQL_Stmt(%SQL_STMT_IMMEDIATE,sql$)
' IF SQLResult& = %SQL_ERROR THEN
' STDOUT "SQL Error:"
' STDOUT SQL_ErrorQuickOne
' EXIT FUNCTION
' END IF
SQL_FETCH %NEXT_ROW
IF SQL_EOD THEN
STDOUT "** APT NOT FOUND ** "+l1$
EXIT FUNCTION
END IF
wnam$=TRIM$(SQL_ResColStr(SQL_resColNumber("Aptname")))
propwebs$=TRIM$(SQL_ResColStr(SQL_resColNumber("apthomepage")))
Address$=TRIM$(SQL_ResColStr(SQL_resColNumber("aptAddress1")))
csz$=TRIM$(SQL_ResColStr(SQL_resColNumber("aptzip")))
csz$=LEFT$(csz$,5)
ALNid&=SQL_ResColUInt(SQL_resColNumber("alnid"))
REPLACE " " WITH "+" IN address$
REPLACE "#" WITH "+" IN Address$
' STDOUT "["+propweb$+"]
"
' STDOUT "["+address$+"]
"
' STDOUT "["+format$(alnid&)+"]
"
' IF LEFT$(http_referer(),43)<>"http://www.alnbackup.com/scripts/lpone1.exe" THEN goto 5000
sql$="select pictureid,securityhash,description,height,width from pictures where alnid="+FORMAT$(alnid&)+" and propertyorfloorplan in ('P','F') and picturestatus='A' order by alnorder,pictureorder"
SQLResult& = SQL_Stmt(%SQL_STMT_IMMEDIATE,sql$)
IF SQLResult& = %SQL_ERROR THEN
STDOUT "SQL Error:"
STDOUT SQL_ErrorQuickOne
EXIT FUNCTION
END IF
STDOUT ""+wnam$+"
STDOUT "(Click on picture for enlarged photo)
STDOUT "Click here for a map to this property
IF propwebs$<>"" THEN STDOUT "Property Web Site (Opens in New Window)
STDOUT "
cnt=0
wCol=SQL_resColNumber("width")
hcol=SQL_ResColNumber("Height")
dCol=SQL_ResColNumber("Description")
idCol=SQL_ResColNumber("pictureid")
hashCol=SQL_ResColNumber("SecurityHash")
aa$=""
DO
SQL_Fetch %NEXT_ROW
IF SQL_EOD THEN EXIT LOOP
w=SQL_ResColFloat(wCol)
h=SQL_ResColFloat(hCol)
r=240/w:w=w*r:h=h*r
WHILE h>180
w=w*0.99:h=h*0.99
WEND
w=INT(w):h=INT(h)
IF cnt MOD 2=0 THEN aa$=aa$+""
picurl$="http://www.aptdata.net/aptpicture/?id="+FORMAT$(SQL_ResColUInt(idCol))+"&ph="+TRIM$(SQL_ResColStr(hashCol))
ThumbURL$=picurl$+"&h=180"
aa$=aa$+"![]("+ThumbURL$+")
"+TRIM$(SQL_ResColStr(dCol))+" | "
INCR cnt
IF cnt>50 THEN EXIT LOOP
LOOP
4000 REM it all comes here
SQL_CloseDB
4001 aa$=aa$+"
Click on the BACK or PREVIOUS button supplied on your browser to return to the listings"
4010 aa$=aa$+""
STDOUT aa$
END FUNCTION
FUNCTION PBMAIN AS LONG
SQL_Authorize &h230ECB89
SQL_Initialize 2,2,250,3,3,0,0,hCurInst&
PBMAIN = MainProgram()
SQL_Shutdown
END FUNCTION