'accepts: file name string
'returns: 3 letter file extension
function getFileExt(fileName)
getFileExt = Mid(fileName, InstrRev(fileName, ".") + 1)
end function
Dim iContentPerPage: iContentPerPage = 10
Dim iRowCutoff: iRowCutoff = 3 'number of columns
Dim iTotal: iTotal = Ubound(itemArray,2) 'total number of results
Dim iStart: iStart = request.querystring("start")
'set the starting position, either zero or from the query string
if (len(iStart) = 0) then
iStart = 0
else
iStart = Cint(iStart)
end if
'set the end position
'if the number of items per page plus the starting position is less than the total,
'then show the number of items added to the starting position
'otherwise we are at the end
If (iTotal >= (iContentPerPage + iStart)) Then
iEnd = iContentPerPage + iStart - 1
Else
iEnd = iTotal
End If
response.write "<table width=""99%"" border=""0"" cellspacing=""0"" cellpadding=""2""><TR>"
'loop through the results
For introw = iStart to iEnd
iID = arrArray(0,i)
'start a new row every 3 pictures
if (k mod iRowCutoff = 0) then _
response.write "</tr><tr>"
response.write "<td>Content</td>"
Next
response.write "</table>"
response.write "<br /><table border=""0"" width=""95%"" cellpadding=""2"" cellspacing=""0"" align=""center""><tr>"
'check whether to show the previous link or not
if (iStart > 0) then
response.write "<td style=""width:33%;"" align=""left""><a href="""&scriptName&"?start="&iStart-iContentPerPage&"&id="&id&""" style=""text-decoration:none;""><< PREVIOUS PAGE</a></td>"
else
response.write "<td style=""width:33%;"">&nbsp;</td>"
end if
response.write "<td style=""width:33%;"" align=""center"">" & (iEnd+1) & " of " & (iTotal+ 1) & "</td>"
'check whether to show the next link or not
if (iEnd < iTotal) then
response.write "<td style=""width:33%;"" align=""right""><a href="""&scriptName&"?start="&iStart+iContentPerPage&"&id="&id&""" style=""text-decoration:none;"">NEXT PAGE >></a></td>"
else
response.write "<td style=""width:33%;"">&nbsp;</td>"
end if
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
function verifyAge(sFrm) {
var frm = document.getElementById(sFrm);
var month = frm.ageMo.options[frm.ageMo.selectedIndex].value;
var day = frm.ageDay.options[frm.ageDay.selectedIndex].value;
var year = frm.ageYear.options[frm.ageYear.selectedIndex].value;
if (month == '' || day == '' || year == '') {
alert('Please select your birth date before proceeding');
frm.ageMo.focus();
return false;
}
else if (!/^([0-9]{4})$/.test(year) || !/^([0-9]{1,2})$/.test(month) || !/^([0-9]{1,2})$/.test(day)) {
alert ('Please enter a valid date');
return false;
}
var ud = new Date();
var cd = new Date();
ud.setMonth(month-1);
ud.setDate(day);
var diff = cd.getFullYear() - year;
if (cd.getTime() < ud.getTime()) {
diff -= 1;
}
if (diff < 17) {
alert('You must be 18 years of age or older to use this site');
return false;
}
}
</script>
Response.write("<form action="""&scriptName&"""method=""POST"" name=""registerFrm"" id=""registerFrm"" onSubmit=""return verifyAge('registerFrm');"">")
Response.write("<select name=""ageMo"">")
Response.write("<option value=""""></option>")
for i = 1 to 12
response.write "<option value="""&i&""">" &i&" - "&monthname(i,1) & "</option>"
next
Response.write("</select>")
Response.write(" / ")
response.write("<select name=""ageDay"" style=""width:40px;"">")
response.write ("<option value=""""></option>")
for i = 1 to 31
response.write "<option value="""&i&""">"&i&"</option>"
next
response.write ("</select>")
response.write (" / ")
response.write ("<select name=""ageYear"" style=""width:60px;"">")
response.write ("<option value=""""></option>")
for i = year(now) to year(now)-90 step -1
response.write "<option value="""&i&""">"&i&"</option>"
next
response.write ("</select>")
response.write ("</form>")
'accepts: file extension, array of extensions allowed
'returns: boolean if extension if value
function checkFileExt(sFileExt,sExtAllowed)
checkFileExt = false
dim i
dim arrExt: arrExt = split(sExtAllowed,",")
for i = 0 to ubound(arrExt)
if lcase(sFileExt) = lcase(arrExt(i)) then
checkFileExt = true
exit function
end if
next
end function
function getOS()
dim sOS: sOS = Request.ServerVariables("HTTP_USER_AGENT")
if (instr(lcase(sOS),lcase("windows")) > 0) then
getOS = "windows"
elseif (instr(lcase(sOS),lcase("mac")) > 0) then
getOS = "mac"
elseif (instr(lcase(sOS),lcase("mac")) > 0) then
getOS = "linux"
elseif (instr(lcase(sOS),lcase("windows ce")) > 0) then
getOS = "pocketpc"
elseif (instr(lcase(sOS),lcase("palm")) > 0) then
getOS = "palm"
end if
end function