<%@ Language=VBScript %>
<%
'*************************************************************************
' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK!
' Function : Check Database Write
' Product : CandyPress Store Frontend
' Version : 2.5
' Modified : February 2004
' Copyright: Copyright (C) 2004 CandyPress.Com
' See "license.txt" for this product for details regarding
' licensing, usage, disclaimers, distribution and general
' copyright requirements. If you don't have a copy of this
' file, you may request one at webmaster@candypress.com
'*************************************************************************
Option explicit
Response.Buffer = true
const adminLevel = 0
%>
<%
'Declare variables
dim mySQL, cn, rs
'*************************************************************************
%>
Check Database Connection and Write Permissions
<%
'Open Database
call openDb()
'Create Test Table
mySQL = "CREATE TABLE testWriteTable (testcol INTEGER)"
set rs = openRSexecute(mySQL)
'Delete Test Table
mySQL = "DROP TABLE testWriteTable"
set rs = openRSexecute(mySQL)
'Close Database
call closedb()
%>
Success!
The utility was able to connect
to your database and make modifications to it.