Gecko [ www.utparral.edu.mx ]

Name	Size	Permission
common.inc	3.63 KB	-rw-r--r--
common.pl	1.83 KB	-rw-r--r--
edit.asp	1003 B	-rw-r--r--
editpic.asp	2.09 KB	-rw-r--r--
editpic.pl	1.9 KB	-rwxr-xr-x
edit.pl	558 B	-rw-r--r--
index.pl	343 B	-rw-r--r--
poll.asp	1.44 KB	-rw-r--r--
poll.pl	1.51 KB	-rwxr-xr-x
savepic.asp	1.75 KB	-rw-r--r--
savepic.pl	1.65 KB	-rwxr-xr-x
show.asp	1.75 KB	-rw-r--r--
show.pl	1.8 KB	-rwxr-xr-x
webcast.asp	1.38 KB	-rw-r--r--
webcast.pl	1.37 KB	-rwxr-xr-x

Code Editor : savepic.asp

<%
    Option Explicit
    Response.Expires = 0
    Response.Buffer = True
%>

<%
    ' get new picture
    Dim sCurrPic,aPictureArray, nUpper, nCurrPic

aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" )
    nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2)

sCurrPic = Request( "CurrPic" )

' check if + or - was pressed
    select case Request( "Auswahl" )
        case "+"
            if isNumeric( sCurrPic ) then
                sCurrPic = CStr( CLng( sCurrPic ) + 1 )
            end if
        case "-"
            if isNumeric( sCurrPic ) then
                sCurrPic = CStr( CLng( sCurrPic ) - 1 )
            end if
    end select

' save picture name
	if isNumeric( sCurrPic ) then
		if (CInt( sCurrPic ) > 0) and ( CInt( sCurrPic ) <= nUpper ) then
			call File_writeVirtual( "currpic.txt", ".", sCurrPic )
		end if
	end if

' return to edit page
    Response.Redirect( "./editpic.asp" )
%>

${this.title}

Code Editor : savepic.asp