Feel the creative energy

Bonus Lesson: Adjusting the creative GRAND HOOP.

EXCLUSIVE - Creative Expression Magazine Project Directions

<% Function getDateString(ByVal theDate, ByVal strDateSeparator) Dim strDateString Dim strYear, strMonth, strDay If IsDate(theDate) Then strYear = Year(theDate) strMonth = Month(theDate) strDay = Day(theDate) If Len(strYear) = 2 Then strYear = "20" & strYear If Len(strMonth) = 1 Then strMonth = "0" & strMonth If Len(strDay) = 1 Then strDay = "0" & strDay strDateString = strYear & strDateSeparator & strMonth & strDateSeparator & strDay Else strDateString = theDate End If getDateString = strDateString End Function Function isValidKeys(ByVal sentkey1, ByVal sentkey2) Dim calldate, cy, cm, cd, ctot, pipart, random1,temp2 Dim sentkey2_1 Dim bOk : bOk = False temp2=sentkey2 If Not IsNumeric(temp2) Then temp2= 0 Else temp2= CDbl(temp2) sentkey2=temp2 ' random key generation random1=sentkey1 If Not IsNumeric(random1) Then random1 = 0 Else random1 = CDbl(random1) ' end random ' Date key generation calldate=FormatDateTime(now(),2) cy=year(calldate)-2001 cm=month(calldate) cd=day(calldate) ctot=(cint(cd)*501) + (cint(cm)*cint(cd)*700003) + (cint(cy)*cint(cd)* 113) ctot=ctot*10013 '/date key generation ' Pi generation pipart=left(replace(cstr(4*Atn(1)),".",""),16) ' end PI generation sentkey2_1 = (pipart-(sentkey2-ctot)) 'Response.Write "inside function ...
" 'Response.Write "
sentkey2:" & sentkey2 & ":" 'Response.Write "
sentkey2_1:" & sentkey2_1 & ":" 'Response.Write "
compare-result:" & (sentkey2 & "" = sentkey2_1 & "") & ":" 'Response.Write "
dateformat:" & calldate & ":" If cstr(sentkey2_1)=cstr(sentkey1) Then bOk = True End If isValidKeys = bOk End Function If Not isValidKeys(Request.QueryString("txtKey1"), Request.QueryString("txtKey2")) Then ' Do something if the keys isnt valid, redirect ... Response.Redirect "" 'Response.Write "redirect ...
" 'Response.Write "key1:" & Request.QueryString("txtKey1") 'Response.Write "

---

" 'Response.Write "key2:" & Request.QueryString("txtKey2") 'Response.End Else ' otherwise stay on this page and show content ... End If %>