<% Dim db Dim rs Dim newsdate Dim form_state Dim email_added email_added = false Sub OpenDB set db=Server.CreateObject("ADODB.Connection") db.ConnectionString=strCon db.Open End Sub Sub CloseDB on error resume next rs.close set rs=nothing db.close set db=nothing End Sub Sub write(s) Response.write s End Sub call OpenDB form_state = request.form("submit") if form_state = "submit" then strSQL="insert into emails ([name], [email]) values ('" & request.form("news_name") & "', '" & request.form("news_email") & "')" set rs=db.Execute(strSQL) email_added = true end if %>
  INDUSPOL PLASTICS IS YOUR BUSINESS PARTNER FOR: