<%@ Page Language="VB" Debug="true" %>
<%
dim email as string
email = Trim(Request.form("ch_email"))
if trim(email) <> "" then
Dim queryString As String
dim dbPath as string
dbPath = Server.MapPath("admin/bdusaidbd00.mdb")
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source= "& dbPath
Dim cnx As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
queryString = " insert into t_email (e_email) values ('"& email &"') "
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = cnx
Dim rowsAffected As Integer = 0
cnx.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
Finally
cnx.Close
End Try
end if
%>
Programme AAI
