<%
if request.querystring("do")="add" then
Set conn = server.CreateObject("adodb.connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\inetpub\400blows\db\400blows.mdb"
'conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\400blows\db\400blows.mdb"
conn.open
email=replace(request("email"),"'","`")
sql="insert into newsletter(email) values('"&email&"')"
'response.write sql
conn.execute(sql)
%>
<%
response.write ""
end if
%>
