help with delete method

I'm trying to get my delete button to work but to no avail.My code is as follows: 

Dim Conn, ConnString  
 
 
 set ConnString = server.createobject("adodb.connection")
 conn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("forum1.mdb")&";"
 
 'Create the Connection object 
 connString.open (conn)
 
  
if request("action") = "delete" then

 sql = "DELETE* FROM messages WHERE id = '" & request("id")&"'" 
       Connstring.execute(sql)

Response.Write("<h1>The message has been deleted.</font><br>Back to <a href='forumlist.asp'>Forum</h1>")
 
Connstring.Close
end if

%>
Any suggestions??

if request("action") = "delete" then

connString.open conn, sql

Response.Write("<h1>The message has been deleted.</font><br>Back to <a href='forumlist.asp'>Forum</h1>")
 
Connstring.Close
end if

This way everything is done only if the action is delete. Other wise, well you don't even open the connection. Keep the overhead low...

Thanks guyz but nothing seemed to work.I'm still getting a blank page when i click on the delete button.This is how i created the button, i don't know whether this could have any effect on the button not working.

<button style = "width:50" onclick = location.href='delete.asp'">delete</button>

so when i click it, it just takes me to the blank asp page, with no deletion occured.

Thankz morningz

I'm in business now