For Each??

När jag skall lägga in en post i en databas gör jag alltid förljande:

<%
fran = Session("nick")
till = Request.Form("till")
titel = Request.Form("titel")
meddelande = Request.Form("meddelande")
meddelande = Server.HTMLEncode(meddelande)
meddelande = FixaTecken(meddelande)
meddelande = Smily(meddelande)
meddelande = CHTML(meddelande)

datum = now

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & DBPath
SQL = "INSERT INTO Meddelanden"
SQL = SQL & "(f_Till,f_Fran,f_Meddelande,f_Datum,f_Titel)"
SQL = SQL & "VALUES('" & till & "', '" & fran & "', '" & meddelande & "', '" & datum & "', '" & titel & "')"

Connect.Execute(SQL)

Connect.Close
Set Connect=Nothing
%>

finns det några enklare sätt, jag menar det finns script som gör att man kan sätta in i olika datbaser, bara dom får reda på databasen, men jag har inte studerat några av dessa ännu, men ngn kanske vet hur dom bär sig åt, For Each eller?