"
Response.write ReportTabledef
Response.write ReportHeadRow
for i=0 to howmanyfields
Response.write ReportHeadColumn & rstemp(i).name & ReportHeadcolumnEnd
next
response.write ReportRowEnd
howmanyrecs=0
DO UNTIL rstemp.eof OR howmanyrecs=maxrecs
response.write ReportDetailRow
for i = 0 to howmanyfields
response.write ReportDetailColumn
if isNull(rstemp(i)) then
response.write " "
else
response.write rstemp(i)
end if
response.write ReportDetailColumnEnd
next
response.write ReportRowEnd
howmanyrecs=howmanyrecs+1
if howmanyrecs < maxrecs then
rstemp.movenext
end if
loop
response.write(ReportTableEnd)
Call PageNavBar (sql)
rstemp.close
set rstemp=nothing
shopclosedatabase dbc
end sub
Sub HandleError
rc=0
If err.number > 0 Then
rc=4
'Response.write "msg=" & msg & "
"
Response.write("VBScript Errors Occurred:" & "")
Response.write("Error Number=" & err.number & "
")
Response.write("Error Descr.=" & err.description & "
")
Response.write("Help Context=" & err.helpcontext & "
")
Response.write("Help Path=" & err.helppath & "
")
Response.write("Native Error=" & err.nativeerror & "
")
Response.write("Source=" & err.source & "
")
Response.write("SQLState=" & err.sqlstate & "
")
End If
If dbc.errors.count> 1 then
rc=4
Response.write "count=" & dbc.errors.count
For counter= 0 to dbc.errors.count
Response.write("Error #" & dbc.errors(counter).number & "
")
Response.write("Error desc. -> " & dbc.errors(counter).description & "
")
next
End If
end sub
'
Sub WriteExamples
%>
Examples of SQL
select * from categories
select * from products where cprice>10.00
select * from orders where olastname like '%buyer%'
select * from orders where odate=#01/05/00#
<%
end sub
Sub ValidateSQl (rc)
dim i
rc=0
Dim words(200), wordcount, delimiter
delimiter=" "
sql=sql & " "
Parserecord sql,words,wordcount,delimiter
if ucase(words(0))<>"SELECT" then
sError="Only SELECT is allowed " & "
"
Response.write Serror
rc=4
Exit sub
end if
for i = 0 to wordcount-1
if ucase(words(i))="FROM" then
dbtable=trim(words(i+1))
exit for
end if
next
ValidateTable dbtable
if dbtable="" then
Response.write LangEditSelectFail & "
"
rc=4
exit sub
end if
End sub
'
Sub ValidateTable (dbtable)
'********************************************
'See if user has access to this table
Dim UserTables
dim tablecount
dim i
If getconfig("XRestrictAdminTables")<>"Yes" Then exit sub
UserTables=GetSess("UserTables")
If Isnull(UserTables) then
exit sub
end if
if UserTables="" then
exit Sub
else
UserTables=split(GetSess("UserTables"),",",-1,1)
end if
tablecount=ubound(UserTables)
for i = 0 to tablecount
if ucase(dbtable)=ucase(Usertables(i)) then
exit sub
end if
next
dbtable=""
end sub
'
Sub ParseRecord (record,words,wordcount,delimiter)
Dim pos
Dim recordl
Dim bytex
Dim temprec
Dim maxwords
Dim i
maxwords = 10
temprec = record
Dim maxentries
pos = 1
wordcount = 0
' make sure word array is null
maxentries = UBound(words)
For i = 0 To maxentries - 1
words(i) = ""
Next
recordl = Len(temprec)
' first eliminate leading blanks
Do
bytex = Mid(temprec, pos, 1)
While bytex = " " And pos <= recordl
pos = pos + 1
bytex = Mid(temprec, pos, 1)
Wend
' copy word into word array
While bytex <> delimiter And pos <= recordl
words(wordcount) = words(wordcount) & bytex
pos = pos + 1
bytex = Mid(temprec, pos, 1)
Wend
wordcount = wordcount + 1
pos = pos + 1
If wordcount > maxentries Then Exit Sub
Loop Until pos > recordl
End Sub
%>