Ser detta korrekt ut?

Nej, du måste ha redirect efter du stängt databasen ordentligt, annars skickas den innan den hinner stänga.

Nej, du måste ha redirect efter du stängt databasen ordentligt, annars skickas den innan den hinner stänga.

Ok är detta bättre?

<%
									  
namn = Request.Form("namn")
mail = Request.Form("mail")
meddel = Request.Form("meddel")
									  
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb")
SQL = "INSERT INTO meddelande (namn,mail,meddel) VALUES ('" & namn & "','" & mail & "','" & meddel & "')"
Set rs = Conn.Execute(SQL)									  
rs.Close
Set rs = nothing
						  
Conn.Close
Set Conn = nothing %>

<% Response.Redirect "index.asp" %>

Ja förutom att du stänger och öppnar asp-tolken..

<%
									  
namn = Request.Form("namn")
mail = Request.Form("mail")
meddel = Request.Form("meddel")
									  
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb")
SQL = "INSERT INTO meddelande (namn,mail,meddel) VALUES ('" & namn & "','" & mail & "','" & meddel & "')"
Set rs = Conn.Execute(SQL)									  
rs.Close
Set rs = nothing
						  
Conn.Close
Set Conn = nothing

Response.Redirect "index.asp" 
%>

1. Glöm inte att skydda dig mot SQL injections. I alla värden någon kan ange som ska in i en SQL-sats måste apostrof byta mot dubbla apostrofer (escape).

2. Använd OLEDB-drivaren istället för den gamla Access-drivern. Bättre, snabbare och stabilare enligt vad jag läst.

3. Skapa inget recordset när du exekverar INSERT, UPDATE eller DELETE. Eftersom inget data ska returneras är recordsetet onödigt.

mvh

<%
Function secure(txt) 
txt = Replace(txt, "'", "''") 
secure = txt 
End Function

									  
namn = Request.Form("namn")
mail = Request.Form("mail")
meddel = Request.Form("meddel")
									  
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb")
SQL = "INSERT INTO meddelande (namn,mail,meddel) VALUES ('" & secure(namn) & "','" & secure(mail) & "','" & secure(meddel) & "')"

Conn.Execute(SQL),,128
						  
Conn.Close : Set Conn = nothing

Response.Redirect "index.asp" 
%>

Skulle dessutom byta ut access-drivern mot microsoft.jet providern.
(@nders punkt 2.)
I övrigt så tycker jag att det ser ut som ett skolexempel på ett bra databasförfarande. :)