%@ 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 %>
![]() |
||
Royal Mirage Marrakech 22 - 26 Avril |
||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||