<%@language = "VBScript" %>
<%

strFirst = Request.Form("fname")
strLast = Request.Form("lname") 
strEmail = Request.Form("email")
strMessage = Request.Form("message")

MyPath=Server.MapPath("flashdatabase.mdb")
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
	"DBQ=" & MyPath 
	
SQL = "INSERT INTO contacts (FirstName, LastName, Email, Message) VALUES ('"&strFirst&"','"&strLast&"','"&strEmail&"','"&strMessage&"')"
conn.Execute(SQL)
%>