<%
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strSql = "ALTER TABLE " & strTablePrefix & "TOPICS "
strSql = strSql & "DROP answer1, count1, answer2, count2, answer3, count3, answer4, count4, answer5, count5, answer6, count6, answer7, count7, answer8, count8;"
Response.Write "" & strSql & "
"
my_Conn.Execute strSql
strSql = "ALTER TABLE " & strTablePrefix & "CONFIG "
strSql = strSql & "DROP C_ADMINPOLLS, C_USERPOLLS, C_ACTIVEPOLL;"
Response.Write "" & strSql & "
"
my_Conn.Execute strSql
response.write "Database set-up finish!!
"
my_Conn.Close
set my_Conn = nothing
%>