<%@ Language=VBScript %>
<%
on error resume next
if Request("txtAction") = "save" and len (Request("txtEmail")) <> 0 then
dim sCnString
sCnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Database\emaildb.mdb") & ";UID=;PWD="
dim cn
set cn = server.CreateObject("ADODB.Connection")
cn.Mode = 3
cn.Open sCnString
if cn.State = 1 then
sSQL = "insert into emailtb (email) values ('" & request("txtemail") & "');"
cn.Execute sSQL
message = ""
cn.close
end if
set cn = nothing
end if
%>
New Orleans Hotels: These hotels in New Orleans are located in the French Quarter, New Orleans.